4.20.grs

来自「UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊」· GRS 代码 · 共 21 行

$$声明变量。
entity/pt1,pt2,obj

$$选择第一个存在的点。
l10:
ident/'pick first point',pt1,resp
jump/l10:,trm:,,resp

$$选择第二个存在的点。
l20:
ident/'pick second point',pt2,resp
jump/l20:,trm:,,resp

$$选择的两点之间生成直线。
l30:
obj=line/pt1,pt2

$$程序结束。
trm:
halt