逐点比较法过象限SR插补

1、 数控原理与系统课程设计课题：逐点比较法过象限SR插补系别：班级：学号：姓名：指导老师：一、课程设计的目的1、针对设计任务选择合适的实现方案2、培养学生查阅技术手册和有关技术资料的能力3、培养学生程序设计的能力4、培养学生程序调试的能力5、培养学生编制技术文档的能力6、培养学生严肃认真，一丝不苟和实事求是的科学态度。二、课程设计的内容逐点比较法插补是 的脉冲增量式插补算法之一，其过程清晰，速度平稳，但一般只用于一个平面内 两个坐标轴的插补运算。其原理是在刀具按要求轨迹运动加工零件轮廓的过程中，不断比较刀具与被加工零件轮廓之间的相对位置，并根据比较结果决定下一步的进给方向，使刀具向偏小偏差的方向

2、进给，且只有一个方向的进给。也就是说，逐点比较法每一步均要比较加工点瞬时坐标与规定零件轮廓之间的距离，以此决定下一步的走向。如果加工点处在轮廓的内部，则下一步要向轮廓外部走，以减小偏差，这样周而复始，直至全部结束，从而获得一个非常接近于数控加工程序规定轮廓的轨迹。逐点比较法插补过程中的每一步都要经过偏差判别，坐标进给，偏差计算和终点判别四个节拍的处理。开始偏差判别坐标进给偏差判别到终点？结束YN 逐点比较法工作流程图本次课程设计即以小型实验铣床作为控制对象来进行逐点比较法插补连续数控系统的设计，具体要求如下：（1）设计出逐点比较法插补软件流程图。（2）编写出逐点比较法插补程序。（3）要求软件能

3、够实现任一象限顺圆的插补计算。（4）要求软件能够处理特殊轮廓的插补。（5）被插补零件轮廓几何信息的格式和数据形式自行约定，但必须合理说明。（6）控制软件要求能够综合F代码给定的进给速度信息。（7）插补结果要求能够以图形模拟形式进行输出。本次课程设计的具体实践目的：（1）了解连续轨迹控制数控系统的组成原理（2）掌握逐点比较法插补的基本原理（3）掌握逐点比较法插补的软件实现方法主程序：Private Sub Command1_Click()Dim x1, y1, K, J, x2, y2 As IntegerPicture1.ClsConst pi = 3.14159265Picture1.For

4、eColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (50, 5000)-(10000, 5000)Picture1.Line (5000, 50)-(5000, 10000)Picture1.Line (9950, 5050)-(10000, 5000)Picture1.Line (9950, 4950)-(10000, 5000)Picture1.Line (4950, 100)-(5000, 50)Picture1.Line (5050, 100)-(5000, 50) 画坐标轴If (Text1) 2 + (Text2) 2 (Tex

5、t3) 2 + (Text4) 2 Then a = MsgBox(错误)If a = vbOK Then Endx1 = Text1 y1 = Text2 第一点x2 = Text3y2 = Text4 第二点If x1 0 And y1 0 Then 判断第一点所在象限，并计算弧度值K = Atn(y1 / x1)ElseIf x1 0 ThenK = pi - Atn(y1 / (-x1)ElseIf x1 0 And y1 0 And y1 0 ThenK = pi / 2ElseIf x1 = 0 And y1 0 ThenK = 0ElseK = piEnd IfIf x2 0 A

6、nd y2 0 Then 判断第二点所在象限，并计算弧度值J = Atn(y2 / x2)ElseIf x2 0 ThenJ = pi - Atn(y2 / (-x2)ElseIf x2 0 And y2 0 And y2 0 ThenJ = pi / 2ElseIf x2 = 0 And y2 0 ThenJ = 0ElseJ = piEnd IfPicture1.Circle (5000, 5000), Sqr(400 * Int(Text1) 2 + (400 * Int(Text2) 2), , J, K 画圆弧End SubPrivate Sub Command2_Click()Pi

7、cture1.ForeColor = vbRedForm1.ClsDim xi, yi, i, n, F(100) As Integerxi = Text1yi = Text2Form1.CurrentX = 200Form1.CurrentY = 200Print 初始：进给方向 & F(0)=0 & X= & Int(Text1) & Y= & Int(Text2)Do Until xi = Text3 And yi = Text4If xi = 0 And yi 0 Then If F(m) = 0 Then m = m + 1 F(m) = F(m - 1) - 2 * yi + 1

8、yi = yi - 1 Picture1.Line (5000 + 400 * (xi), 5000 - (yi + 1) * 400)-(5000 + 400 * (xi), 5000 - yi * 400) Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & -y F( & m & )= & F(m) & & x=; xi & & y=; yi Else m = m + 1 F(m) = F(m - 1) + 2 * xi + 1 xi = xi + 1 Picture1.Line (5000 + 40

9、0 * (xi - 1), 5000 - yi * 400)-(5000 + 400 * (xi), 5000 - yi * 400) 第一象限圆弧插补 Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & +x F( & m & )= & F(m) & & x=; xi & & y=; yi End If ElseIf xi = 0 Then If F(m) = 0 Then m = m + 1 F(m) = F(m - 1) - 2 * (-xi) + 1 xi = xi + 1 Picture1.Lin

10、e (5000 + 400 * (xi - 1), 5000 - (yi) * 400)-(5000 + 400 * (xi), 5000 - yi * 400) Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & +x F( & m & )= & F(m) & & x=; xi & & y=; yi Else m = m + 1 F(m) = F(m - 1) + 2 * yi + 1 yi = yi + 1 Picture1.Line (5000 + 400 * (xi), 5000 - (yi - 1

11、) * 400)-(5000 + 400 * (xi), 5000 - yi * 400) 第二象限圆弧插补 Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & +y F( & m & )= & F(m) & & x=; xi & & y=; yi End If ElseIf xi = 0 And yi = 0 Then m = m + 1 F(m) = F(m - 1) - 2 * (-yi) + 1 yi = yi + 1 Picture1.Line (5000 + 400 * (xi), 5000 -

12、 (yi - 1) * 400)-(5000 + 400 * (xi), 5000 - (yi) * 400) Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & +y F( & m & )= & F(m) & & x=; xi & & y=; yi Else m = m + 1 F(m) = F(m - 1) + 2 * (-xi) + 1 xi = xi - 1 Picture1.Line (5000 + 400 * (xi + 1), 5000 - yi * 400)-(5000 + 400 * (x

13、i), 5000 - yi * 400) 第三象限圆弧插补 Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & -x F( & m & )= & F(m) & & x=; xi & & y=; yi End If Else If F(m) = 0 Then m = m + 1 F(m) = F(m - 1) - 2 * xi + 1 xi = xi - 1 Picture1.Line (5000 + 400 * (xi + 1), 5000 - (yi) * 400)-(5000 + 400 * (xi), 5000 - yi * 400) Form1.CurrentX = 200 Form1.CurrentY = 200 + m * 300 Print 第 & m & 步 & -x F( & m & )= & F(m) & & x=; xi & & y=; yi Else m = m + 1 F(m) = F(m - 1) + 2 * (-yi) + 1 yi = yi - 1 Picture1.Line (5000 + 400 * (xi), 5000 - (yi + 1)