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

ENTITY/obj,LN

d1=8

d2=0

h=234

L10:

GPOS/'提示!选第一个点',x1,y1,z1,rsp

JUMP/L10:,END:,L20:,RSP

GPOS/'提示!选第二个点',x2,y2,z2,rsp

JUMP/L20:,END:,L30:,RSP

L30:

LN=LINE/x1,y1,z1,x2,y2,z2

&LAYER(ln)=h

layer/active,231

L40:

PARAM/'海宝提示!请输入数学',$

'圆柱外直径',D1,$

'圆柱内直径',D2,$

'放置图层',h,resp

JUMP/L40:,END:,,resp

obj= soltub/ln,diamtr,d1,d2

delete/ln

&LAYER(obj)=h

layer/active,234

JUMP/L10:

END:

halt