购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

number/poin(3),h

number/mat(12)

$$检验是否有文件打开

ifthen/&actprt==1

messg/'请打开或新建一个部件然后重试!'

jump/end:

endif

start:

h=2

$$选择拉伸面

l5:

mask/71

ident/'选择拉伸面',face,resp

jump/l5:,end:,,,resp

l10:

poin=snorf(face,0.5,0.5)

ln=soledg/face,cnt,n

l15:

obj(1)=solext/ln(1..n),height,h,axis,poin(1),poin(2),poin(3)

mat=matrix/transl,0,0,0

obj(2)=transf/mat,obj(1)

&COLOR(obj(2))=75

delete/ln(1..n),obj(1)

l20:

param/'输入拉伸参数',$

'拉伸高度 = ',h,resp

jump/l5:,end:,,,resp

l25:

mask/70

ident/'选择与之合并的实体',obj(3),resp

jump/l25:,end:,,resp

l30:

obj(4)=unite/obj(3),with,obj(2)

jump/end:

end:

halt