5.12.grs

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

entity/ent1,ent2,pt1,pt2
number/a(7)

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

l20:
ident/'pick second entity',ent2,resp
jump/l20:,trm:,,resp

l30:
a(1..7)=reldst/ent1,ent2
pt1=point/a(1..3)
pt2=point/a(4..6)
print/a(1..3)
print/a(4..6)

trm:
halt