5.1.grs

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

entity/ent(100)

l10:
ident/'pick entity',ent,cnt,num,resp
jump/l10:,trm:,,resp

l20:
do/trm:,indx,1,num
num1=&type(ent(indx))
print/'type='+fstrl(num1)

trm:
halt