Fusion 360 - generowanie kódów na gwint

Kod: Zaznacz cały

%
(============================================)
(  PODPROGRAMY DO GWINTOWANIA G3/8         )
(  Wersja: tylko podprogramy               )
(============================================)
(
  Użycie:
  1. Skopiuj te podprogramy do swojego programu
  2. W programie głównym wywołuj O100 dla każdego otworu
  
  Przykład wywołania:
  #<_x> = 100.0
  #<_y> = 150.0
  O100 CALL
)

(NARZĘDZIA:)
(T1 - Wiertło centrowe Ø3-5mm)
(T2 - Wiertło Ø15.0mm)
(T3 - Fazownik 90°)
(T4 - Frez gwintowy G3/8 Ø15.2mm)

(===== ZMIENNE GLOBALNE =====)
#<_z_bezpieczny> = 5.0
#<_z_powierzchnia> = 0.0
#<_grubosc_plyty> = -25.0
#<_gwint_glebokosc> = -20.0

(============================================)
(   PODPROGRAM O100 - KOMPLETNY OTWÓR      )
(============================================)
O100 SUB
  (Parametry wejściowe:)
  (#<_x> - pozycja X otworu)
  (#<_y> - pozycja Y otworu)
  
  (--- OPERACJA 1: CENTROWANIE ---)
  O101 CALL
  
  (--- OPERACJA 2: WIERCENIE Ø15.0 ---)
  O102 CALL
  
  (--- OPERACJA 3: FAZOWANIE ---)
  O103 CALL
  
  (--- OPERACJA 4: GWINTOWANIE G3/8 ---)
  O104 CALL
  
O100 ENDSUB

(============================================)
(   PODPROGRAM O101 - CENTROWANIE          )
(============================================)
O101 SUB
  (Narzędzie: T1 - Wiertło centrowe Ø3-5mm)
  
  T1 M6 G43 H1
  S1200 M3
  G4 P1.0
  
  G0 X#<_x> Y#<_y>
  G0 Z#<_z_bezpieczny>
  
  (Centrowanie na głębokość 2mm)
  G98 G81 X#<_x> Y#<_y> Z[#<_z_powierzchnia> - 2.0] R[#<_z_bezpieczny>] F100
  G80
  
  G0 Z#<_z_bezpieczny>
  
O101 ENDSUB

(============================================)
(   PODPROGRAM O102 - WIERCENIE Ø15.0     )
(============================================)
O102 SUB
  (Narzędzie: T2 - Wiertło Ø15.0mm)
  
  T2 M6 G43 H2
  S1000 M3
  G4 P1.0
  
  G0 X#<_x> Y#<_y>
  G0 Z#<_z_bezpieczny>
  
  (Wiercenie na przelot + 2mm)
  #<_z_wiercenie> = [#<_grubosc_plyty> - 2.0]
  
  (Cykl peck drilling)
  G98 G83 X#<_x> Y#<_y> Z#<_z_wiercenie> R[#<_z_bezpieczny>] Q5.0 F200
  G80
  
  G0 Z#<_z_bezpieczny>
  M9
  
O102 ENDSUB

(============================================)
(   PODPROGRAM O103 - FAZOWANIE            )
(============================================)
O103 SUB
  (Narzędzie: T3 - Fazownik 90°)
  
  T3 M6 G43 H3
  S1000 M3
  G4 P1.0
  
  G0 X#<_x> Y#<_y>
  G0 Z#<_z_bezpieczny>
  G0 Z[#<_z_powierzchnia> + 2.0]
  
  (Fazowanie C1)
  G1 Z[#<_z_powierzchnia> - 1.0] F100
  G4 P0.2
  G0 Z#<_z_bezpieczny>
  
O103 ENDSUB

(============================================)
(   PODPROGRAM O104 - GWINTOWANIE G3/8    )
(============================================)
O104 SUB
  (Narzędzie: T4 - Frez gwintowy G3/8 Ø15.2mm)
  
  T4 M6 G43 H4
  S500 M3
  M8 (Chłodziwo)
  G4 P2.0
  
  (Parametry gwintu G3/8)
  #<_promien_toru> = 0.731      (Promień interpolacji)
  #<_skok> = 1.337              (Skok gwintu mm)
  #<_gwint_start> = [#<_z_powierzchnia> - 2.0]
  
  (Oblicz ilość zwojów)
  #<_dlugosc_gwintu> = [#<_gwint_start> - #<_gwint_glebokosc>]
  #<_liczba_zwojow> = [#<_dlugosc_gwintu> / #<_skok>]
  
  (Pozycjonowanie)
  G0 X#<_x> Y#<_y>
  G0 Z[#<_z_bezpieczny>]
  
  (Najazd na pozycję startową)
  G0 X[#<_x> + #<_promien_toru>] Y#<_y>
  G0 Z[#<_z_powierzchnia> + 5.0]
  
  (Gwintowanie - interpolacja spiralna)
  F400
  
  (Zjazd)
  G1 Z#<_gwint_start> F150
  
  (Pętla gwintowania - zjazd)
  #<_z_aktualny> = #<_gwint_start>
  #<_obroty> = 0
  
  O1040 WHILE [#<_obroty> LT #<_liczba_zwojow>]
    #<_z_aktualny> = [#<_z_aktualny> - #<_skok>]
    G2 X[#<_x> + #<_promien_toru>] Y#<_y> Z#<_z_aktualny> I[-#<_promien_toru>] J0 F400
    #<_obroty> = [#<_obroty> + 1]
  O1040 ENDWHILE
  
  (Zjazd na głębokość)
  G1 Z#<_gwint_glebokosc> F150
  
  (Pełen obrót na głębokości)
  G2 X[#<_x> + #<_promien_toru>] Y#<_y> Z#<_gwint_glebokosc> I[-#<_promien_toru>] J0 F400
  
  (Wyjazd po spirali)
  #<_z_aktualny> = #<_gwint_glebokosc>
  #<_obroty> = 0
  
  O1041 WHILE [#<_obroty> LT #<_liczba_zwojow>]
    #<_z_aktualny> = [#<_z_aktualny> + #<_skok>]
    G2 X[#<_x> + #<_promien_toru>] Y#<_y> Z#<_z_aktualny> I[-#<_promien_toru>] J0 F400
    #<_obroty> = [#<_obroty> + 1]
  O1041 ENDWHILE
  
  (Wyjazd)
  G1 Z[#<_z_powierzchnia> + 5.0] F150
  
  (Powrót do środka)
  G0 X#<_x> Y#<_y>
  G0 Z#<_z_bezpieczny>
  M9
  
O104 ENDSUB

(============================================)
(   PRZYKŁAD UŻYCIA W PROGRAMIE GŁÓWNYM   )
(============================================)
(
O2000
G21 G17 G40 G49 G80 G54 G90

(Otwór 1)
#<_x> = 50.0
#<_y> = 50.0
O100 CALL

(Otwór 2)
#<_x> = 100.0
#<_y> = 50.0
O100 CALL

(Otwór 3)
#<_x> = 150.0
#<_y> = 50.0
O100 CALL

(... itd dla pozostałych otworów ...)

G0 Z#<_z_bezpieczny>
G0 X0 Y0
M30
)

%