4.91.grs

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

entity/ent,refpt,edge(100)

l10:
ident/'pick an entity',ent,resp
jump/l10:,trm:,,resp

l20:
gpos/'pick a point',x,y,z,resp
jump/l20:,trm:,,resp

l30:
refpt=point/x,y,z
blend/ent,radius,5,refpt
delete/refpt

trm:
halt