bchdqAAA仿真数控装置的刀具补偿功能的程序实现

1、、课程设计的内容用计算机高级编程语言（如VRVC+痔）来实现数控装置中的一个基本的功能刀具补偿功能（亦即仿真数控装置的刀具补偿功能），要求对任意给定的某一由直线与圆弧组成的平面几何轮廓：二、课程设计的要求与数据具体的要求如下：（1）能实现四种转接（直线直线、直线圆弧、圆弧直线、圆弧圆弧）；（2）能实现三种过渡方式（伸长型、缩短型、插入型）；（3）能实现左、右刀补（即G41，G42）。（4）在屏幕上绘出刀具的中心轨迹。三、课程设计应完成的工作每个学生应在规定时间内，独立完成所选题目。运用VB编程语言，编写计算机软件在WINDOWS现数控装置的计算机仿真。要求清楚地分析问题、提出算法、确定人机界面

2、、列出流程图，最后用程序验证，完成软件测试，并且提交程序说明书。对选择典型零件编程题目的学生，要求用编写计算机软件的方法解决数控过程的一个问题。可以任选用本人熟悉的一种编程语言，要求清楚地分析问题、提出算法、列出流程图，最后用程序验证，并且提交程序说明书四、课程设计进程安排序号设计各阶段内容地点起止日期11、布置任务，领取课程设计任务书，了解课程设计的目的、内容和要求；了解课程设计的步骤；2、理解本课程设计题目的具体内容要求，根据各自不同情况选择题目；教室第18周第20周2了解和掌握有关软件开发的知识，如VB编程、VC编程、软件工程、软件开发的常用技巧及注息事项；3调查研究，收集资料，查阅文献

3、。学生对所选题目进行论证及确定设计方案，4掌握数控结构设计要求，具体技术指标和计算要求；进行机械结构设计或者软件设计；5进行数控系统和算法的软件编程与开发，初步实现系统的基本功能6通过多个实例来验证和改进系统功能，完善软件界面7对所开发的软件程序进行标识和说明8按要求的格式编制课程设计说明书9课程设计答辩目录一、内容提要2二、软件功能介绍2软件窗口界面2软件功能简介23、 刀具半径补偿知识3概念3主要用途3常用方法34、 刀具半径补偿算法4转接点算法说明4刀具补偿算法6五、仿真结果图8六、设计总结97、 参考文献108、 附录（部分代码）11一、内容提要本文介绍了以VisualBasic为开发

4、工具，制作程序来实现数控装置中的一个基本的功能-刀具补偿功能（亦即仿真数控装置的刀具补偿功能），要求对任意给定的某一由直线与圆弧组成的平面几何轮廓；（ 1） 能实现四种转接（直线-直线，直线-圆弧，圆弧-直线，圆弧-圆弧）；（ 2）能实现三中过渡方式（伸长型，缩短型，插入型）；（ 3）能实现左，右刀补（即G41，G42）。4）在屏幕上绘出刀具的中心轨迹。在程序中讨论了刀具半径补偿的原理，并介绍了如何判断缩短型，伸长型和插入型，如何实现直线与直线，直线与圆弧，圆弧与直线，圆弧与圆弧的转接二、软件功能介绍.本模拟软件有一个窗口，图形界面如下：、软件功能简介:(1)软件能实现任何直线、圆弧交叉多段线

5、段的连接刀具插补加工;(2)能实现直线一直线、直线一圆弧、圆弧一直线、圆弧一圆弧刀具补偿;（3）可以实时在窗体中输入图形参数，实现加工；（4）刀具半径可以变换大小三、刀具半径补偿知识概念：根据按零件轮廓编制的程序和预先设定的偏置参数,数控装置能实时自动生成刀具中心轨迹的功能称为刀具半径补偿功能。根据ISO标准，当刀具中心轨迹在编程轨迹（零件轮廓）前进方向的右边时，称为右刀补，用G42指令实现；反之称为左刀补，用G41指令实现。主要用途数控装置大都具有刀具半径补偿功能，这为程序编制提供了方便。当编制零件加工程序时，可利用刀具半径补偿功能，直接按零件轮廓进行编程，而不需要进行大量的刀具中心运动轨迹

