4.82.grs

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

entity/pt,surf(2),obj

$$选择第一个曲面或平面。
l10:
ident/'pick the first face',surf(1),resp
jump/l10:,trm:,,resp

$$选择第二个曲面或平面。
l20:
ident/'pick the second face',surf(2),resp
jump/l20:,trm:,,resp

$$选择圆角中心参考点。
l30:
ident/'pick point',pt,resp
jump/l30:,trm:,,resp

$$生成圆角曲面，并输出圆角生成状态值。
l40:
obj=filsrf/surf(1),surf(2),pt,radius,1,result,num
print/num

trm:
halt