2.3.grs

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

$$定义字符串。
string/str(10)
$$输入数字num。
l10:
param/'input the number','数字=',num,resp
jump/l10:,trm:,,resp

$$按输入的数字num确定字符串str的内容。
l20:
ifthen/num>0
        str='red'
elseif/num==0
        str='yellow'
else 
        str='black'
endif
print/str             $$打印字符串str

$$程序结束
trm:
halt