6、的计算。采用刀具半径补偿后，数控系统能自动计算出刀具中心的偏移向量，进而得到偏移后的刀具中心轨迹，并使系统按中心轨迹运行。具体体现在以下两个方面：1） 由于刀具的磨损或因换刀引起的刀具半径变化时，不必重新编程，只须修改相应得偏置参数即可。2） 由于轮廓加工往往不是一道工序能完成的，在粗加工时，要为精加工工序预留加工余量。加工余量的预留可通过修改偏置参数实现，而不必为粗、精加工各编制一个程序。常用方法刀具半径补偿分为B类补偿和C类补偿。B刀补的特点是刀具中心轨迹的段间连接都是以圆弧进行的；C刀补的特点是相邻两段轮廓的刀具中心轨迹之间用直线进行连接。B类补偿只能实现在本程序段内的刀具半径补偿，而对

7、程序段间的过渡不予处理。只有B类刀具半径补偿功能的数控系统，使用时，对有外轮廓（外拐角）部分，必须增加尖角过渡辅助程序段；对内轮廓（内拐角），会产生过切现象。刀具半径C类补偿功能可实现自动尖角过渡，只要给出零件轮廓的程序数据，数控系统就能自动地进行拐角处的刀具中心轨迹交点的计算，采用的算法是一次进行两段直线的处理，C类补偿功能可用于内、外拐角轮廓的加工。四、刀具半径补偿计算转接点算法说明依据编程轨迹OA,AF和刀具中心偏苴量r,计算JCK点的坐标伯。图中OJ.IKAB.AD为刀乂半役勺片OA,AF为编程欠H,都是已知量，k凿角也姑已知的“图2是n级一口线的传接形式。根据刀具半径矢域OJ，FK,

8、AB,AD的模量和方向(垂HJ编程矢量OA和AF)米求出J点，K点，B点,D点的坐标。J(xlLyll)B(x2Zy22)D(x23.y23)K(x33y33)xll=xl*rl*(-(y2-yl)/Sqr(x2-x1)A2+(y2-y1)A2)yll_y1十il*(a2-a1)/Sqi(A2-a1)A2(y2-y1)A2)x22=x2+rl*(-(y2-yl)/Sqr(x2-1)2+(¥2-yl)A2)y22=y2+rl(x2-xl)/Sqr(x2-xl)八2+(y2.yl)A2)x23-x2+rl*(-(y3-y2)/Sqr(x3x2)人2+(y3-y2)A2)y23=y2+rl

9、*(x3-x2)/Sqd(x3-x2)八2(y3-y2)A2)x33=x3+r1*(Yy3.y2)/Sqr(x3x2)人2+(y3y2)人2)y33-y3+rl(x3-x2)/Sqr(x3-x2)A2+(y3-y2)A2)直线方程1：y=kl*x+bl(1)直线方程2:y=k2*x+b2(2)，(2)两式联立求解求出CG,y)2.直线与圜弧交点坐标的求解宜线方程：y=k*x+b(1)fol弧方程：(R+rT2=(x-x0)八2+(y-yO)人2(2)(1),(2)两代联立解得交点BlG,y)3.si弧与ia抽交点坐标的求解圆弧方程上(Rl+r)A2=(x-x01)A2+(y-y01)A2(1)

10、圆弧方程2:(R2+r)A2=(x-x02)A2+(y-y02)A2(2)CD.(2)：两式:联立解得交点Bl(x,y)刀具补偿算法刀具算法即计算各种转接类型的转接点的坐标值，下属刀补算法中，假设刀具半径d,圆弧半径R直线接直线的情况假设第一段直线L1的起点为（xi,yi）,终点为（x2,y2）,第二段直线L2的起点为（X2,y2）,（x3,y3）。第一段直线L1的方向矢量为1x2x1,y2y1?1,022,x2x1y2y1第二段直线L2的方向矢量为x3x2,y3y2?1,0222x3x2y3y2缩短型直线1与直线2终点采用角度计算刀具半径矢量的计算：以rd表示刀具半径矢量，0c1表示对应的直

