4.37.grs

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

entity/pt(5),obj

$$选择5个点。
l10:
ident/'pick points',pt,cnt,num,resp
jump/l10:,trm:,,resp

$$生成二次曲线。
l20:
obj=gconic/pt(1),pt(2),pt(3),pt(4),pt(5)

trm:
halt