这是我写的程序,编译和连接都没有问题,但是运行总提示在bc=unite/lp(t),with,lp(t+1)行
; k/ D$ R$ ]8 v; ?) h0 o! {“正在使用一个无效的对象类型”,不知道是不是第一个jump有问题。请高手看看. E# z3 b& O+ J U/ t0 H2 Z8 l5 r0 O) [
7 S& \+ r/ c" ?3 Rentity/lp(50),bc
' p$ F4 z- E8 X8 @number/t6 |+ t: Q/ \0 v: {$ d: |8 G
# C; p+ }# k0 n0 L6 _
l10:0 h5 x- B+ v% u6 m6 l. h% ^
ident/'请选择多条曲线进行合并',lp,cnt,k,rsp1 L/ g6 `7 l. m2 Z/ }
jump/l10:,trm:,,,,rsp {: g( `' N: Y8 P: |
if/k<=1,jump/err1:
* o0 E- W- U' l& x! Y+ a2 G9 J" _t=1, e% H# q3 e. ~/ _
l20:) z5 {7 X8 e7 I% C) G% F9 n6 z6 Y
bc=unite/lp(t),with,lp(t+1)# W% i. d8 `0 Z1 A Z
t=t+1
% ^! A( N+ N' l8 nifthen/t==k,jump/trm:. T7 S* v( b0 q9 Y5 V+ J
else, C9 Z7 C' V0 W H% ]
jump/l20:
6 I `8 x6 D c& oendif1 j4 W0 A. i# | L" f: `1 S% m) ]
1 G# e* z! G: c, Z: h- Eerr1:
7 h0 h2 g: m1 Y9 d- T; m6 X, Hjump/l10:
( ?% m" }9 V( gtrm:
% S, ?. f, ]7 ^: i& b- b: shalt |