4.90.grs

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

entity/cur(100),pt,obj
number/a(3)

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

l20:
ident/'pick the origin point',pt,resp
jump/l20:,trm:,,resp

l30:
a(1..3)=&point(pt)
obj=solrev/cur(1..num),origin,a(1..3),atangl,180,axis,0,1,0

trm:
halt