3.2.grs

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

$$实体声明
entity/pt

$$利用点构造器菜单选择一个点，得到这个点的坐标值。
l10:
gpos/'pick a point',x,y,z,resp
jump/l10:,trm:,,,l20:,resp

$$通过这个坐标值胜过一个点。
l20:
pt=point/x,y,z

$$程序结束。
trm:
halt