3、所需圆弧的误差较大。若步长缩小,则误差也跟着缩小,实际加工时,进给步长一般为1微米,故实际误差时很小的。②计算步骤由上述可以看出,拖板每进给一步都要完成四个工作节拍。偏差判别:判别偏差符号,确定加工点是在要求图形外还是在图形内。工作台进给:根据偏差情况,确定控制X坐标(或Y坐标)进给一步,使加工点向规定的图形靠拢,以缩小偏差。偏差计算:计算进给一步后加工点与要求图形的新偏差,作为下一步偏差判别的依据。终点判断:判定是否到达终点,如果未达到终点,继续插补,如果以到达终点,停止插补。计算步骤的框图如下所示:图2-2逐点比较法插补计算步骤③插补运算公式插补运算公式表加工指令F≥0F<0进给方向运
4、算进给方向运算圆弧SR1,SR3NR2,NR4△YF-2Y+1→FY-1→Y△XF+2X+1→FX+1→XSR2,SR4NR1,NR3△XF-2X+1→FX-1→X△YF+2Y+1→FY+1→Y斜线L1,L3△XF-Y→F△YF+X→FL2,L4△YF-X→F△XF+Y→F四、实验内容及步骤应用VB设计逐点比较法的插补运算程序,在计算机屏幕上画出轨迹图。1程序界面采用图形显示方式,动态的显示出直线和圆弧的插补过程。界面如下所示:7图2-3程序参考界面2程序流程图图2-4逐点比较法第一象限直线插补流程图73程序源代码DimER,LSx,LSy,LEx,LEy,CSx,CSy,CEx,CEy,
5、RPrivateSubCommand1_Click()Picture1.ClsER=0LSx=IsNum(Text1.Text)LSy=IsNum(Text2.Text)LEx=IsNum(Text3.Text)LEy=IsNum(Text4.Text)IfAbs(LSx)>Abs(LSy)ThenMax1=Abs(LSx)ElseMax1=Abs(LSy)IfAbs(LEx)>Abs(LEy)Thenmax2=Abs(LEx)Elsemax2=Abs(LEy)IfMax1>max2ThenMax=Max1ElseMax=max2Max=Max+3IfER=1OrER=2ThenMsgBo
6、x("坐标值中含有非法字符!")IfER=3ThenMsgBox("所给坐标值不是整数!请输入整数")IfText1.Text<>""AndText2.Text<>""AndText3.Text<>""AndText4.Text<>""ThenPicture1.Scale(-Max,Max)-(Max,-Max)Picture1.Line(-Max,0)-(Max,0),RGB(0,0,0)Picture1.Line(0,Max)-(0,-Max),RGB(0,0,0)Fori=-MaxToMaxPicture1.Line(i,0.2)-(i,0),RGB(0,0,0)Picture1.L
7、ine(0,i)-(0.3,i),RGB(0,0,0)NextiPicture1.Line(LSx,LSy)-(LEx,LEy),RGB(0,0,0)ElseMsgBox("请输入坐标值!")EndIfEndSubPrivateSubCommand2_Click()x0=0:y0=0X1=LEx-LSx:Y1=LEy-LSyIfX1>0AndY1>0Thenquadrant=1IfX1>0AndY1<0Thenquadr