11、线编程矢量与X轴正向的夹角，则可求出：G41:rdx=rd*(-sin1)rdy=rd*(cos1)G42:rdx=rd*(sin1)rdy=rd*(-cos1)对刀具中心轨迹起点的计算:通过对左、右刀补及各种线型的转接分析,得出其通用的计算公式:Jx=Ox+rdxJy=Oy+rdy对刀具中心轨迹终点的计算:左刀补时:c=1;右刀补时:c=-1;Kx=Fx-c*rd*sin2Ky=Fy+c*rd*cos2因此，只要配合直线的斜率就能计算出转接点的坐标，从而完成刀具补偿。伸长型其计算方法与缩短型一样。插入型刀补进行有两个转接点，采用角度判别计算，其坐标值的计算公式如下：对左刀补(G41)kk=1

12、;对右刀补(G42)kk=-1插入点计算公式为C1x=Ax+rd*(cos1-kk*sin1)C1y=Ay+rd*（sin1+kk*cos1）C2x=Ax+rd*（-cos2-kk*sin2）C2y=Ay+rd*（-sin2+kk*cos2）直线接圆弧的情况假设直线L的起点为（xi,y。，终点为（X2,y2）,圆弧C的起点为（X2,丫2）,终点为（X3,y3）,圆心相对于圆弧起点的坐标为（I,K）。刀补圆弧的半径为：r=rd*kc+Jx2I2y2K2顺圆时kc=1,逆圆时为-1。直线接圆弧的伸长型刀补进行转接点求法如图所示，其中有两个转接点，首先求出两切线夹角的平均数，利用求出的角度计算过渡直

13、线的斜率，从而得出直线与过渡直线的交点与直线与圆弧的交点。.圆弧接直线的情况其原理与直线接圆弧相同。.圆弧接圆弧的情况缩短型刀补进行：圆弧接圆弧的缩短型刀补进行转接点求法很简单，只要求出其刀补圆弧的交点就可以画出刀补情况。伸长型刀补进行:圆弧接圆弧的伸长型刀补进行转接点求法与缩短型相类似。插入型刀补进行:圆弧接圆弧的插入型刀补进行转接点求法与直线圆弧相类似。五、仿真结果图直线与直线刁E和悟硬趣起毋前g唱印转启！KggRIflat晔|Btt-BjlrHttIN"专救总曾R升方武：S左戏卜r右F祁4iEisM直线与圆弧圆弧与圆弧六、设计总结这个基于VB的刀补程序是用几何方法编写的，以矢量

14、夹角为判断标准.程序分为直线一直线；直线一圆弧；圆弧-直线；圆弧一圆弧四大类。我这次编写的程序所用的方法是很基本的几何逻辑原理，都是高中的几何知识，十分浅显.但比较冗长。通过本次课程设计我受益良多，不仅巩固了数控技术的知识，另外，在编程实现所需功能的时候，需运用数学知识，而且需考虑各种可能出现的情况。因此，这次课程设计也提高了个人分析问题的能力。经过这次独立地编写这个刀具半径补偿程序，使我对VB有了更为深刻认识.由于能力有限，本软件有一定的局限性，仿真不具有通用性，程序编写的过程中,有很多地方想的不周密而令到程序不是很严谨,请见谅!今后我会继续努力，做得更好。最后感谢高院长的指导，指导了我们这

15、个课程设计，谢谢老师的辛苦劳动！七参考文献1机床设计手册第三分册2 廖效果.数字控制机床.武汉:华中理工大学出版社.3 廖效果.数控技术.武汉:湖北科学技术出版社.4 刘又午.数字控制机床.北京:机械工业出版社5 龚浦泉.机床电气控制.重庆:重庆大学出版社6 谭浩强.Basic语言结构化程序设计教程.北京:中国科学技术出版社.19907杨林,李继良.VisualBasic编程高手.北京:北京大学出版社.2000八、附录（部分代码）DimaxAsDouble,ayAsDouble,cxAsDouble,cyAsDouble,dxAsDouble,dyAsDouble,exAsDouble,eyA

