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

heweiping

这个代码实现不了批量拉伸？
entity/face,obj(1000),ln(1000),CUR(1000)，ent(1000)，
/ X2 D+ L' p) J" hL10:
+ M% z( w4 e" Z1 l% k* Q( Y2 d# tMASK/72
IDENT/'选择要抽出边缘的面或边...',OBJ,CNT,nm,RESP
  JUMP/L10:,END:,,RESP
4 D, X9 T- s& Z: R+ j8 a1 d   DO/L20:,i,1,nm
CUR=SOLEDG/OBJ(i)

& {# y( N8 l6 ]/ L& ri = 0
9 I( p$ c6 W( ?1 n3 Ywei:
i = i+1
4 m5 W4 i+ Q" R3 ]8 {$ WIf/i>n,JUMP/h10:
ent(i)=TABCYL/CUR(i),0,0,1,0,10
! `- D- X) @% w) o2 MJUMP/wei:
: y$ m* d6 o, y' r
h10:
) a! l/ Y- a6 g1 ~0 K! {2 wDELETE/ln(1..i-1)
3 K  ]/ P4 o/ OL20:
   JUMP/L10:
& N; O1 [# s9 m& ]) K* b/ ?
END:
HALT

10006667

我顶你的肺