4.47.grs

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

entity/pt(100),obj

l10:
ident/'pick points',pt,cnt,num,resp
jump/l10:,trm:,,resp

l20:
obj=bcurve/fit,pt(1..num),segs,10,degree,3,start,vect,5,10,0,$
       end,vect,-5,10,0,status,numa
print/numa

trm:
halt