宏程序各种类型及曲线程序

1、阿基米德螺旋线的轨迹线加工已知此曲线极坐标的方程为r=a（a：常数 ：弧度）起始角=0°=0弧度终止角=270°+360°=630°=630×3.14180弧度=10.99弧度设定变量表达式 #1=0°(由00变化到630° 设定初始值#1=0)#2=（弧度=#1×3.14180）#3=r=a*#2#501表示周期#3=1 *#2 中的1是一个常数。%O1236#504=6*360G90 G54 G00 X0 Y0S500 M03 G43 H1 Z50.Z3 G01 Z0 F100#1=0 WHILE #1LE#5

2、04 DO1 #2=#1*3.14/180 #3=1*#2G16 G01 X#3 Y#1 F500 #1=#1+1END1 G15 G00 Z100 M05M09M30%宏程序G17平面铣螺旋线#716 表示圆半径#717 表示刀具半径#718 表示螺纹深度#719 表示螺距#720 表示孔位X轴坐标 #721 表示孔位Y轴坐标%O1480#716=10 (YUAN BAN JING)#717=6 (DAO BAN JING)#718=30 (SHENG DU)#719=5 (LUO JIU)#720=0 (X)#721=0 (Y)T1M06G90 G10 L12 P1 R#717G90 G5

3、4 G0 X#720 Y#721S3000 M03G43 H1 Z50Z2#1=0WHILE#1 LE #718DO1G42 G01 D1 X#716+#720 F100G02 I-#716 Z-#1#1=#1+#719END1G01 X#720 G40G0 Z200M05M09M30%球头刀倒凹圆角#501 表示孔直径#502 表示孔底圆角半径#503 表示刀半径#1=#1+1后面的1表示间隔角度%O0001#501=12 (KONG ZHI JIN)#502=5 (YUAN JIAO BANG JIN R)#503=4 (DAO BIAN JIN )S1000 M03G90 G54 G0

4、X0 Y0Z3#1=0WHILE#1LE90DO1#2=#501/2-#502+#502-#503*COS#1#3=#502-#503*SIN#1+#503G01 X#2 F300G01 Z-#3 F100 G03 I-#2 F300#1=#1+1END1G00 Z100M30%平刀倒凹圆角#501 表示孔直径#502 表示孔底圆角半径#503 表示刀半径#1=#1+1后面的1表示间隔角度%O0001#501=20 (KONG ZHI JIN)#502=5 (YUAN JIAO BANG JIN R)#503=4 (DAO BIAN JIN )S1000 M03G90 G54 G0 X0 Y0

5、Z3#1=0WHILE#1LE90DO1#2=#501/2+#502*COS#1-#503-#502#3=#502*SIN#1 G01 X#2 F300G01 Z-#3 F100 G03 I-#2 F300#1=#1+1END1G00 Z100M30%内孔倒斜角加工 1: 牛鼻刀倒内孔口斜角#501 表示内孔直径#502 表示倒角长度#504 表示倒角角度#503 表示牛鼻刀圆角半径#505 表示牛鼻刀底面有效直径#507 表示要倒角的孔位X轴坐标#508 表示要倒角的孔位Y轴坐标#506 表示倒角深度#1=#1+1后面的1表示每刀间隔深度%O0001#501=25 (NEI KONG ZHI

6、 JIN)#502=5 (DAO JIAO CHANG DU)#504=45 (DAO JIAO JIAO DU)#503=4 (DAO BANG JIN )#505=8 (DI MIAN ZHI JIN)#507=0 (X)#508=0 (Y)#506=#502*TAN#504+#503-#503*COS#504S1000 M03G90 G54 G0 X#507 Y#508Z3#1=#503-#503*COS#504WHILE#1 LE #506DO1#2=#501/2+#502+#507-#505/2-#503*SIN#504-#1-#503+#503*COS#504/TAN#504G01

7、 X#2 F300Z-#1 F100G03 I-#2-#507 F300#1=#1+1END1G00 Z100M30%2:平刀倒内孔口斜角#501 表示内孔直径#502 表示倒角长度#504 表示倒角角度#503 表示平底刀直径#506 表示倒角深度#507 表示要倒角的孔位X轴坐标#508 表示要倒角的孔位Y轴坐标#1=#1+1后面的1表示每刀间隔深度%O0001#501=20 (NEI KONG ZHI JIN)#502=5 (DAO JIAO CHANG DU)#504=45 (DAO JIAO JIAO DU)#503=8 (DAO ZHI JIN )#507=0 (X)#508=0

