4.10.grs

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

entity/ent(2),obj
number/a(3)

l10:
ident/'pick curves',ent,cnt,num,resp
jump/l10:,trm:,,resp

l20:
obj=point/xlarge,intof,ent(1),ent(2)
a(1..3)=&point(obj)
print/a(1..3)

trm:
halt