Advanced Search

#;g7x_macro

O<g7x_macro> sub

; #1 Punkte                             (TODO)
; #2 X1                                (Erster Punkt)
; #3 Z1                                (Erster Punkt)
; #4 X2                               (Zweiter Punkt)
; #5 Z2                               (Zweiter Punkt)
; #6 X3                               (Dritter Punkt)
; #7 Z3                               (Dritter Punkt)
; #8 X4                               (Vierter Punkt)
; #9 Z4                               (Vierter Punkt)

(Use global variables to store the points for the Subroutine below)

#<_g7x_points>=#1
#<_g7x_x1>=#2
#<_g7x_z1>=#3
#<_g7x_x2>=#4
#<_g7x_z2>=#5
#<_g7x_x3>=#6
#<_g7x_z3>=#7
#<_g7x_x4>=#8
#<_g7x_z4>=#9

(Allgemeiner Header)
G8 ; Lathe Diameter Mode
G18 ; XZ Plane
G21 ; Metric Units
G90 ; Absolute Distance

(Spindle Steuerung)
G96 D1400 S50 ; Constant Surface Speed Mode
M3
G95 F0.1 ; Feed-Per-Rev Mode
G4 P.2        ; Wait to reach speed

(Anfangspositionen merken)
#<x_start> = #<_x>
#<z_start> = #<_z>

(G71, G72 -> Lang-, Plandrehen)
(mit .1,.2 für Taschen )
(Q -> Subroutine Nr)
(x,z -> Startposition)
(D ->   Distanz zum Profil zwischen roughing und finish cut) 
(E ->   G70 distanz zum profil am ende)
(P ->   G70 anzahl der durchläufe)
(I ->   Zustellung)
(R ->   Rückzug, default ist 0.5)

G71.1 Q100 D0.25 I0.5
G70   Q100 D0.25
G0 X#<x_start> Z#<z_start>

M5
M2

O<g7x_macro> endsub

O100 SUB
    O200 IF  [#<_g7x_points> GT 0]
    G0 X#<_g7x_x1> Z#<_g7x_z1>
    O200 ENDIF

    O201 IF  [#<_g7x_points> GT 1]
    G0 X#<_g7x_x2> Z#<_g7x_z2>
    O201 ENDIF

    O202 IF  [#<_g7x_points> GT 2]
    G0 X#<_g7x_x3> Z#<_g7x_z3>
    O202 ENDIF

    O203 IF  [#<_g7x_points> GT 3]
    G0 X#<_g7x_x4> Z#<_g7x_z4>
    O203 ENDIF

O100 ENDSUB

%

<sdoDataRaw data="03 00 01 00 40 42 0F 00 00 00 00 00"/>

<sdoDataRaw data="03 00 03 00 40 42 0F 00 00 00 00 00"/>