8、(Y) #506=#502*TAN#504 S1000 M03G90 G54 G0 X#507 Y#508Z3#1=0WHILE#1 LE #506DO1#2=#501/2+#502+#507-#1/TAN#504-#503/2G01 X#2 F300Z-#1 F100G03 I-#2-#507 F300#1=#1+0.1END1G00 Z100M30%3:球头刀倒内孔口斜角#501 表示内孔直径#502 表示倒角长度#504 表示倒角角度#503 表示球头刀半径#506 表示倒角深度#507 表示孔位X轴坐标#508 表示孔位Y轴坐标#1=#1+1后面的1表示每刀间隔深度%O0001#501

9、=20 (NEI KONG ZHI JIN)#502=5 (DAO JIAO CHANG DU)#504=45 (DAO JIAO JIAO DU)#503=4 (DAO BANG JIN )#505=0.2(JIAN JIU) #507=20 (X）#508=20（Y）#506=#502*TAN#504+#503-#503*COS#504S3000 M03G90 G54 G0 X#507 Y#508Z3#1=#503-#503*COS#504WHILE#1 LE #506DO1#2=#501/2+#502-#503*SIN#504-#1-#503+#503*COS#504/TAN#504G0

10、1 X#2+#507 F400Z-#1 F100G03 I-#2 F400#1=#1+#505END1G00 Z200M05M09M30%内孔加工#501 表示圆直径#503 表示刀直径#504 表示孔位X轴坐标#505 表示孔位Y轴坐标#1=#1+1后面的1表示间隔深度（吃刀深度）%O0001#501=10 (YUAN ZHI JIN)#503=4 (DAO ZHI JIN )#504=0 (X)#505=0 (Y)G90 G54 G0 X#504 Y#505S2000 M03M08Z3#1=0WHILE#1LT10DO1#2=#501/2-#503/2+#504#3=#501/2-#503

11、/2#1=#1+1G01 Z-#1 F100 G01 X#2 F300G03 I-#3 F300G01 X#504 Y#505END1G00 Z100M05M09M30%内孔凸圆角加工:牛鼻刀倒凸圆角#501 表示孔直径#502 表示孔口圆角半径#503 表示牛鼻刀圆角半径#504 表示牛鼻刀底面直径的一半#1=#1+1后面的1表示间隔角度%O0001#501=20 (KONG ZHI JIN)#502=5 (YUAN JIAO BANG JIN R)#503=4 (DAO YUAN JIAO BIAN JIN r)#504=5 (DAO DI MIAN BANG JIN)S1000 M03G

12、90 G54 GOO X0 Y0Z3#1=0WHILE#1LE90DO1#2=#501/2+#502-#502+#503*SIN#1-#504#3=#502+#503*1-COS#1 G01 X#2 Y0 F300G01 Z-#3 F100G03 X#2 Y0 I-#2 J0 F300#1=#1+1END1G00 Z100M30%平刀倒凸圆角#501 表示孔直径#502 表示孔口圆角半径#503 表示刀直径#506 表示需要倒圆角的孔位X向坐标#505 表示需要倒圆角的孔位Y向坐标#504 表示进刀点X轴坐标#1=#1+1后面的1表示间隔角度%O0001#501=20 (KONG ZHI JI

13、N)#502=5 (YUAN JIAO BANG JIN R)#503=8 (DAO ZHI JIN )#506=0(X)#505=0(Y)#504=#506+#501-#503/2-1G90 G54 G0 X#504 Y#505S2000 M03G43 H1 Z50Z3#1=0WHILE#1LE90DO1#2=#501/2+#502+#506-#503/2-#502*SIN#1#3=#502-#502*COS#1 G01 X#2 F300G01 Z-#3 F100G03 I-#2-#506 F300G01 X#504 Y#505 #1=#1+2END1G00 Z150M30%球刀倒凸圆角#5

14、01 表示孔直径#502 表示孔口圆角半径#503 表示球头刀圆角半径#506 表示需要倒圆角的孔位X向坐标#505 表示需要倒圆角的孔位Y向坐标#1=#1+1后面的1表示间隔角度%O0001#501=20 (KONG ZHI JIN)#502=5 (YUAN JIAO BANG JIN R)#503=4 (QIU DAO BIAN JIN r)#506=0 (X)#505=0 (Y)G90 G54 G00 X#506 Y#505S2000 M03M08G43 H1 Z50Z3#1=0WHILE#1LE90DO1#2=#501/2+#502+#506-#502+#503*SIN#1#3=#50

