数控高级编程--宏程序--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;

;

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

副总经理

支持分享精神，

haoyuan366

支持········宏程序都忘得差不多了·

cai718li*

支持一下，这个很有用！

lmjams

我也想改上面说的那个参数用特殊G指令，可是在实际用的时候如果要改调用子程序的内容就得去差参数设定的子程序号，当然可以改成简单易明白的程序号指令，不过感觉要查程序内容还是不方便特别是别人要看你的程序的时候。晓得有那个功能就好了。支持宏程序开发。

slmexl

虽然不懂，可还是很想学

醉酒看世界

虽然看不懂，既然看了，还是帮顶下、。

rongjikeji

现在用的人很少了 其实可以将G65 Pxxxx 直接作为一个G代码的宏程序的调用 即将 Gxxx来完全的替代 简单的模态的调用  当然要改一下 6000以后的对应的参数数值 ，那样会更简洁快速的  谢谢

killernick

谢谢楼主分享精神，上学的时候还认真学过呢。

＠风铃

不错不错