数控系统动画仿真软件设计+仿真程序(4)
DoEvents
Next L
Loop
If VIEWXYZ = True Then
LX1 = X1 * Sin(45 * 6.28 / 360) * Cos(225 * 6.28 / 360) + Y1
LX2 = X2 * Sin(45 * 6.28 / 360) * Cos(225 * 6.28 / 360) + Y2
LY1 = X1 * Sin(45 * 6.28 / 360) * Sin(225 * 6.28 / 360) + CurrentNZ
LY2 = X2 * Sin(45 * 6.28 / 360) * Sin(225 * 6.28 / 360) + NEWZ
frmmain.Line1.X1 = LX2 * SCALESIZE
frmmain.Line1.X2 = frmmain.Line1.X1
frmmain.Line1.Y1 = LY2 * SCALESIZE
frmmain.Line1.Y2 = frmmain.Line1.Y1 + 300
If CurrentNZ = NEWZ Then
frmmain.PicDraw.Line (LX1 * SCALESIZE, LY1 * SCALESIZE)-(LX2 * SCALESIZE, LY2 * SCALESIZE), vbWhite
Else
frmmain.PicDraw.Line (LX1 * SCALESIZE, LY1 * SCALESIZE)-(LX2 * SCALESIZE, LY2 * SCALESIZE), vbWhite
End If
CurrentNZ = NEWZ
Else
frmmain.Shape1.Left = X2 * SCALESIZE - 35
frmmain.Shape1.Top = Y2 * SCALESIZE + 50
frmmain.PicDraw.Line (X1 * SCALESIZE, Y1 * SCALESIZE)-(X2 * SCALESIZE, Y2 * SCALESIZE)
End If
For L = CurrentNF * 20 To 20000 '速度控制
DoEvents
Next L
End Sub
2.2 圆弧插补模块
2.2.1 圆弧插补计算方法
以加工第一象限逆时针圆弧为例，如图2.4所示，
若点P（Xi,Yi）正好落在圆弧上，则有
Xi2+Yi2=X02+Y02=R2
若点P（Xi,Yi）在圆弧外侧，则有
Xi2+Yi2＞X02+Y02=R2
若点P（Xi,Yi）在圆弧内侧，则有
Xi2+Yi2＜X02+Y02=R2
上面各式可分别写成：
（Xi2—X02）+（Yi2—Y02）=0在圆弧上
（Xi2—X02）+（Yi2—Y02）＞0在圆弧外侧
（Xi2—X02）+（Yi2—Y02）＜0在圆弧内侧
逐点比较法圆弧插补的偏差判别式定义为：
F= Xi2+ Yi2—R2
设点P（Xi,Yi）在圆弧外侧或圆弧上，( F≥0 )可计算出新加工点偏差为
Fi+1=Fi—2Xi+1
设点P（Xi,Yi）在圆弧内侧，( F<0 )可计算出新加工点偏差为
Fi+1=Fi+2Yi+1
2.2.2 终点判断的方法
设置减法计数器，在圆弧绘制的过程中，动点与终点的距离接近时，当其距离小于脉冲当量时，给定一个误差允许的范围，当值小于这个范围，判断所绘图像到达终点。
2.2.3 其他象限圆弧插补计算
四个象限中其它象限都与第一象限或关于坐标轴对称或是关于原心对称，所以可以按第一象限逆时针圆弧插补的圆偏差公式进行计算，计算的方法完全一致，但进给方向要根据象限和顺逆进行改变。
2.1.4 直线插补流程图（如下图）
2.1.5 直线插源代码
Public Sub DrawCircle(X As Single, Y As Single, I As Single, J As Single, CircleTime As Boolean) '无插补画圆
Dim SPXY As Single, EPXY As Single, PointX(3) As Single, PointY(3) As Single, L As Single
Dim CallFOR As Single
On Error GoTo errhand
If StopRun = True Then
Exit Sub
End If
If (X - I) ^ 2 + (Y - J) ^ 2 <> CurrentNR ^ 2 And UserRTODC = False Then
Dim ErrorR As Integer
ErrorR = MsgBox("请检查你画圆的终点是否在圆周上！是否只以终点的Ｘ坐标作为标准？", vbYesNo, "错误")
If ErrorR = vbNo Then
StopRun = True
上一篇：企业物流系统规划及合理化研究