4.15.grs

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

$$变量声明。
entity/results(1000),cur

$$选择一条曲线。
l10:
ident/'pick a curve',cur,resp
jump/l10:,trm:,,resp

$$输入点集数量。
l20:
param/'enter the number','点集数量=',num,resp
jump/l20:,trm:,,,resp

$$等弦长离散曲线。
l30:
cpset/eparam,cur,num,part,0.1,0.8,results

$$程序结束。
trm:
halt