FANUC M系列 Macro自動循圓粗銑

     本來用VISIO來製作程式流程圖的，今天看到LINUX中的DIA也有WIN版了，所以趕快試了一下，還不錯用至少是免費的。順便用新DIA做了一個自動循圓粗銑MACRO的流程圖，只要輸入圓心、加工中點、最終直徑、補正等，就自己可以粗銑循圓，值得參考看看。流程圖我大略畫了一下在程式的下方，邊看流程邊讀程式應該粉快可理解。改天再放一個車床C軸自動銑削循圓加工的，至於循圓精銑應該不用了，程式51行開始已經可以參考(改精銑時只需添加圓弧進刀、退刀即可)。

O0026 (MAIN PROGRAM)
(CALLS MACRO O8888)
N1 G21
N2 G90 G00 G54 X0 Y0 S1200 M03
N3 G43 Z25.0 H05 M08
N4 G65 P8106 X50.0 Y3.75 Z7.5 D49.0 K2.5 W4.0 T5 F500.0
N5 G80 Z25.0 M09
N6 G28 Z25.0 M05
N7 M01
...
%

O8888 (ROUGHING CIRCULAR POCKET MACRO)
(*** DO NOT CHANGE SEQUENCE NUMBERS ***)
IF[#7 EQ #0] GOTO9101
IF[#20 EQ #0] GOTO9102
IF[#23 EQ #0] GOTO9103
IF[#26 EQ #0] GOTO9104
IF[#9 EQ #0] GOTO9105
#10 = #4003
#7 = ABS[#7/2]
#120 = [ABS[#[2400+#20]+#[2600+#20]]]
IF[#120 GE #7] GOTO9106
#26 = ABS[#26]
#126 = #4006
IF[#126 EQ 20.0] THEN #126 = 0.1
IF[#126 EQ 21.0] THEN #126 = 2.0
G90 G00 X#24 Y#25
Z#126
G01 Z0 F[#9/2]
#16 = #26
IF[#6 EQ #0] GOTO1
#6 = ABS[#6]
GOTO2
N0001 #6 = #26
N0002 #4 = #7-#120
WHILE [#16 GE #6] DO1
#33 = #23
G91 G01 Z-#6 F[#9/2]
WHILE [#33 LT #4] DO2
G90 G01 X[#24+#33] F#9
G03 I-#33
#33 = #33+#23
END2
G90 G01 X[#24+#4] F#9
G03 I-#4
G01 X#24 F[#9*3]
#16 = #16-#6
END1
IF[#16 LE 0] GOTO9000
G91 G01 Z-#16 F[#9/2]
#33 = #23
WHILE[#33 LT #4] DO1
G90 G01 X[#24+#33] F#9
G03 I-#33
#33 = #33+#23
END1
G90 G01 X[#24+#4] F#9
G03 I-#4
G01 X#24 F[#9*3]
N9000 G00 Z#126
GOTO9999
N9101 #3000=101 (NO POCKET DIAMETER)
N9102 #3000=102 (NO T-OFFSET)
N9103 #3000=103 (NO CUTTING WIDTH)
N9104 #3000=104 (NO POCKET DEPTH)
N9105 #3000=105 (NO FEEDRATE)
N9106 #3000=106 (TOOL RADIUS TOO LARGE)
N9999 G#10
M99
%

 順便附上DIA畫面

                                                                           >>車床C軸自動循圓                                                                           update : 2010/03/29