grip 偏置曲线

偏置曲线

entity/obj(2000),pp,obx

l10:
mask/3,5,6,9
ident/'梅雷提示！请选择一条曲线...',obj,cnt,nm,resp
jump/l10:,end:,,,resp

if/nm>2000,jump/cb:

o=1  $$ 偏置距离

l20:
      param/'梅雷提示:请输入偏置距离...',$
             '偏置距离 =',o,resp
      jump/l10:,end:,,,resp

l30:
pos/'梅雷提示！请选择参考点【代表方向】...',x1,y1,z1,resp
jump/l20:,end:,,,resp

pp=point/x1,y1,z1
obx=offcrv/obj(1..nm),o,pp,fillet
delete/pp


end:
halt

cb:
messg/'梅雷提示！你选择的对象超过2000个请重新选择...'
jump/l10:






_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/