求教，二次开发中遇到的问题、、拉伸体，以面分割实体？？？

liuwuyuan56

刚开始学习二次开发，基本是照书上抄下来的拉伸源代码，编译成攻但是不能用，请各位指点下这是那里有问题，要该这样写才能实现拉伸的工能
  t0 R$ Y- ?" G
4 U" F9 v7 o% ]1 U- s7 ]拉伸源代码：
entity/cur(100),obj
l10:
ident/'pick curves',cur,cnt,num,resp
1 s$ C$ I+ y% t  Y" x0 B; @; ajump/l10:,trm:,,resp
2 \5 n2 \" P7 g9 D. K" Y$ }+ ]# \l20:
obj=solext/cur(1..num),height,10,axis,1,0,0
% m4 e5 z7 @, W; x6 @trm:
- X2 Y, A& _  u  ?  E- }/ G; _halt

还有，分割也有这样的问题：
entity/ent1,ent2,cutent(10)
1 l, |: D! Z. [" N3 u% s% Hl10:
' X  p9 h) d3 P. K/ S- v. amask/70
ident/'选择实体',ent1,resp
& R' M7 _* ?' E# U  z8 g. m6 c7 Xjump/l10:,trm:,,,resp
& i% B- U0 r5 [: I$ K8 w6 ]: Al20:
' p! |# X# h' h1 i3 l& V" cmask/71
ident/'选面',ent2,resp
jump/l10:,trm:,,,resp
2 h) k5 }: o& X1 q. Pl30:
$ i& G; T# y  ]6 W3 C( j% ^cutent=solcut/ent1,with,ent2,cnt,c1,c2
/ i3 F0 g% e$ P: ?print/c1,c2
trm:
* m( j5 Z! e0 ]! c. i; shalt

8 x6 z; e+ G0 q

szgzdai

entity/guide(100),obj
( ]: ]" ^% W9 \l10:
) t1 `9 F' g( J! jident/'pick the guide curves',guide,cnt,num,resp
% J$ a+ a' o/ ]2 t( z5 pJUMP/L10:,trm:,,resp
l20:
obj=soltub/guide(1..num),diamtr,5,3,toler,0.005
trm:
* ^& c  E/ B: S) N7 _0 O+ z' fhalt
- Z5 `- I) K1 ~