4.49.grs

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

entity/cur(10),obj(100)

$$选择被简化的曲线。
l10:
ident/'pick curves',cur,cnt,num,resp
jump/l10:,trm:,,resp

$$简化曲线，并输出简化后生成的值线和圆弧的数量。
l30:
obj=simcrv/cur(1..num),blank,toler,0.005,cnt,c
print/c

trm:
halt