宏程序编程例子入门

宏程序编程例题椭圆解析：椭圆关于中心、坐标轴都是对称的，坐标轴是对称轴，原点是对称中心。对称中心叫做椭圆中心。椭圆和X轴有2两个交点，和Y轴有两个交点，这四个交点叫做椭圆顶点。椭圆标准方程：x2/a2+y2/b2=1(a为长半轴，b为短半轴，a>b>0)椭圆参数方程：x=a*cosMy=b*sinM(a为长半轴，b为短半轴，a>b>0，M是夹角，是椭圆上任意一点到椭圆中心连线与X正半轴所成的夹角，顺时针为负，逆时针为正。)二、数控车床：根据椭圆标准方程：x2/a2+y2/b2=1(a为长半轴，b为短半轴，a>b>0)根据椭圆参数方程：x=a*cosMy=b*sinM(a为长半轴，b为短半轴，a>b>0，M是夹角，是椭圆上任意一点到椭圆中心连线与X正半轴所成的夹角，顺时针为负，逆时针为正。)可得车床标准方程：z2/a2+x2/b2=1(a为长半轴，b为短半轴，a>b>0)可得椭圆参数方程：z=a*cosMx=2b*sinM(a为长半轴，2b为短轴（直径），a>b>0，M是夹角，是椭圆上任意一点到椭圆中心连线与Z正半轴所成的夹角，顺时针为负，逆时针为正。)通过标准方程推导X的表达式：x=b/a*SQRT[a*a–z*z]a、b为长、短半轴是常数表示。（一）车床车削椭圆通常是加工椭圆X正方向部分（回转体），用标准方程车削椭圆时，通常设Z为自变量，通过方程把X表达出来，最多就是车削到180度椭圆，然后利用G01插补拟合成椭圆。通过椭圆车床标准方程推导，可以有如下过程：z2/a2+x2/b2=1可推导x2/b2=1-[z2/a2]=[a2–z2]/a2可推导x2=[b2/a2]*[a2–z2]x=b/a*SQRT[a2–z2]转换为数控格式就为x=2b/a*SQRT[a*a–z*z]a为长半轴、2b为短轴（直径编程）常数表示。设z为自变量#1，则x为因变量#2，根据上述公式有：#2=b/a*SQRT[a*a-#1*#1]例题：长半轴a=5，短半轴b=4的椭圆。有以下几种情况：1、#1为z，为自变量：则#1=5（#1=5表示从Z正半轴开始加工。）N10#2=8/5*SQRT[5*5-#1*#1]G01X[#2+D]Z[#2+E]F0.2（X正，Z正，表示走逆时针,D、E表示椭圆中心X、Z绝对坐标）#1=#1-1IF[#1GE0]GOTO10这是加工第一象限的椭圆，90度椭圆。IF[#1GE-5]GOTO10这是从第一象限加工到第二象限的椭圆，180度椭圆。2、#1为x，为自变量：则#1=-5（#1=-5表示从Z轴负方向开始加工。）N10#2=8/5*SQRT[5*5-#1*#1]G01X[#2+D]Z[-#2+E]F0.2（X正，Z负，表示走顺时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1+1IF[#1LE0]GOTO10这是加工第二象限的椭圆，90度椭圆。通常这是利用反刀加工。IF[#1LE5]GOTO10这是从第二象限加工到第一象限的椭圆，180度椭圆。正反刀都可以加工。关于D、E椭圆中心坐标位置的说明，D为直径表达，E的位置有三种：当E＝-a时（[#2+E]=0）,椭圆中心离工件原点相差一个长半轴距离。E=-a+Δ时（[#2+E]>0），椭圆中心在Z轴上向右偏移，中心离工件原点距离小于一个长半轴。E=-a-Δ时（[#2+E]<0），椭圆中心在Z轴上向左偏移，中心离工件原点距离大于一个长半轴。（二）车通过参数方程加工椭圆可以加工0-180度内任意角度，直接通过参数方程加工即可。例题：长半轴a=5，短半轴b=4的椭圆。有以下几种情况：1、设#1为M，为角度自变量，x、z为因变量：则#1=0（#1=0表示从0度开始加工，即Z正半轴开始加工,若写#1=90表示从X正半轴开始加工，其他以此类推）N10Z=#2=a*COS[#1]X=#3=2b*SIN[#1]G01X[#3+D]Z[#2+E]F0.1（X正，Z正，表示走逆时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1+1(+表示走逆时针方向)IF[#1LE90]GOTO10这是加工第一象限部分，90度椭圆。IF[#1LE180]GOTO10这是从第一象限加工到第二象限的椭圆，180度椭圆。如果写LE180就是加工0-180度椭圆，其他任意角度以此类推。2、设#1为M，为角度自变量，x、z为因变量：则#1=180（#1=180表示从180度开始加工，即Z负半轴开始加工，其他任意角度以此类推）N10Z=#2=a*COS[#1]X=#3=2b*SIN[#1]G01X[#3+D]Z[-#2+E]F0.1（X正，Z负，表示走顺时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1-1(-表示走顺时针方向)IF[#1GE90]GOTO10这是加工第二象限部分，90度椭圆。通常这是利用反刀加工。IF[#1GE0]GOTO10这是从第二象限加工到第一象限的椭圆，180度椭圆。正反刀都可以加工。通过可以通过参数方程和标准加工，通过上述举例可以发现，参数方程编程简单，程序简洁，可以加工任意角度的椭圆。关于椭圆的编程介绍到此为止。方法1O0001N010N020T0101N030S600N040G0X53ZN050G73U25W0N060G73P70Q210U0.5WN070G00XN080G42GN090X19.8Z-2N100Z-18N110X20N120Z-25N130#101=20N140WHILE[#101GE0]DO1N150#102=18*SQRT[1-[#101*#101]/[20*20]]N160G01X[#102]N170#101=#101-0.1N180END1N19N200Z-60N210X50N220G70P70QN230G40G00X100N240T0100N25%方法2O0001N010N020T0101N030S600N040G0X53ZN050G73U25W0N060G73P70Q200U0.5WN070G00XN080G42GN090X19.8Z-2N100Z-18N110X20N120Z-25N130#101=20N140#102=18*SQRT[1-[#101*#101]/[20*20]]N150G01X[#102]N160#101=#101-0.1N170IF[#101GE0]GOTO140N18N190Z-60N200X50N210G70P70QN230G40G00X100N240T0100N25%图形2切槽与螺纹均不编图形3O0001N010N020T0101N030S700N040G00X53ZN050G73U25W0N060G73P70Q230U0.5WN070G00X0N080G42GN090G03X16Z-8N100G01N110X20Z-8.3N120Z-12.14N130X22.98N140#101=0N150#102=30*SQRT[1-[#101*#101]/[20*20]]N160G01X[52.98-#102]N170#101=#101-0.1N180IF[#101GE-12.86]GOTO150N190G01N200X35.8Z-27N210Z-50N220X46N230X48Z-51N240G70P70N250G40G00N260T0100N270N280%图形3切槽与螺纹均不编图形4O0001N010N020T0101N030S700N040G00X52ZN050G73U12W0N060G73P70Q200U0.5WN070G00XN080G42GN090G01X30N100G01N110X36N120G03X40Z-14.N130Z-17.445N140#101=14N150#102=16*SQRT[1-[#101*#101]/[14*14]]N160G01X[44-#102]N170#101=#101-0.1N180IF[#101GE-14]GOTO150N190G01N200Z-51N210G70P70N220G40GN230T0100N24N250%图形4切槽与螺纹均不编图形5O0001N010N020T0101N030S700N040G00X62ZN050G73U13W0N060G73P70Q190U0.5WN070G00XN080G42GN090G01X52N100GN110#101=25N120#102=24*SQRT[1-[#101*#101]/[25*25]]N130G01X[58-#102N140#101=#101-0.1N150IF[#101GE0]GOTO120N160N170X51N180X52Z-44N190X60N200G70P70N210G40GN220T0100N23N240图形6O0001N010N020T0101N030S600N040G0X53ZN050G73U10W0N060G73P70Q180U0.5WN070G00N080G42G01Z0N090#101=0N100#102=38*SQRT[1-[#101*#101]/[50*50]]N110G01X[#102]N120#101=#101-0.1N130IF[#101GE-30.7]GOTO100N140G01N150G02X38Z-40N160G01N170X48Z-40.5N180X50N190G70P70N200G40G00X100N210T0100N220N230模拟轨迹O0001N010N020T0101N030S600N040G0X73ZN050G73U