grip 圆(相切、相切、半径)

圆(相切、相切、半径)

entity/ln(5),pt1,pt2
number/x1,y1,z1,x2,y2,z2,num1(3),r,resp

r=5 $$半径

l10:
mask/3,5,6,9
ident/'梅雷提示！请选择曲线...',ln(1),cursor,x1,y1,z1,resp
jump/l10:,end:,,,resp

l20:
mask/3,5,6,9
ident/'梅雷提示！请选择曲线...',ln(2),cursor,x2,y2,z2,resp
jump/l10:,end:,,,resp

l30:
      param/'梅雷提示:请输入参数...',$
             '半径=',r,resp
      jump/l20:,end:,,,resp

l40:
$$ 创建线
ln(3)=line/x1,y1,z1,x2,y2,z2

$$ 提取 ln(3) 50%坐标  即中心
num1=cposf(ln(3),0.5)

$$ 创建点
pt1=point/num1


$$ 曲线倒圆
ln(4)=fillet/ln(1),ln(2),center,pt1,radius,r,notrim,iferr,lde:


$$ 创建点
pt2=point/&center(ln(4))

$$ 过圆心和半径画圆
ln(5)=circle/center,pt2,radius,r

lde:
$$ 删除对象
delete/ln(3..4),pt1,pt2

jump/l10:


end:
halt


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/