Siemens SINUMERIK 840D sl Funktionshandbuch Seite 753

Beispiel für Ersetzungsunterprogramm zum Spindelpositionieren
Unter Verwendung der Systemvariablen $P_SUB_LA und $P_SUB_CA
N1000 PROC LANG_SUB DISPLOF SBLOF
N1010 DEF AXIS _LA
N1020 DEF AXIS _CA
N1030 DEF INT _LSPI
N1040 DEF INT _CSPI
...
N2100 IF($P_SUB_AXFCT==2)
N2110
N2120
N2130
N2140
N2180
N2185
N2190
N2200
N2210
N2220
N2230
LABEL_DC:
LABEL_IC:
LABEL_AC:
LABEL_ACP:
LABEL_ACN:
LABEL_CONT:
N2250
N2260
N2270
N2280
N2285
N2290
Grundfunktionen: BAG, Kanal, Programmbetrieb, Reset-Verhalten (K1)
Funktionshandbuch, 11/2006, 6FC5397-0BP10-2AA0
;Ersetzung wegen SPOS/SPOSA/M19-Befehl bei aktiver Synchronspindelkopplung
_LA=$P_SUB_LA
_CA=$P_SUB_CA
_LSPI=AXTOSPI(_LA)
_CSPI=AXTOSPI(_LA)
DELAYFSTON
COUPOF(_CA,_LA)
;Leit- und Folgespindel positionieren:
IF($P_SUB_SPOS==TRUE) OR ($P_SUB_SPOSA==TRUE)
;Spindel mit SPOS positionieren
CASE $P_SUB_SPOSMODE OF 0 GOTO LABEL_DC\
1 GOTO LABEL_IC 2 GOTO LABEL_AC 3 GOTO LABEL_DC\
4 GOTO LABEL_ACP 5 GOTO LABEL_ACN\
DEFAULT GOTOF LABEL_ERR
SPOS[_LSPI]=DC($P_SUB_SPOSIT) SPOS[_CSPI]=DC($P_SUB_SPOSIT)
GOTOF LABEL_CONT
DELAYFSTOF
SPOS[_LSPI]=IC($P_SUB_SPOSIT) SPOS[_CSPI]=IC($P_SUB_SPOSIT)
DELAYFSTON
GOTOF LABEL_CONT
SPOS[_LSPI]=AC($P_SUB_SPOSIT) SPOS[_CSPI]=AC($P_SUB_SPOSIT)
GOTOF LABEL_CONT
SPOS[_LSPI]=ACP($P_SUB_SPOSIT) SPOS[_CSPI]=ACP($P_SUB_SPOSIT)
GOTOF LABEL_CONT
SPOS[_LSPI]=ACN($P_SUB_SPOSIT) SPOS[_CSPI]=ACN($P_SUB_SPOSIT)
ELSE
;Spindel mit M19 positionieren:
M[_LSPI]=19 M[_CSPI]=19
ENDIF
DELAYFSTOF
COUPON(_CA,_LA)
2.11 Unterprogrammaufruf durch NC-Sprachersetzung
; Hilfsspeicher für Leitachse/-spindel
; Hilfsspeicher für Folgeachse/-spindel
; Hilfsspeicher für Leitspindelnr. (progr.
Spindel)
; Hilfsspeicher für Folgespindelnummer
; Achsbezeichner der Leitspindel
zwischenspeichern
; Achsbezeichner der Folgespindel
zwischenspeichern
; Nummer der Leitspindel zwischenspeichern
; Nummer der Folgepindel zwischenspeichern
; Beginn Stopp-Delay-Bereich
; Synchronspindelkopplung deaktivieren
; Leit- und Folgespindel positionieren
; Ende Stopp-Delay-Bereich
; Synchronspindelkopplung aktivieren
Ausführliche Beschreibung
2-185