Alle Parameter Auf Ihre Grundstellung Zuruecksetzen - Siemens SINUMERIK 828D Handbuch

K9: Kollisionsvermeidung - nur 840D sl
7.4 Beispiel
Programmcode
;===========================================================
; Initialisierung der Kollisionsdaten
;===========================================================
MSG("Schutzbereiche")
G4 F3

; Alle Parameter auf ihre Grundstellung zuruecksetzen

;
RETVAL = DELOBJ("KIN_CHAIN_ELEM")
IF (RETVAL <> 0)
ENDIF
;
RETVAL = DELOBJ("PROT_AREA_ALL")
IF RETVAL <> 0
ENDIF
;
RETVAL = DELOBJ("PROT_AREA_COLL_PAIRS")
IF RETVAL <> 0
ENDIF
;
;
;===========================================================
; Kinematische Kette
;===========================================================
; KE1: ROOT
; ----------------------------------------------------------
$NK_NAME[C_NKE]
$NK_NEXT[C_NKE]
$NK_PARALLEL[C_NKE]
$NK_TYPE[C_NKE]
;
$NK_OFF_DIR[C_NKE, 0] = 0.0
$NK_OFF_DIR[C_NKE, 1] = 0.0
$NK_OFF_DIR[C_NKE, 2] = 0.0
;
$NK_AXIS[C_NKE]
$NK_A_OFF[C_NKE]
;
C_NKE = C_NKE + 1
;
294
MSG("Fehler: DELOBJ KIN_CHAIN_ELEM")
G4 F5
MSG("Fehler: DELOBJ PROT_AREA_ALL")
G4 F5
MSG("Fehler: DELOBJ PROT_AREA_COLL_PAIRS")
G4 F5
= "ROOT"
= "X-Achse"
= ""
= "OFFSET"
; X
; Y
; Z
= ""
= 0.0
; naechstes Kinematisches Element
Funktionshandbuch, 01/2015, 6FC5397-2BP40-5AA2
Sonderfunktionen