2.5.grs

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

$$实体变量声明
entity/cur,pt(1000),pl(1000)

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

$$确定需生成的平面的个数。
l20:
param/'input the number','平面个数',num,resp
jump/l20:,trm:,,resp

$$在选择的曲线上生成点集，点集的数量等于平面的数量。
l30:
cpset/eparam,cur,num,pt

$$采用DO循环语句，过每个点作垂直于曲线的平面。
l40:
do/trm:,index,1,num
pl(index)=plane/perpto,cur,thru,pt(index)

$$程序结束。
trm:
halt