2.1.grs

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

$$变量定义；
entity/pt1,pt2,centpt
number/a(3),b(3),c(3)

$$在UG图形窗口中选择第一个点；
l10:
ident/'pich point1',pt1,resp
jump/l10:,trm:,,resp

$$在UG图形窗口中选择第二个点；
l20:
ident/'pick point2',pt2,resp
jump/l20:,trm:,,resp

$$利用选择的两个点生成中点；
l30:
a(1..3)=&point(pt1)
b(1..3)=&point(pt2)
c(1)=(a(1)+b(1))/2
c(2)=(a(2)+b(2))/2
c(3)=(a(3)+b(3))/2
centpt=point/c(1..3)
jump/trm:

$$程序结束
trm:
halt