4.79.grs

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

entity/cur,ln,startpt,obj
number/a(3)

l10:
ident/'pick a curve',cur,resp
jump/l10:,trm:,,resp

l20:
ident/'pick the axis of revolution',ln,resp
jump/l20:,trm:,,resp

l30:
a(1..3)=&spoint(ln)
startpt=point/a(1..3)
obj=revsrf/cur,axis,ln,0,180

trm:
halt