矩形型腔倒角宏程序

矩形型腔倒角宏程序

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

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

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

完整程序内容：

O8092

G90 G17 G40 G49 G80 G69

G91 G28 Z0.

#1=100

#12=80

#13=10

#20=7

#19=6500

#9=1200

#26=0

#17=0

#108=-0.5

#109=-1.5

#117=[#1/2]-[#108]+[#109]

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

#119=#2-#109

T#20 M6

G90 G54

#124=[#117-3]

G0 X#124 Y0. S#19 M3

G43 Z10. H#20

/M8

IF[#17EQ0]GOTO100

G1 Z#109 F2500.

#18=#13+#17+[#109]

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

WHILE[#24LE#117]DO1

G3 X#24 I[[#24-#124]/2] F#9

#25=[#12/2]-#13

G1 Y#25

G3 X[#24-#18] Y[#25+#18] I-#18

G1 X-[#24-#18]

G3 X-#24 Y#25 J-#18

G1 Y-#25

G3 X-[#24-#18] Y-[#25+#18] I#18

G1 X[#24-#18]

G3 X#24 Y-#25 J#18

G1 Y0.

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

#24=#24+#17

#18=#18+#17

END1

N100

G1 Z#109 F2500.

#18=#13-[#108]+[#109]

G3 X#117 I[[#117-#124]/2] F#9

G1 Y[#118-#18]

G3 X[#117-#18] Y#118 I-#18

G1 X-[#117-#18]

G3 X-#117 Y[#118-#18] J-#18

G1 Y-[#118-#18]

G3 X-[#117-#18] Y-#118 I#18

G1 X[#117-#18]

G3 X#117 Y-[#118-#18] J#18

G1 Y0.

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

M9

M5

G91 G28 Z0.

G28 Y0.

M30

%