宏程序编程例子入门

1、宏程序编程例题椭圆解析：椭圆关于中心、坐标轴都是对称的，坐标轴是对称轴，原点是对称中心。对称中心叫做椭圆中心。椭圆和X轴有2两个交点，和丫轴有两个交点，这四个交点叫做椭圆顶点。椭圆标准方程：x2/a2+y2/b2=1（a为长半轴，b为短半轴，a>b>0）椭圆参数方程：x=a*cosMy=b*sinM（a为长半轴，b为短半轴，a>b>0,M是夹角，是椭圆上任意一点到椭圆中心连线与X正半轴所成的夹角，顺时针为负，逆时针为正。）二、数控车床：根据椭圆标7B方程：x2/a2+y2/b2=1（a为长半轴，b为短半轴，a>b>0）根据椭圆参数方程：x=a*cosMy=b

2、*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*SQRTa*az*za、b为长、短半轴是常数表示。（一）车床车削椭圆通常是加工椭圆X正方向部分（回转体），用标准方程车削

3、椭圆时，通常设Z为自变量，通过方程把X表达出来，最多就是车削到180度椭圆，然后利用G01插补拟合成椭圆。通过椭圆车床标准方程推导，可以有如下过程：z2/a2+x2/b2=1可推导x2/b2=1-z2/a2=a2z2/a2可推导x2=b2/a2*a2z2x=b/a*SQRTa2z2转换为数控格式就为x=2b/a*SQRTa*az*za为长半轴、2b为短轴（直径编程）常数表示。设z为自变量#1,贝ijx为因变量#2,根据上述公式有：#2=b/a*SQRTa*a-#1*#1例题：长半轴a=5,短半轴b=4的椭圆。有以下几种情况：1、 #1为z,为自变量：则#1=5（#1=5表示从Z正半轴开始加工。

4、）N10#2=8/5*SQRT5*5-#1*#1G01X#2+DZ#2+E（X正，Z正，表示走逆时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1-1IF#1GE0GOTO10这是加工第一象限的椭圆，90度椭圆。IF#1GE-5GOTO10这是从第一象限加工到第二象限的椭圆，180度椭圆。2、 #1为x,为自变量：则#1=-5（#1=-5表示从Z轴负方向开始加工。）N10#2=8/5*SQRT5*5-#1*#1G01X#2+DZ-#2+E（X正，Z负，表示走顺时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1+1IF#1LE0GOTO10这是加工第二象限的椭圆，90度椭圆。通常这是利用反刀加工

5、。IF#1LE5GOTO10这是从第二象限加工到第一象限的椭圆，180度椭圆。正反刀都可以加工。关于D、E椭圆中心坐标位置的说明，D为直径表达，E的位置有三种：当E=-a时（#2+E=0）,椭圆中心离工件原点相差一个长半轴距离。E=-a+A时（#2+E>0）,椭圆中心在Z轴上向右偏移，中心离工件原点距离小于一个长半轴。E=-a-A时（#2+E<0）,椭圆中心在Z轴上向左偏移，中心离工件原点距离大于一个长半轴。（二）车通过参数方程加工椭圆可以加工0-180度内任意角度，直接通过参数方程加工即可。例题：长半轴a=5,短半轴b=4的椭圆。有以下几种情况：1、设#1为M,为角度自变量，x、

6、z为因变量：则#1=0（#1=0表示从0度开始加工，即Z正半轴开始加工，若写#1=90表示从X正半轴开始加工，其他以此类推）N10Z=#2=a*COS#1X=#3=2b*SIN#1G01X#3+DZ#2+E（X正，Z正，表示走逆时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1+1（+表示走逆时针方向）IF#1LE90GOTO10这是加工第一象限部分，90度椭圆。IF#1LE180GOTO10这是从第一象限加工到第二象限的椭圆，180度椭圆。如果写LE180就是加工0-180度椭圆，其他任意角度以此类推。2、设#1为M,为角度自变量，x、z为因变量：则#1=180（#1=180表示从180度开

7、始加工，即Z负半轴开始加工，其他任意角度以此类推）N10Z=#2=a*COS#1X=#3=2b*SIN#1G01X#3+DZ-#2+E（X正，Z负，表示走顺时针，D、E表示椭圆中心X、Z绝对坐标）#1=#1-1（-表示走顺时针方向）IF#1GE90GOTO10这是加工第二象限部分，90度椭圆。通常这是利用反刀加工。IF#1GE0GOTO10这是从第二象限加工到第一象限的椭圆，180度椭圆。正反刀都可以加工。通过可以通过参数方程和标准加工，通过上述举例可以发现，参数方程编程简单，程序简洁，可以加工任意角度的椭圆。关于椭圆的编程介绍到此为止。椭圆例题图形1方法1O0001N010G99G97G21

