4.93.grs

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

entity/ent,pl,cur(10)

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

l20:
ident/'select the face',pl,resp
jump/l10:,trm:,,resp

l30:
cur=sect/ent,with,pl,cnt,num
print/num

trm:
halt