5.13.grs

来自「UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊」· GRS 代码 · 共 12 行

entity/ent(1000)

l10:
ident/'select entities',ent,cnt,num,resp
jump/l10:,trm:,,resp

l20:
chksol/ent(1..num),result,nlist
print/nlist

trm:
halt