孔光侧面宏程序

孔光侧面宏程序

坐标系建立：四面分中，顶面为零

当#150＝0时，采用大圆弧进刀，适用于加工孔直径小于2倍的刀具直径

当#150＝1时，采用小圆弧侧边进刀，适用于加工孔直径大于2倍的刀具直径

完整程序内容：

%

O8044

G90 G17 G40 G49 G80 G69

G91 G28 Z0.

#1=50

#2=12

#3=10

#20=1

#26=0

#17=3

#19=7000

#9=1200

#108=0

#109=0

#118=[[[#1-#3]/2]-#108]

#119=[#2-#109] 

#150=0

T#20 M6

G90 G54

S#19 M3

IF[#150EQ0]GOTO100

IF[#150EQ1]GOTO200

N100

G0 X0. Y0.

G43 Z10. H#20

IF[#17EQ#119]GOTO500

GOTO1

N200

#124=[[[#1-#3]/2]-#108-3]

G0 X#124 Y0.

G43 Z10. H#20

IF[#17EQ#119]GOTO500

GOTO2

N1

G1 Z0.3 F2500.

#26=#26+#17

WHILE[#26LT#119]DO1

G1 Z-#26 F#9

#26=#26+#17

G3 X#118 I[#118/2]

G3 I-#118

G3 X0. Y0. I-[#118/2]

END1

G1 Z-#119

#118=[[#1-#3]/2 ]

G3 X#118 I[#118/2]

G3 I-#118

G3 X0. I-[#118/2]

G0 Z10.

GOTO500

N2

G1 Z0.3 F2500.

#26=#26+#17

WHILE[#26LT#119]DO2

G1 Z-#26 F#9

#26=#26+#17

G3 X#118 I[[#118-#124]/2]

G3 I-[#118/2]

G3 X#124 I-[[#118-#124]/2]

END2

G1 Z-#119

G3 X#118 I[[#118-#124]/2]

G3 X#118 I-[#118/2]

G3 X#124 I-[[#118-#124]/2]

G0 Z10.

N500

M9

M5

G91 G28Z0.

G28 Y0.

M30

%