4.88.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

entity/guide(100),obj

l10:
ident/'pick the guide curves',guide,cnt,num,resp
jump/l10:,trm:,,resp

l20:
obj=soltub/guide(1..num),diamtr,5,3,toler,0.005

trm:
halt