4.14.grs

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

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

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

$$输入弦向公差。
l20:
param/'enter the tolerance','弦高公差=',tol,resp
jump/l20:,trm:,,resp

$$等弦长离散曲线。
l30:
cpset/chord,cur,tol,results

$$程序结束。
trm:
halt