3.5.grs

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

$$参数输入。
l10:
param/'enter the options','数据一=',num1,'数据二=',num2,'数据三=',num3,$
                          '数据四=',num4,resp
jump/l10:,trm:,,resp

$$输出相关内容。
l20:
print/num1,num2,num3,num4

$$程序结束
trm:
halt