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

liuwuyuan56

刚开始学习二次开发，基本是照书上抄下来的拉伸源代码，编译成攻但是不能用，请各位指点下这是那里有问题，要该这样写才能实现拉伸的工能
3 o# J3 |1 T/ }1 G9 o; }& ]# E
拉伸源代码：
/ K; ]% ]8 N2 T, L  r5 Eentity/cur(100),obj
l10:
ident/'pick curves',cur,cnt,num,resp
jump/l10:,trm:,,resp
l20:
obj=solext/cur(1..num),height,10,axis,1,0,0
trm:
halt

% N; }# Q- U) `. L还有，分割也有这样的问题：
+ M8 b4 F: v* ^, z" t* O% G2 hentity/ent1,ent2,cutent(10)
l10:
, ~0 w: T$ c8 J. F- q& hmask/70
ident/'选择实体',ent1,resp
jump/l10:,trm:,,,resp
l20:
/ c" x  B6 ?( p& r2 A& d# Smask/71
1 ^  M6 E9 R5 Z7 C! W" l3 F! }ident/'选面',ent2,resp
! H3 n9 x1 F8 K( o( C' P, K( ajump/l10:,trm:,,,resp
% ?' k, v2 u: u9 P' a' N2 o# el30:
! G* ?% {# j( f. p/ v% ~7 Ycutent=solcut/ent1,with,ent2,cnt,c1,c2
print/c1,c2
( A8 Q) _( W$ R  ftrm:
halt

szgzdai

entity/guide(100),obj
) p, L! Q5 p% [l10:
ident/'pick the guide curves',guide,cnt,num,resp
JUMP/L10:,trm:,,resp
5 u! V. g! m' m/ s. Rl20:
# A+ S7 m0 |$ p7 Bobj=soltub/guide(1..num),diamtr,5,3,toler,0.005
trm:
4 k" h% x6 o& m4 V- ^7 j' dhalt
. w$ H( o6 l1 n3 z8 k