4.13.grs

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

entity/pt,ln,obj

l10:
ident/'pick a line',ln,resp
jump/l10:,trm:,,resp

l20:
pt=point/3,3,3
obj=point/pt,vect,ln,5,10

trm:
halt