K9: Kollisionsvermeidung - nur 840D sl
6.4 Beispiel
Programmcode
; ----------------------------------------------------------
; Schutzbereichselement 1.1: SBE Staender
; ----------------------------------------------------------
$NP_NAME[C_NPE]
$NP_NEXT[C_NPE]
$NP_NEXTP[C_NPE]
$NP_TYPE[C_NPE]
;
$NP_PARA[C_NPE,0]
$NP_PARA[C_NPE,1]
$NP_PARA[C_NPE,2]
;
$NP_OFF[C_NPE,0]
$NP_OFF[C_NPE,1]
$NP_OFF[C_NPE,2]
;
$NP_DIR[C_NPE,0]
$NP_DIR[C_NPE,1]
$NP_DIR[C_NPE,2]
;
$NP_ANG[C_NPE]
;
$NP_COLOR[C_NPE]
$NP_D_LEVEL[C_NPE]
$NP_USAGE[C_NPE]
$NP_FILENAME[C_NPE] = ""
;
C_NPE = C_NPE + 1
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; Schutzbereich 2: Werkzeugaufnahme
; ----------------------------------------------------------
$NP_PROT_NAME[C_NPC]
$NP_PROT_TYPE[C_NPC]
$NP_CHAIN_ELEM[C_NPC] = "Z-Achse"
$NP_1ST_PROT[C_NPC]
$NP_PROT_COLOR[C_NPC] = 'HFF0000FF'
$NP_BIT_NO[C_NPC]
$NP_INIT_STAT[C_NPC]
;
C_NPC = C_NPC + 1
;
; ----------------------------------------------------------
; Schutzbereichselement 2.1: SBE-WKZ-Aufnahme
; ----------------------------------------------------------
$NP_NAME[C_NPE]
$NP_NEXT[C_NPE]
$NP_NEXTP[C_NPE]
$NP_TYPE[C_NPE]
;
$NP_PARA[C_NPE,0]
308
= "SBE-Staender"
= ""
= ""
= "BOX"
Quadermasse
= 160.0
; Laenge
= 140.0
; Breite
= 800.0
; Hoehe
Mittelpunkt
=
0.0
; X
= 570.0
; Y: xxx hinter Tischkante
= 350.0
; Z: Unterkante gleich Unterkante Tisch
=
0.0
=
0.0
=
0.0
=
0.0
=
0
=
0
= "V"
; V = nur visualisieren
; naechstes Schutzbereichselement
= "WKZ-Aufnahme"
= "MACHINE"
= "SBE-WKZ-Aufnahme"
; AARRGGBB
= -1
= "A"
; naechster Schutzbereich
= "SBE-WKZ-Aufnahme"
= ""
= ""
= "CYLINDER"
Zylindermasse
= 50.0
; Hoehe
Funktionshandbuch, 03/2013, 6FC5397-2BP40-3AA1
Sonderfunktionen