8、N020T0101N030S600M03N040G0X45Z5M08N050G73U23W0R21N060G73P70Q1900.1FN070G00X0S1000N080G42G010FN090#101=20N100WHILE#101GE0DO1N110#102=26*SQRT1-#101*#101/20*20N120G01X#102Z#101-20N130#101=#N140END1N150Z-30N160G02X36Z-35R5N170G01X38N180X42Z-37N190X45N200G70P70Q190N210G40G00X100Z100M09N220T0100M05N230M30

9、%方法2O0002N010G99G97G21N020T0101N030S600M03N040G0X45Z5M08N050G73U23W0R21N060G73P70Q1800.1FN070G00X0S1000N080G42G010FN090#101=20N100#102=26*SQRT1-#101*#101/20*20N110G01X#102Z#101-20N120#101=#N130IF#101GE0GOTO100N140Z-30N150G02X36Z-35R5N160G01X38N170X42Z-37N180X45N190G70P70Q180N200G40G00X100Z100M09N210

10、T0100M05N220M30图形2方法1O0001N010G99G97G21N020T0101N030S600M03N040G0X53Z5M08N050G73U25W0R23N060G73P70Q2100.1FN070G00S1000N080G42G010FN090Z-2N100Z-18N110X20N120Z-25N130#101=20N140WHILE#101GE0DO1N150#102=18*SQRT1-#101*#101/20*20N160G01X#102Z#101-45N170#101=#N180END1N190G01X38N200Z-60N210X50N220G70P70Q210

11、N230G40G00X100Z100M09N240T0100M05N250M30%方法2O0001N010G99G97G21N020T0101N030S600M03N040G0X53Z5M08N050G73U25W0R23N060G73P70Q2000.1FN070G00S1000N080G42G010FN090Z-2N100Z-18N110X20N120Z-25N130#101=20N140#102=18*SQRT1-#101*#101/20*20N150G01X#102Z#101-45N160#101=#N170IF#101GE0GOTO140N180G01X38N190Z-60N200X

12、50N210G70P70Q200N230G40G00X100Z100M09N240T0100M05N250M30%图形2切槽与螺纹均不编图形3O0001N010G99G97G21N020T0101N030S700M03N040G00X53Z2M08N050G73U25W0R23N060G73P70Q2300.1FN070G00X0S1000N080G42G010FN090G03X16Z-8R8N100G01N110X20N120N130N140#101=0N150#102=30*SQRT1-#101*#101/20*20N160G01X52.98-#102Z#N170#101=#N180IF#

13、GOTO150N190G01X32N200Z-27N210Z-50N220X46N230X48Z-51N240G70P70Q230N250G40G00X100Z100M09N260T0100M05N270M30N280%图形3切槽与螺纹均不编图形4O0001N010G99G97G21N020T0101N030S700M03N040G00X52Z2M08N050G73U12W0R10N060G73P70Q2000.1FN070G00X26S1000N080G42G010FN090G01X30Z-2N100G01Z-5N110X36N120G03X40R20N130N140#101=14N150#

14、102=16*SQRT1-#101*#101/14*14N160G01X44-#102Z#101-31N170#101=#N180IF#101GE-14GOTO150N190G01X44N200Z-51N210G70P70Q200N220G40G00X100Z100M09N230T0100M05N240M30N250%图形4切槽与螺纹均不编图形5O0001N010G99G97G21N020T0101N030S700M03N040G00X62Z2M08N050G73U13W0R10N060G73P70Q1900.1FN070G00X51S1000N080G42G010FN090G01X52N10

15、0G01N110#101=25N120#102=24*SQRT1-#101*#101/25*25N130G01X58-#102Z#101-43N140#101=#N150IF#101GE0GOTO120N160G01Z-43N170X51N180X52Z-44N190X60N200G70P70Q190N210G40G00X100Z100M09N220T0100M05N230M30N240图形6O0001N010G97G99G21N020T0101N030S600M03N040G0X53Z5M08N050G73U10W0R9N060G73P70Q1800FN070G00X38N080G42G01Z01200FN090#101=0N100#102=38*SQRT1-#101*#101/50*50N110G01X#102Z#101N120#101=#N130IF#GOTO100N140G01Z-36N150G02X38Z-40R4N160G01X47N170X48N180X50N190G70P70Q180N200G40G00X100Z100M09N210T0100M05N220M30N230模拟轨迹O0001N010G97G99G21N020T0101N030S600M03N04