16、sDouble,rxAsDoubleDimryAsDouble,bxAsDouble,byAsDouble,a1AsDouble,a2AsDouble,a3AsDouble,a4AsDouble,c1AsInteger,c2AsIntegerDimr1AsDouble,r2AsDouble,x1AsDouble,x2AsDouble,x3AsDouble,x4AsDouble,y1AsDouble,y2AsDouble,y3AsDoubleDimy4AsDouble,dAsInteger,dbAsDouble,termAsInteger,l1AsDouble,l2AsDouble,w1AsDo

17、uble,w2AsDoubleDimj11AsDouble,j1AsDouble,j2AsDouble,j3AsDouble,jjAsDouble,jjsAsDouble,jjs1AsDouble,hxAsDoubleDimhyAsDouble,kxAsDouble,kyAsDouble,fxAsDouble,fyAsDouble,pdAsDouble,jxAsDouble,jyAsDouble,jx1AsDoubleDimjy1AsDouble,jx2AsDouble,jy2AsDouble,tana1AsDouble,tana2AsDouble,b1AsDouble,b2AsDouble,

18、bj1AsDoubleDimbj2AsDouble,kaAsInteger,kbAsInteger,kcAsInteger,kdAsInteger,weAsInteger,zzqxAsDouble,zzqyAsDouble,lxAsDoubleDimlyAsDouble,zyaAsDouble,zybAsDouble,zycAsDouble,rr1AsDouble,rr2AsDouble,aa1AsDouble,aa2AsDouble,kc1AsIntegerDimkc2AsInteger,zjAsDouble,jxx1AsDouble,jxx2AsDouble,jyy1AsDouble,jy

19、y2AsDouble,zzjAsDouble.'当非加工角大于90度时SelectCasepCase12rr1=r1+kc1*dbrr2=r2+kc2*dbq=(r1+db*kc1)*(r1+db*kc1)-(r2+db*kc2)*(r2+db*kc2)w=rx-exe=q+w*w-ry*ry+ey*eya11=4*(ry-ey)*(ry-ey)+4*w*wb11=4*e*(ry-ey)-8*w*w*ryc11=e*e-4*w*w*(r1+kc1*db)*(r1+kc1*db)+4*w*w*ry*ryCalljec(a11,b11,c11,jy1,jy2)jy11=jy1jy12=jy

20、1jy13=jy2jy14=jy2jx11=rx+Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy1)*(ry-jy1)jx12=rx-Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy1)*(ry-jy1)jx13=rx+Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy2)*(ry-jy2)jx14=rx-Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy2)*(ry-jy2)Callhuayuan(jx11,jy11,ex,ey,rr5,aa5)Callhuayuan(jx12,jy12,ex,ey,rr6,aa6)Cal

21、lhuayuan(jx13,jy13,ex,ey,rr7,aa7)Callhuayuan(jx14,jy14,ex,ey,rr8,aa8)m=0Ifrr5=rr2Thenjx1=jx11jy1=jy11aaa1=aa5m=1ElseIfrr6=rr2ThenIfm=0Thenjx1=jx12jy1=jy12aaa1=aa6m=1jx2=jx12jy2=jy12aaa2=aa6EndIfElseIfrr7=rr2ThenIfm=0Thenjx1=jx13jy1=jy13aaa1=aa7m=1Elsejx2=jx13jy2=jy13EndIfElseIfrr8=rr2Thenjx2=jx14jy2

22、=jy14aaa2=aa6EndIfEndIfEndIfEndIfIf(a1-aaa1)*Sgn(a1-aaa1)<(a1-aaa2)*Sgn(a1-aaa2)Thenjy=jy1Elsejx=jx2jy=jy2EndIfCallhuayuan(jx,jy,rx,ry,rr1,aa1)Ifc1=0Then(rx,ry),rr1,RGB(255,0,0),a1,aa1Else(rx,ry),rr1,RGB(255,0,0),aa1,a1EndIfCallhuayuan(jx,jy,ex,ey,rr2,aa2)Ifc2=0Then(ex,ey),rr2,RGB(255,0,0),aa2,a4

