《南京工程学院数控原理与系统课程设计_直线-直线刀具补偿刀补程序源代码.》由会员分享，可在线阅读，更多相关《南京工程学院数控原理与系统课程设计_直线-直线刀具补偿刀补程序源代码.（11页珍藏版）》请在金锄头文库上搜索。
1、 数控122 太劣阿昕哥四、程序设计Public X0 As Double, Y0 As Double, X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, R As DoublePublic Xs1 As Double, Ys1 As Double, Xs2 As Double, Ys2 As DoublePublic Ori As IntegerPublic Xl1 As Double, Yl1 As Double, Xl2 As Double, Yl2 As Double, dX1 As Double, dY1 As Doubl
2、e, dX2 As Double, dY2 As Double, d1 As Double, d2 As DoublePrivate Sub Command1_Click()Dim X1_FWD As Integer, Y1_FWD As Integer, X2_FWD As Integer, Y2_FWD As IntegerDim alfa As Double, beta As DoubleCall PaintAxis绘制补偿前图像Picture1.ForeColor = vbBluePicture1.DrawWidth = 1Picture1.Line (X0, Y0)-(X1, Y1)
3、Picture1.Line (X1, Y1)-(X2, Y2)算法设计计算坐标增量dX1 = X1 - X0dY1 = Y1 - Y0dX2 = X2 - X1dY2 = Y2 - Y1alfa = Atn(dY1 / dX1)beta = Atn(dY2 / dX2)If dX1 = 0 ThenX1_FWD = 1ElseX1_FWD = -1End IfIf dX2 = 0 ThenX2_FWD = 1ElseX2_FWD = -1End IfIf dY1 = 0 ThenY1_FWD = 1ElseY1_FWD = -1End IfIf dY2 = 0 ThenY2_FWD = 1El
4、seY2_FWD = -1End If计算d1,d2d1 = Sqr(dX1 2 + dY1 2)d2 = Sqr(dX2 2 + dY2 2)计算方向矢量投影Xl1 = dX1 / d1Yl1 = dY1 / d1Xl2 = dX2 / d2Yl2 = dY2 / d2判断缩短型,伸长型,插入型If Ori * (Yl2 * Xl1 - Xl2 * Yl1) = 0 Then 缩短型 刀补建立 If Combo1.ListIndex = 0 And Ori * (Yl2 * Xl1 - Xl2 * Yl1) 0 Then Xs1 = X1 - R * Ori * Yl2 Ys1 = Y1 +
5、 R * Ori * Xl2 X_0p.Text = X0 Y_0p.Text = Y0 X_s1.Text = Xs1 Y_s1.Text = Ys1 X_2p.Text = Xs1 + dX2 Y_2p.Text = Ys1 + dY2 Picture1.ForeColor = vbMagenta Picture1.Line (X0, Y0)-(Xs1, Ys1) Picture1.Line (Xs1, Ys1)-(Xs1 + dX2, Ys1 + dY2) 刀补进行 ElseIf Combo1.ListIndex = 1 Then If Yl2 * Xl1 - Xl2 * Yl1 = 0
6、 Then l1与l2共线 Xs1 = X1 - R * Ori * Yl1 Ys1 = Y1 + R * Ori * Xl1 X_0p.Text = Xs1 - dX1 Y_0p.Text = Ys1 - dY1 X_s1.Text = Xs1 Y_s1.Text = Ys1 X_2p.Text = Xs1 + dX2 Y_2p.Text = Ys1 + dY2 Picture1.ForeColor = vbMagenta Picture1.Line (Xs1 - dX1, Ys1 - dY1)-(Xs1, Ys1) Picture1.Line (Xs1, Ys1)-(Xs1 + dX2,
7、Ys1 + dY2) Else l1与l2不共线 Xs1 = X1 + (Xl2 - Xl1) * Ori * R / (Xl1 * Yl2 - Xl2 * Yl1) Ys1 = Y1 + (Yl2 - Yl1) * Ori * R / (Xl1 * Yl2 - Xl2 * Yl1) X_0p.Text = Xs1 - dX1 Y_0p.Text = Ys1 - dY1 X_s1.Text = Xs1 Y_s1.Text = Ys1 X_2p.Text = Xs1 + dX2 Y_2p.Text = Ys1 + dY2 Picture1.ForeColor = vbMagenta Pictur
8、e1.Line (Xs1 - dX1, Ys1 - dY1)-(Xs1, Ys1) Picture1.Line (Xs1, Ys1)-(Xs1 + dX2, Ys1 + dY2) End If 刀补撤销 ElseIf Combo1.ListIndex = 2 And Ori * (Yl2 * Xl1 - Xl2 * Yl1) 0 Then Xs1 = X1 - R * Ori * Yl1 Ys1 = Y1 + R * Ori * Xl1 X_0p.Text = Xs1 - dX1 Y_0p.Text = Ys1 - dY1 X_s1.Text = Xs1 Y_s1.Text = Ys1 X_2
9、p.Text = X2 Y_2p.Text = Y2 Picture1.ForeColor = vbMagenta Picture1.Line (Xs1 - dX1, Ys1 - dY1)-(Xs1, Ys1) Picture1.Line (Xs1, Ys1)-(X2, Y2) End IfElseIf Ori * (Yl2 * Xl1 - Xl2 * Yl1) = 0 Then 伸长型 刀补建立 If Combo1.ListIndex = 0 Then 第一对转接点 Xs1 = X1 - R * Ori * Yl1 Ys1 = Y1 + R * Ori * Yl1 第二对转接点 Xs2 =
10、X1 + (Xl2 - Xl1) * R * Ori / (Xl1 * Yl2 - Xl2 * Yl1) Ys2 = Y1 + (Yl2 - Yl1) * R * Ori / (Xl1 * Yl2 - Xl2 * Yl1) 输出坐标 X0,Y0 X_0p.Text = X0 Y_0p.Text = Y0 Xs1,Ys1 X_s1.Text = Xs1 Y_s1.Text = Ys1 Xs2,Ys2 X_s2.Text = Xs2 Y_s2.Text = Ys2 X2 Y2 X_2p.Text = Xs2 + dX2 Y_2p.Text = Ys2 + dY2 绘图 Picture1.ForeC
11、olor = vbMagenta Picture1.Line (X0, Y0)-(Xs1, Ys1) Picture1.Line (Xs1, Ys1)-(Xs2, Ys2) Picture1.Line (Xs2, Ys2)-(Xs2 + dX2, Ys2 + dY2) 刀补进行 ElseIf Combo1.ListIndex = 1 Then Xs1 = X1 + (Xl2 - Xl1) * R * Ori / (Xl1 * Yl2 - Xl2 * Yl1) Ys1 = Y1 + (Yl2 - Yl1) * R * Ori / (Xl1 * Yl2 - Xl2 * Yl1) 输出坐标 X0,Y
12、0 X_0p.Text = X0 Y_0p.Text = Y0 Xs1,Ys1 X_s1.Text = Xs1 Y_s1.Text = Ys1 X2 Y2 X_2p.Text = Xs2 + dX2 Y_2p.Text = Ys2 + dY2 绘图 Picture1.ForeColor = vbMagenta Picture1.Line (Xs1 - dX1, Ys1 - dY1)-(Xs1, Ys1) Picture1.Line (Xs1, Ys1)-(Xs1 + dX2, Ys1 + dY2) 刀补撤销 ElseIf Combo1.ListIndex = 2 Then Xs1 = X1 + (Xl2 - Xl1) * R * Ori / (Xl1 * Yl2 - Xl2 * Yl1) Ys1 = Y1 + (Yl2 - Yl1) * R * Ori / (Xl1 * Yl2 - Xl2 * Yl1) Xs2 = X1 - R * Ori * Yl2 Ys2 = Y1 + R * Ori * Xl2 输出坐标 X0,Y0 X_0p.Text = Xs1 - dX1 Y_0p.Text
