4.24.grs

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

entity/pt,refpt,cur,obj

l10:
ident/'pick a point',pt,resp
jump/l20:,trm:,,resp

l20:
ident/'pick the referance point',refpt,resp
jump/l20:,trm:,,resp

l30:
ident/'pick a curve of a face',cur,resp
jump/l30:,,resp

l40:
obj=line/pt,refpt,perpto,cur

trm:
halt