23、EndIfCase13zj=pd/2+j1Ifzj>8*Atn(1)Thenzj=zj-8*Atn(1)EndIfIfzj<>0Andzj<>2*Atn(1)Andzj<>4*Atn(1)Andzj<>6*Atn(1)Andzj<>8*Atn(1)Thenb1=by-bx*Tan(zj)axx=(1+Tan(zj)*Tan(zj)bxx=(2*(b1-by)*Tan(zj)-2*bx)cxx=bx*bx+(b1-by)*(b1-by)-db*dbCalljec(axx,bxx,cxx,jzx1,jzx2)jzy1=jzx1*Ta

24、n(zj)+b1jzy2=jzx2*Tan(zj)+b1Callpp(jzx1,jzy1,jzx2,jzy2,rx,ry,jzxx,jzyy)bzj=jzyy+jzxx/Tan(zj)aax=(1+1/(Tan(zj)*Tan(zj)bbx=(-1)*2*(bzj-ry)/Tan(zj)-2*rx)ccx=rx*rx+(bzj-ry)*(bzj-ry)-(r1+kc1*db)*(r1+kc1*db)Calljec(aax,bbx,ccx,jx11,jx12)jy11=(-1)*jx11/Tan(zj)+bzjjy12=(-1)*jx12/Tan(zj)+bzjCallpp(jx11,jy11,

25、jx12,jy12,bx,by,jx1,jy1)aaa=(1+1/(Tan(zj)*Tan(zj)bbb=(-1)*2*(bzj-ey)/Tan(zj)-2*ex)ccc=ex*ex+(bzj-ey)*(bzj-ey)-(r2+kc2*db)*(r2+kc2*db)Calljec(aaa,bbb,ccc,jx21,jx22)jy21=(-1)*jx21/Tan(zj)+bzjjy22=(-1)*jx22/Tan(zj)+bzjCallpp(jx21,jy21,jx22,jy22,bx,by,jx2,jy2)Callhuayuan(jx1,jy1,rx,ry,rr1,aa1)Ifc1=0Then

26、(rx,ry),rr1,RGB(255,0,0),a1,aa1Else(rx,ry),rr1,RGB(255,0,0),aa1,a1EndIfCallhuayuan(jx2,jy2,ex,ey,rr2,aa2)Else(ex,ey),rr2,RGB(255,0,0),a4,aa2EndIf(jx1,jy1)-(jx2,jy2),RGB(255,0,0)EndIfEndSelectCase2pd=8*Atn(1)-pdzj=j1-pd/2Ifzj>8*Atn(1)Thenzj=zj-8*Atn(1)EndIfIfpd>2*Atn(1)ThenElsep=13EndIfIfc1=0Th

27、enkc1=1Elsekc1=(-1)EndIfIfc2=0Thenkc2=1Elsekc2=(-1)EndIfElsep=13EndIf'当非加工角大于90度时SelectCasepCase12rr1=r1+kc1*dbrr2=r2+kc2*dbq=(r1+db*kc1)*(r1+db*kc1)-(r2+db*kc2)*(r2+db*kc2)w=rx-exe=q+w*w-ry*ry+ey*eya11=4*(ry-ey)*(ry-ey)+4*w*wb11=4*e*(ry-ey)-8*w*w*ryc11=e*e-4*w*w*(r1+kc1*db)*(r1+kc1*db)+4*w*w*ry

28、*ryCalljec(a11,b11,c11,jy1,jy2)jy11=jy1jy12=jy1jy13=jy2jy14=jy2jx11=rx+Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy1)*(ry-jy1)jx12=rx-Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy1)*(ry-jy1)jx13=rx+Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy2)*(ry-jy2)jx14=rx-Sqr(r1+kc1*db)*(r1+kc1*db)-(ry-jy2)*(ry-jy2)Callhuayuan(jx11,jy11,ex,ey,r

29、r5,aa5)Callhuayuan(jx13,jy13,ex,ey,rr7,aa7)Callhuayuan(jx14,jy14,ex,ey,rr8,aa8)m=0Ifrr5=rr2Thenjx1=jx11jy1=jy11aaa1=aa5m=1ElseIfrr6=rr2ThenIfm=0Thenjx1=jx12jy1=jy12Elsejx2=jx12jy2=jy12aaa2=aa6EndIfElseIfrr7=rr2ThenIfm=0Thenjx1=jx13jy1=jy13aaa1=aa7m=1Elseaaa2=aa7EndIfElseIfrr8=rr2Thenjx2=jx14jy2=jy14

