4.92.grs

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

entity/ent1,ent2,cutent(10)

l10:
ident/'select the first entity',ent1,resp
jump/l10:,trm:,,resp

l20:
ident/'select the second entity',ent2,resp
jump/l10:,trm:,,resp

l30:
cutent=solcut/ent1,with,ent2,cnt,c1,c2
print/c1,c2

trm:
halt