数控高级编程--宏程序--2

Zsing

1.      矩阵孔

；

G65 P8005 X19.5 Y14 A9 B20 I9 J9 R2 Z-28Q14 F100;

；

；----------------

O8005 (JUZHENK-HONG);

;

#10=1;

#12=#25;

#13=#24;

#15=1;                     

WHILE [#10 LE #1] DO1；

#11=1 ；                  

WHILE [#11LE#2] DO2；

G00 X#13 Y#12;               

Z#18；                     

IF [#17 EQ 0] GOTO10；

#14=#18-#17；               

WHILE [#14GT#26] DO3；

G01 Z#14 F#9；

G00 Z [#14+2]；

Z [#14+1]；

#14=#14-#17；

END3;

N10 G01 Z#26 F#9;

G00 Z#18;

#11=#11+1;              

#13=#13+#5*#15；

END2；

#13=#13-#15*#5；

#10=#10+1;            

#15=-#15；

#12=#12+#4；

END1；

M99；

2.      圆布孔；

；

G65 P8006 X0 Y0 A0 B45 I50 K8 R2 Z-22 Q12 F150；

；

；------------

O8005 (YUANBUK-HONG);

;

#10=1;

WHILE [#10 LE #6] DO1

#11=#24+#4*COS [#1];

#12=#25+#4*SIN [#1];

G90 G00 X#11 Y#12;

Z#18;

IF [#17 EQ 0] GOTO10

#14=#18-#17;

WHILE [#14 GT #26] DO2

G01 Z#14 F#9;

G00 Z [#14+2]

Z [#14+1]

#14=#14-#17

END2

N10 G01 Z#26 F#9;

G00 Z#18;

#10=#10+1;

#1=#1+#2;

END1;

M99;

;

;

3.      铣直槽；

；

T01M06 (EM20);

M01;

;

G00G90G54X480Y-320;

M03S500;

G43Z50H01;

G01Z0F3000;

G65 P8007 A-41 C5 I1 F300;

G90G00Z50;

G68 X0Y0R90;

G00X480Y-320;

G65 P8007 A-21 C5 I1 F300;

G90G00Z50;

G69;

M05;

G91G28Z0;

M30;

;

;------------;

dongbeiCAE

好资料，学习学习

复仇云

感谢分享

li456a01

8007的子程序呢 大神

tangdongdong12

使用电脑编程  宏变量都忘的差不多了

财块子

非常好的

ranghongxuan

学习一下

飞鸟frank

不敢改动机床的参数，因为一台床子N个师傅在用，玩意发生什么意外呢??

chx12

谢谢楼主分享精神

2609306727

LLLLLLLLLLLLL