30、aaa2=aa6EndIfEndIfEndIfEndIfIf(a1-aaa1)*Sgn(a1-aaa1)<(a1-aaa2)*Sgn(a1-aaa2)Thenjx=jx1jy=jy1Elsejx=jx2jy=jy2EndIfCallhuayuan(jx,jy,rx,ry,rr1,aa1)Ifc1=0Then(rx,ry),rr1,RGB(255,0,0),a1,aa1Else(rx,ry),rr1,RGB(255,0,0),aa1,a1EndIfCallhuayuan(jx,jy,ex,ey,rr2,aa2)(ex,ey),rr2,RGB(255,0,0),aa2,a4Else(ex,e

31、y),rr2,RGB(255,0,0),a4,aa2EndIfCase13zj=pd/2+j1Ifzj>8*Atn(1)Thenzj=zj-8*Atn(1)EndIfIfzj<>0Andzj<>2*Atn(1)Andzj<>4*Atn(1)Andzj<>6*Atn(1)Andzj<>8*Atn(1)Thenb1=by-bx*Tan(zj)axx=(1+Tan(zj)*Tan(zj)bxx=(2*(b1-by)*Tan(zj)-2*bx)cxx=bx*bx+(b1-by)*(b1-by)-db*dbCalljec(axx,bxx,

32、cxx,jzx1,jzx2)jzy1=jzx1*Tan(zj)+b1jzy2=jzx2*Tan(zj)+b1Callpp(jzx1,jzy1,jzx2,jzy2,rx,ry,jzxx,jzyy)bzj=jzyy+jzxx/Tan(zj)aax=(1+1/(Tan(zj)*Tan(zj)bbx=(-1)*2*(bzj-ry)/Tan(zj)-2*rx)ccx=rx*rx+(bzj-ry)*(bzj-ry)-(r1+kc1*db)*(r1+kc1*db)Calljec(aax,bbx,ccx,jx11,jx12)jy11=(-1)*jx11/Tan(zj)+bzjjy12=(-1)*jx12/Ta

33、n(zj)+bzjCallpp(jx11,jy11,jx12,jy12,bx,by,jx1,jy1)aaa=(1+1/(Tan(zj)*Tan(zj)bbb=(-1)*2*(bzj-ey)/Tan(zj)-2*ex)ccc=ex*ex+(bzj-ey)*(bzj-ey)-(r2+kc2*db)*(r2+kc2*db)Calljec(aaa,bbb,ccc,jx21,jx22)jy21=(-1)*jx21/Tan(zj)+bzjjy22=(-1)*jx22/Tan(zj)+bzjCallpp(jx21,jy21,jx22,jy22,bx,by,jx2,jy2)Callhuayuan(jx1,jy

34、1,rx,ry,rr1,aa1)Ifc1=0Then(rx,ry),rr1,RGB(255,0,0),a1,aa1Else(rx,ry),rr1,RGB(255,0,0),aa1,a1EndIfCallhuayuan(jx2,jy2,ex,ey,rr2,aa2)Ifc2=0Then(ex,ey),rr2,RGB(255,0,0),aa2,a4Else(ex,ey),rr2,RGB(255,0,0),a4,aa2EndIf(jx1,jy1)-(jx2,jy2),RGB(255,0,0)EndIfEndSelectEndSelectEndSubPrivateSubCommand2_Click()=True=False=False=F