15、2+#503*1-COS#1 G01 X#2 F300G01 Z-#3 F100G03 I-#2-#506 F300#1=#1+2END1G00 Z100M30%球刀加工凹半球#501 表示圆半径#502 表示球头刀半径#1=#1+1后面的1表示间隔角度#501=30 (YUAN BANG JIN)#502=6 (DAO BANG JIN)G90 G0 G54 X0.Y0S4500 M3 M08G43 H1 Z50Z3#1=0WHILE#1LE90DO1#2=#501-#502*COS#1#3=#501-#502*SIN#1+#502G01 X#2 Y0 F300G1 Z-#3 F100G03

16、 X#2 Y0 I-#2 J0 F300#1=#1+1END1G0 Z50.M05M09M30%球面加工:牛鼻刀铣球面#501 表示圆半径#502 表示牛鼻刀圆角半径#503 表示牛鼻刀底面直径的一半#1=#1+1后面的1表示间隔角度%O0001#501=30 (YUAN BANG JIN)#502=6 (DAO YUAN JIAO BANG JIN)#503=10 (DAO DI MIANG BANG JIN)G90 G0 G54 X0.Y0M3 S4500M08G43 H1 Z50.Z3#1=0WHILE#1LE90DO1#2=#501+#502+#503*SIN#1#3=#501+#50

17、2*1-COS#1G01 X#2 F300G1 Z-#3 F100G02 I-#2 F300#1=#1+1END1G0 Z50.M05M09M30%平刀铣球面#501 表示圆半径#502 表示平刀半径#1=#1+1后面的1表示间隔角度%#501=30 (YUAN BANG JIN)#502=6 (DAO BANG JIN)G90 G0 G54 X0.Y0M3 S4500M08G43 H1 Z50.Z3#1=0WHILE#1LE90DO1#2=#501*SIN#1+#502#3=#501-#501*COS#1G01 X#2 Y0 F300G1 Z-#3 F100G02 X#2 Y0 I-#2 J

18、0 F300#1=#1+1END1G0 Z50.M05M09M30%球刀铣球面#501 表示圆半径#502 表示球头刀半径#1=#1+1后面的1表示间隔角度%#501=30 (YUAN BANG JIN)#502=6 (DAO BANG JIN)G90 G0 G54 X0.Y0M3 S4500M08G43 H1 Z50.Z3#1=0WHILE#1LE90DO1#2=#501+#502*SIN#1#3=#501+#502*1-COS#1G01 X#2 Y0 F300G1 Z-#3 F100G02 X#2 Y0 I-#2 J0 F300#1=#1+1END1G0 Z50.M05M09M30%三轴铣

19、槽#1表示起始角度#1=#1+60 后面的60表示间隔角度。%O5003#1=0G90 G54 G0 S3000 M03M08G43 H1 Z100WHILE#1 LT 360DO1G68 X0 Y0 R#1X200 Y0Z1G01 Z-1 F600G01 X100 F500#1=#1+60G0 Z100END1G00 Z150M05M09M30%三轴铣侧面平头#501表示起始深度%O5003#501=1G90 G54 G0 X200 Y-100S3000 M03M08G43 H1 Z100Z0WHILE#501 LE 60DO1X200 Y-100G0 Z-#501+1G01 Z-#501

20、F800G01 Y100 F500#501=#501+1G0 Z100END1G00 Z150G69M05M09M30%三轴钻孔圆周孔#1表示起始角度#1=#1+60 后面的60表示间隔角度。%O5003#1=0G90 G54 G0S3000 M03M08G43 H1 Z100WHILE #1LT360 DO1G68 X0 Y0 R#1X200 Y0 G98 G81 Z-2 R2 F100#1=#1+30G80 G0 Z100G69END1G00 Z150G69M05M09M30%四轴钻孔#1表示起始角度O5003T3M06#1=0G90 G54 G0 X-1. Y-74S3000 M03M0

21、8G43 H3 Z100WHILE#1 LT 360.DO1X-1. Y-74A#1Z1G01 Z0 F600G42 D03 Y-58.127X60. Y-58.125G40 Y-74#1=#1+90G0 Z100END1G00 Z150M05M09M30四轴铣边#1表示起始角度O5003T3M06#1=0G90 G54 G0 X-1. Y-74S3000 M03M08G43 H3 Z100WHILE#1 LT 360.DO1X-1. Y-74A#1Z1G01 Z0 F600G42 D03 Y-58.127X60. Y-58.125G40 Y-74#1=#1+90G0 Z100END1G00

