4.1.grs

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

$$声明实体变量。
entity/pt(4),obj

$$在UG图形窗口中选择三个或四个存在的点。
l10:
ident/'pick points',pt,cnt,num,resp
jump/l10:,trm:,,resp

$$根据选择的点的个数生成坐标系。
l20:
ifthen/num==3
      obj=csys/pt(1),pt(2),pt(3)
elseif/num==4
      obj=csys/pt(1),pt(2),pt(3),origin,pt(4)
else
      jump/trm:
endif 

$$显示坐标系，这一步绝对不能省略。
l30:
&wcs=obj

$$程序结束。
trm:
halt