N107 ED[SD.SysToolSRun.TargEd]
1007 ELSE
N107 ED0
1008 ENDIF
;
; adjust tool length and radius compensation
N108 ADJ(G47)
N109 ADJ(G40) ADJ(G140)
;
; adjust pre-selected tool
N110 T[SD.SysToolSRun.PreTool.IKQ3]
;
N200 ADJ(G96)
2005 DIM SADR$(8) : DIM MADR$(8) : DIM GADR$(8)
2006 FOR SP% = 1 TO SD.SysChSpSRun.MaxSpNumber
207 SpAdjStr[SP%]
2008 SADR$ = SD.SysChSpSRun.SpeedStr
2009 MADR$ = SD.SysChSpSRun.MoveStr
2010 GADR$ = SD.SysChSpSRun.GearStr
2011 MOVE% = SD.SysChSpSRun.Sp[SP%].Move
;
; Gear
;
2020 IF SD.SysChSpSRun.Sp[SP%].GearNotAdj <> 0 THEN
2021 IF SD.SysChSpSRun.Sp[SP%].AutoGearShift THEN
2022 SYSSPNO% = SD.SysChSpSRun.Sp[SP%].SysSpNo
N223 SSPGEAR([SYSSPNO%],[SD.SysChSpSRun.Sp[SP%].Gear])
2024 ENDIF
N225 [GADR$]
2026 ENDIF
;
; Speed limits
;
IF SD.SysChSpSRun.Sp[SP%].LimitNotAdj <> 0 THEN
N231 SMX([SADR$][SD.SysChSpSRun.Sp[SP%].ProgMaxSpeed])
N232 SMN([SADR$][SD.SysChSpSRun.Sp[SP%].ProgMinSpeed])
2033 ENDIF
;
; Spindle speed
;
2040 IF SD.SysChSpSRun.Sp[SP%].SpeedNotAdj <> 0 THEN
N241 [SADR$][SD.SysChSpSRun.Sp[SP%].ProgSpeed]
2042 ENDIF
;
; Spindle direction / orientation (M3, M103, M19 ...)
;
2050 IF SD.SysChSpSRun.Sp[SP%].MoveNotAdj <> 0 THEN
2051 IF MOVE% = 19 THEN
N252 [MADR$][SADR$][SD.SysChSpSRun.Sp[SP%].OriPos]
2053 ELSE
N254 [MADR$]
2055 ENDIF
2056 ENDIF
2057 NEXT SP%
;
; adjust axes configuration
;
N300 TAX
;
; adjust other G-code groups
;
ADJ(G90)
ADJ(G1)
ADJ(G61)
ADJ(G8)
ADJ(G54.1)
ADJ(G54.2)
ADJ(G54.3)
ADJ(G54.4)
ADJ(G54.5)
ADJ(G16)
ADJ(G17)
ADJ(G94)
ADJ(G96)
ADJ(OVE)
ADJ(G71)
ADJ(G79)
;ADJ(G39)
ADJ(JKC)
ADJ(G43)
ADJ(G46)
DOK-MTXMIC-EASY*******-CO06-EN-P
Bosch Rexroth AG
161/177
IndraMotion MTX micro Easy Setup for Standard Turning and Milling Machines
Block search in MTX micro
