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("请检查你画圆的终点是否在圆周上!是否只以终点的X坐标作为标准?", vbYesNo, "错误")
If ErrorR = vbNo Then
StopRun = True
- 上一篇:企业物流系统规划及合理化研究
- 下一篇:用于生物柴油制备的微波炉搅拌装置设计
-
-
-
-
-
-
-
中考体育项目与体育教学合理结合的研究
电站锅炉暖风器设计任务书
乳业同业并购式全产业链...
河岸冲刷和泥沙淤积的监测国内外研究现状
大众媒体对公共政策制定的影响
杂拟谷盗体内共生菌沃尔...
酸性水汽提装置总汽提塔设计+CAD图纸
java+mysql车辆管理系统的设计+源代码
十二层带中心支撑钢结构...
当代大学生慈善意识研究+文献综述