5.14.grs

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

entity/ent1,ent2(1000)
number/a(1000)

l10:
ident/'pick target entity',ent1,resp
jump/l10:,trm:,,resp

l20:
ident/'pick the entities to check',ent2,cnt,num,resp
jump/l20:,trm:,,resp

l30:
intfer/ent1,with,ent2(1..num),result,a(1..num)
do/trm:,indx,1,num
print/a(indx)

trm:
halt