按照KASA思路做的批量拉伸边缘？

heweiping

这个代码实现不了批量拉伸？
entity/face,obj(1000),ln(1000),CUR(1000)，ent(1000)，
+ z. v! t# D0 @( R5 o3 SL10:
; V) m6 p" d( J) \. A( {% PMASK/72
IDENT/'选择要抽出边缘的面或边...',OBJ,CNT,nm,RESP
  JUMP/L10:,END:,,RESP
   DO/L20:,i,1,nm
3 n+ |0 ^) x# [# s/ _5 H  mCUR=SOLEDG/OBJ(i)

i = 0
wei:
& C9 }. f: W: o7 ]5 K4 J+ |7 P; l$ `i = i+1
1 O+ e4 I2 `4 o; L- f+ V( y- |- WIf/i>n,JUMP/h10:
ent(i)=TABCYL/CUR(i),0,0,1,0,10
JUMP/wei:
$ z. a, Q6 Z0 O; ^0 c9 H
# n6 f5 l8 X3 x- K' T( yh10:
DELETE/ln(1..i-1)
2 d$ Q5 `( p# B: S: s! X5 UL20:
   JUMP/L10:
* I7 S3 l& T  T7 P5 o  n
+ b4 V/ F' q/ M' q! X. A- QEND:
HALT

10006667

我顶你的肺
. `1 o( |: q6 r6 [4 U: B