4.43.grs

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

entity/cur(100),refpt,obj(100)

l10:
ident/'pick a curve',cur,cnt,num,resp
jump/l10:,trm:,,resp

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

l30:
obj=offcrv/cur(1..num),100,30,refpt,group

trm:
halt