3.3.grs

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

$$选择具体的坐标系设定方式。
l10:
choose/'选择坐标系设定方式','三个点','两条直线',$
'园或圆弧','坐标系平面',resp
jump/l10:,trm:,,,l20:,l30:,l40:,l50:,resp

$$省略坐标系具体的生成方式。
l20:
jump/trm:

l30:
jump/trm:

l40:
jump/trm:

l50:
jump/trm:

$$程序结束。
trm:
halt