点击查看详细介绍

点至点管道源代码,不完美的地方请多多教导

BAO694893367 VIP会员 5月前 287 0

购买与咨询 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


0

最新回复 (0)
请登录后发表新帖