腰形槽倒角宏程序

腰形槽倒角宏程序

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

当#17=0时，单轮廓走刀倒角，适用于倒小C角，如下图：

此说明：#109表示刀尖下刀深度

当#17=0.25（每刀进给深度）时，多轮廓走刀倒角，适用于倒大C角，如下图：

完整程序内容：

%

O8051

G90 G17 G40 G49 G80

G91 G28 Z0.

#1=30

#12=20

#20=6

#19=6500

#9=1200

#17=0

#108=-0.5

#109=-1.5

#118=[[#1+#12]/2]-[#108]+[#109]

T#20 M6

G90 G54

G0 X-[#1/2] Y0. S#19 M3

G43 Z10. H#20

/M8

G1 Z0.3 F2500.

Z#109 F#9

IF[#17EQ0]GOTO100

#24=[[#1+#12]/2]+#17+[#109]

#25=[[#12/2]+#17+[#109]]

WHILE[#24LT#118]DO1

G3 X-#24 I-[[#24-[#1/2]]/2]

G3 X-[#1/2] Y-#25I[#24-[#1/2]]

G1 X[#1/2]

G3 X[#1/2] Y#25 J[#24-[#1/2]]

G1 X-[#1/2]

G3 X-#24Y0. J-[#24-[#1/2]]

G3 X-[#1/2] I[[#24-[#1/2]]/2]

#24=#24+#17

#25=#25+#17

END1

N100

#24=[[#1+#12]/2]-[#108]+[#109]

#25=[[#12/2]-[#108]+[#109]]

G3 X-#24 I-[[#24-[#1/2]]/2]

G3 X-[#1/2] Y-#25 I[#24-[#1/2]]

G1X[#1/2]

G3 X[#1/2] Y#25 J[#24-[#1/2]]

G1 X-[#1/2]

G3 X-#24 Y0. J-[#24-[#1/2]]

G3 X-[#1/2] I[[#24-[#1/2]]/2]

G0 Z10.

M9

M5

G91 G28 Z0.

G28 Y0.

M30

%