3.6.grs

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

$$实体变量声明。
entity/ent

$$选择一个实体。
l10:
ident/'pick an entity',ent,resp
jump/l10:,trm:,,resp

$$查询实体类型并输出实体类型的值。
l20:
enttype=&type(ent)
print/enttype

$$程序结束。
trm:
halt