3.10.grs

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

$$实体变量和数字数组声明。
entity/cur
number/a(3)

$$选择一条曲线。
l10:
ident/'pick a curve',cur,resp
jump/l10:,trm:,,resp

$$在曲线的起点和中点分别输出临时信息“start point”和“end point”
l20:
a(1..3)=&spoint(cur)
crtwrt/'start point',a
a(1..3)=&epoint(cur)
crtwrt/'end point',a

$$程序结束。
trm:
halt