4.17.grs

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

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

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

$$计算选择的曲线的长度leng并输出此长度。
l20:
anlsis/arclen,cur,mmeter,leng
print/leng

$$输入曲线长度length。
l30:
param/'enter the arclength','arcleng=',length,resp
jump/l30:,trm:,,,resp

l40:
$$若length<=leng，则生成点集；否则转向语句标号err:
ifthen/length<=leng
      cpset/arclen,cur,length,results
else
      jump/err:
endif

$$程序结束。
trm:
halt

$$若length>leng，则输出message信息，且程序转向语句标号l20:
err:
messg/'the length you input exceed the length of the curve.'
jump/l30: