4.67.grs

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

entity/cr,obj

l10:
ident/'pick a circle',cr,resp
jump/l10:,trm:,,resp

l20:
param/'enter the angle','顶角半角',ang,resp
jump/l20:,trm:,,resp

l30:
obj=cone/cr,zlarge,3,angle,ang

trm:
halt