3.7.grs

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

$$实体数组变量声明。
entity/ent(40)

$$选择实体，数量不超过40个。
l10:
ident/'pick entitys',ent,cnt,num,resp
jump/l10:,trm:,,resp

$$查询每个实体类型并输出其实体类型的值
l20:
do/trm:,indx,1,num
enttype=&type(ent(indx))
print/enttype

$$程序结束。
trm:
halt