grip 曲线倒圆

曲线倒圆

two objects, center point

内容提要
obj = fillet/obj1,obj2,center,point,radius,r[,notrim][,iferr,label:]

描述
创建一个圆角两物体之间根据指定的物体(例如两条线)——在这一点上,坐落在同一地区为中心的圆角半径、半径和价值。

该中心的重点应该是圆角半径一般地区的中心。如果两个相互垂直的线被柱子上的一点是可以在任何地方,在四象限包含所需的圆角半径。然而,如果你想要其他对象,定义了圆角适当的点可以更加困难。


参数
参数
描述

obj2 obj1,
两种现存的对象都要。物体不需要相交,但最高的两点间的距离相切必须小于或等于指定的半径的两倍的鱼片。从构造脊是逆时针方向的第2个物体第一目标。

center
小词表明一个点是将提供的位置,接近圆角的中心。

point
一个预先定义的位置点近似圆角的中心。如果指定的中心是无效的,错误信息没有鱼片被显示出来。被投射到近似点沿圆角的飞机飞机的z轴。

r
一个积极的价值决定的圆角半径。如果半径是无效的,该系统显示没有圆角的错误讯息。

notrim
加了保留圆来的 不加删除圆来的

iferr、标签:
指定一个标签来哪个程序执行的跳跃,如果一个报错。


=========================

$$ 曲线倒圆

entity/ln(4),pt1
number/num1(3)

r=2

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,iferr,lde:

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

jump/l10:

end:
halt








_____________________________________________________________________________ _

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