4.42.grs

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

entity/cur(100),obj

$$选择原始曲线。
l10:
ident/'pick curves',cur,cnt,num,resp
jump/l10:,trm:,,resp

$$生成逼近曲线。
l20:
obj=spline/approx,cur(1..num)

trm:
halt