22、Z150M05M09M30椭圆加工#501 表示椭圆长半轴长度#502 表示椭圆短半轴长度#1=#1+1 后面的1表示角度椭圆方程式：X平方/a平方 Y平方/b平方 1%O1234#501=40 (CHANG BAN ZHOU)#502=20 (DUAN BAN ZHOU)G90 G54 G00 X0 Y0S2000 M03M08G43 H1 Z50Z1.G01 Z-2 F150#1=0.WHILE#1 LE 370DO1#506=#501*COS#1#507=#502*SIN#1#504=#506*COS45-#5*SIN45#505=#507*SIN45+#5*COS45G41 D1 G0

23、1 X#504 Y#505 F800#1=#1+1END1G40 G01 X0 Y0G0 Z150M05M09G91 G28 Y0M30椭圆阵列孔#501 表示椭圆长半轴长度#502 表示椭圆短半轴长度#1=#1+1 后面的1表示角度%O1234#501=40 (CHANG BAN ZHOU)#502=20 (DUAN BAN ZHOU)G90 G54 G0S2000 M03M08G43 H1 Z50Z20#1=0.N99#506=#501*COS#1#507=#502*SIN#1#504=#506*COS45-#5*SIN45#505=#507*SIN45+#5*COS45G98 G81 X

24、#504 Y#505 Z-2. R1. F100#1=#1+60IF#1 LE 360 GOTO99G80 G0 Z150M05M09G91 G28 Y0M30%外圆凹圆角加工 球头刀倒外凹圆角#501 表示圆直径#502 表示圆台圆角半径#503 表示球头刀半径#504 表示进刀点X坐标#1=#1+1后面的1表示间隔角度%O0001#501=10 (KONG ZHI JIN)#502=10 (YUAN JIAO BANG JIN R)#503=4 (DAO BIAN JIN )#504=20G90 G54 G0 X#504 Y0S1000 M03Z3#1=0WHILE#1LE90DO1#2=

25、#501/2+#502-#502-#503*COS#1#3=#502-#503*SIN#1+#503G01 X#2 F300G01 Z-#3 F100 G03 I-#2 F300G01 X#504#1=#1+1END1G00 Z100M30%外圆倒斜角加工球头刀倒外圆斜角#501 表示圆台直径#502 表示倒角长度#504 表示倒角角度#503 表示球头刀半径#507 表示外圆中心X轴坐标#508 表示外圆中心Y轴坐标#506 表示倒角深度#1=#1+1后面的1表示每刀间隔深度%O0001#501=20 (YUAN ZHI JIN)#502=5 (DAO JIAO CHANG DU)#504=

26、45 (DAO JIAO JIAO DU)#503=4 (DAO BANG JIN )#507=0 (X)#508=0 (Y)#506=#502*TAN#504+#503-#503*COS#504G90 G54 G0 X#507 Y#508S1000 M03Z3#1=#503-#503*COS#504WHILE#1 LE #506DO1#2=#507+#501/2-#502+#503*SIN#504+#1-#503+#503*COS#504/TAN#504#3=#501/2-#502+#503*SIN#504+#1-#503+#503*COS#504/TAN#504G01 X#2 F300Z-

27、#1 F100G03 I-#3 F300#1=#1+0.5END1G00 Z100M30%外圆加工#501 表示圆直径#503 表示刀直径#504 表示圆台中心X坐标#505 表示圆台中心Y坐标#506 表示进刀点X坐标#1=#1+1后面的1表示间隔深度(吃刀深度)%O0001#501=10 (YUAN ZHI JIN)#503=4 (DAO ZHI JIN )#504=0 (X)#505=0 (Y)#506=#504+#501/2+#503/2+10G90 G54 G0 X#506 Y#505S2000 M03M08Z3#1=0WHILE#1LT10DO1#2=#504+#501/2+#50

28、3/2#3=#501/2+#503/2#1=#1+1G01 Z-#1 F100 G01 X#2 F300G02 I-#3 F300G01 X#506 END1G00 Z100M05M09M30%外圆凸圆角加工球刀倒外凸圆角#501 表示圆直径#502 表示孔口圆角半径#503 表示球头刀圆角半径#507 表示坐标系X轴坐标#508 表示坐标系Y轴坐标#1=#1+1后面的1表示间隔角度%O0001#501=20 (YUAN ZHI JIN)#502=5 (YUAN JIAO BANG JIN R)#503=5 (DAO BIAN JIN )#507=0 (X)#508=0 (Y)#1=0#2=#501/2-#502+#502+#503*SIN#1+#507G90 G54 G0 X#2 Y#508S1000 M03M08Z3#1=0WHILE #1LE90DO1#2=#501/2-#502+#502+#503*SIN#1+#507#4=#501/2-#502+