4.47.grs

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

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