初始化子程序名称：M46095.SPF
PROC _M46095 SAVE DISPLOF
;Machines specific pre casts
;above XXXXX must replace with machine number
;werden
;---------------------------------------
DEF STRING[20] LV_CYCLE_NAME="M46095.SPF"


;Unload positions
GD_ENT_X = 554 ; absolutely bzgl. Machines - NP
GD_ENT_U = 554 ; absolutely bzgl. Machines - NP
GD_ENT_Z = 0 ; relatively to feed edge SPR
GD_ENT_W = -19 ; relatively to feed edge SPL
GD_ENT_Z3 = -242.7; relatively to feed edge SPR
GD_ENT_Z4 = -9999 ; absolutely bzgl. Machines - NP(-9999 = without Z4)
GD_ENT_C11 = 0 ; absolutely bzgl. Machines - NP
GD_ENT_C12 = 0 ; absolutely bzgl. Machines - NP
GD_ENT_C21 = 0 ; Spindle directs position

;Load positions
GD_BEL_X = 554 ; absolutely bzgl. Machines - NP
GD_BEL_U = 554 ; absolutely bzgl. Machines - NP
GD_BEL_Z = 0 ; relatively to feed edge SPR
GD_BEL_W = -19 ; relatively to feed edge SPL
GD_BEL_Z3 = -242.7; relatively to feed edge SPR
GD_BEL_Z4 = -9999 ; absolutely bzgl. Machines - NP (-9999 = without Z4)
GD_BEL_C11 = 0 ; absolutely bzgl. Machines - NP
GD_BEL_C12 = 0 ; absolutely bzgl. Machines - NP
GD_BEL_C21 = 0 ; Spindle directs position

;Tool change positions (absolutely, -9999 entpricht Automatik)
GD_WZWL_X = -9999 ; absolutely bzgl. Machines - NP
GD_WZWL_U = -9999 ; absolutely bzgl. Machines - NP
GD_WZWL_Z = -9999 ; absolutely bzgl. Machines - NP
GD_WZWL_W = -250 ; absolutely bzgl. Machines - NP
GD_WZWL_Z3 = -9999 ; absolutely bzgl. Machines - NP
GD_WZWL_Z4 = -9999 ; absolutely bzgl. Machines - NP
GD_WZWL_C11 = 240 ; absolutely bzgl. Machines - NP
GD_WZWL_C12 = 240 ; absolutely bzgl. Machines - NP
GD_WZWL_C21 = -9999 ; Spindle directs position

GD_WZWR_X = -9999 ; absolutely bzgl. Machines - NP
GD_WZWR_U = -9999 ; absolutely bzgl. Machines - NP
GD_WZWR_Z = 180 ; absolutely bzgl. Machines - NP
GD_WZWR_W = -9999 ; absolutely bzgl. Machines - NP
GD_WZWR_Z3 = -9999 ; absolutely bzgl. Machines - NP
GD_WZWR_Z4 = -9999 ; absolutely bzgl. Machines - NP
GD_WZWR_C11 = 240 ; absolutely bzgl. Machines - NP
GD_WZWR_C12 = 240 ; absolutely bzgl. Machines - NP
GD_WZWR_C21 = -9999 ; Spindle directs position

;Other Axis positions
GD_Z1_POS = -673.5 ;Position of the SPL, quick

;Feed lengths (vector矢量)
GD_FUL_Z1 = 339 ; Feed length SPL
GD_FUR_Z1 = 190 ; Feed radius SPL
GD_FUL_Z4 = -339 ; Feed length SPR
GD_FUR_Z4 = 190 ; Feed radius SPR

;Feed construction lengths (vector)
GD_DFUL_Z1 = 55 ; Feed construction length SPL
GD_DFUR_Z1 = 0 ; Feed construction radius SPL
GD_DFUL_Z4 = -55 ; Feed construction length SPR
GD_DFUR_Z4 = 0 ; Feed construction radius SPR

;Security distances (all values at vectors)
GD_MIN_Z3_SPL = + 102.0 ; Minimal distance right Lunette / left feed edge
GD_MIN_Z3_SPR = - 141.0 ; Minimal distance right Lunette / right feed edge
GD_MIN_Z_W = + 135.0 ; Minimal distance right unit / left unit
GD_MAX_Z_W = + 760.0 ; Maximum distance right unit / left unit

;Area borders
;(absolute Positionen bzgl. Maschinen-NP !)
GD_UBG_Z4 = 394 ; low area border span stick right
GD_OBG_Z4 = 675 ; upper area border span stick right

;Data about the calculation of the dome distance
GD_KUPP_LEN = -999.999 ; Dome pole length
GD_KUPP_CON = -999.999 ; Dome constant
GD_KUPP_Z3_Z4 = -535.144 ; Dome distance Z3-Z4

;Daten fuer -1- Linearpotentiometer/Slave-Achse
GD_B[0] = 509.0246914 ;Abstand B(Master/Slave) bei 0Volt Potispannung
GD_M[0] = 0.0018993352 ;Steigung M=mmWeg/mVolt_Potispannung

;Positions for furnish menu
GD_SETUP_POS[0] = 559 ; Span completely position workpiece 1
GD_SETUP_POS[1] = 350 ; Span completely position workpiece 2

;relative movement of the round axis into ARTIS WZU-Alarm
GD_ARTIS_C11 = -50
GD_ARTIS_C12 = -50

;Spindle maximum speed (r.p.m.s.)
GD_SPIND_VELO_CRIT = 1500

;Reststandzahlermittlung
GD_REM_LIFE_STRATEGY_NEW=0 ; 1=new 0=old

;M function sequence of workpiece stretches

GD_CLMP_MFKT[0,0] = 380 ; Spitze rechts vor
GD_CLMP_MFKT[0,1] = 390 ; End signal
GD_CLMP_MFKT[0,2] = -1 ; End signal
GD_CLMP_MFKT[0,3] = -1 ; End signal
GD_CLMP_MFKT[0,4] = -1 ; End signal


GD_CLMP_MFKT[1,0] = 340 ; Spitze links vor
GD_CLMP_MFKT[1,1] = -1 ; End signal
GD_CLMP_MFKT[1,2] = -1 ; End signal
GD_CLMP_MFKT[1,3] = -1 ; Endekennung
GD_CLMP_MFKT[1,4] = -1 ; Endekennung


GD_CLMP_MFKT[2,0] = 370 ; Spannfutter links zu
GD_CLMP_MFKT[2,1] = -1 ; Endekennung
GD_CLMP_MFKT[2,2] = -1 ; Endekennung
GD_CLMP_MFKT[2,3] = -1 ; Endekennung
GD_CLMP_MFKT[2,4] = -1 ; Endekennung


GD_CLMP_MFKT[3,0] = 350 ; Spannfutter rechts zu
GD_CLMP_MFKT[3,1] = -1 ; Endekennung
GD_CLMP_MFKT[3,2] = -1 ; Endekennung
GD_CLMP_MFKT[3,3] = -1 ; Endekennung
GD_CLMP_MFKT[3,4] = -1 ; Endekennung

GD_CLMP_MFKT[4,0] = 322 ; Endekennung
GD_CLMP_MFKT[4,1] = -1 ; Endekennung
GD_CLMP_MFKT[4,2] = -1 ; Endekennung
GD_CLMP_MFKT[4,3] = -1 ; Endekennung
GD_CLMP_MFKT[4,4] = -1 ; Endekennung

GD_CLMP_MFKT[5,0] = 382 ; Endekennung
GD_CLMP_MFKT[5,1] = 392 ; Endekennung
GD_CLMP_MFKT[5,2] = -1 ; Endekennung
GD_CLMP_MFKT[5,3] = -1 ; Endekennung
GD_CLMP_MFKT[5,4] = -1 ; Endekennung

GD_CLMP_MFKT[6,0] = -1 ; Endekennung
GD_CLMP_MFKT[6,1] = -1 ; Endekennung
GD_CLMP_MFKT[6,2] = -1 ; Endekennung
GD_CLMP_MFKT[6,3] = -1 ; Endekennung
GD_CLMP_MFKT[6,4] = -1 ; Endekennung

GD_CLMP_MFKT[7,0] = -1 ; Endekennung
GD_CLMP_MFKT[7,1] = -1 ; Endekennung
GD_CLMP_MFKT[7,2] = -1 ; Endekennung
GD_CLMP_MFKT[7,3] = -1 ; Endekennung
GD_CLMP_MFKT[7,4] = -1 ; Endekennung

GD_CLMP_MFKT[8,0] = -1 ; Endekennung
GD_CLMP_MFKT[8,1] = -1 ; Endekennung
GD_CLMP_MFKT[8,2] = -1 ; Endekennung
GD_CLMP_MFKT[8,3] = -1 ; Endekennung
GD_CLMP_MFKT[8,4] = -1 ; Endekennung

GD_CLMP_MFKT[9,0] = -1 ; Endekennung
GD_CLMP_MFKT[9,1] = -1 ; Endekennung
GD_CLMP_MFKT[9,2] = -1 ; Endekennung
GD_CLMP_MFKT[9,3] = -1 ; Endekennung
GD_CLMP_MFKT[9,4] = -1 ; Endekennung

;M-Funktionsreihenfolge bei Werkstueck spannen Referenziervorgang

GD_REF_CLMP_MFKT[0,0] = 380 ; Spitze rechts vor
GD_REF_CLMP_MFKT[0,1] = 390 ; Endekennung
GD_REF_CLMP_MFKT[0,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[0,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[0,4] = -1 ; Endekennung


GD_REF_CLMP_MFKT[1,0] = 340 ; Spitze links vor
GD_REF_CLMP_MFKT[1,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[1,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[1,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[1,4] = -1 ; Endekennung


GD_REF_CLMP_MFKT[2,0] = 370 ; Spannfutter rechts zur
GD_REF_CLMP_MFKT[2,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[2,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[2,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[2,4] = -1 ; Endekennung


GD_REF_CLMP_MFKT[3,0] = 350 ; Spannbacken links auf
GD_REF_CLMP_MFKT[3,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[3,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[3,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[3,4] = -1 ; Endekennung

GD_REF_CLMP_MFKT[4,0] = 322 ; Endekennung
GD_REF_CLMP_MFKT[4,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[4,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[4,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[4,4] = -1 ; Endekennung

GD_REF_CLMP_MFKT[5,0] = 382 ; Endekennung
GD_REF_CLMP_MFKT[5,1] = 392 ; Endekennung
GD_REF_CLMP_MFKT[5,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[5,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[5,4] = -1 ; Endekennung

GD_REF_CLMP_MFKT[6,0] = -1 ; Endekennung
GD_REF_CLMP_MFKT[6,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[6,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[6,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[6,4] = -1 ; Endekennung

GD_REF_CLMP_MFKT[7,0] = -1 ; Endekennung
GD_REF_CLMP_MFKT[7,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[7,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[7,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[7,4] = -1 ; Endekennung

GD_REF_CLMP_MFKT[8,0] = -1 ; Endekennung
GD_REF_CLMP_MFKT[8,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[8,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[8,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[8,4] = -1 ; Endekennung

GD_REF_CLMP_MFKT[9,0] = -1 ; Endekennung
GD_REF_CLMP_MFKT[9,1] = -1 ; Endekennung
GD_REF_CLMP_MFKT[9,2] = -1 ; Endekennung
GD_REF_CLMP_MFKT[9,3] = -1 ; Endekennung
GD_REF_CLMP_MFKT[9,4] = -1 ; Endekennung

;Position Z4 of measuring
GD_POS_ME_Z4 = 558.65

;If caliper measures
GD_POS_MT_XU = 197.65; If caliper measures position X/U direction
GD_POS_MT_Z4 = -447.48; If caliper measures position relatively to Z4
GD_POS_RN_XU = -166.73; Reference cams position X/U direction
GD_POS_RN_MI = 70.057; Reference cams Z/W minus
GD_POS_RN_PL = 75.075; Reference cams Z/W plus
GD_ME_VOR = 600 ; If encouragement measures
GV_POS_MAG = 0 ; Magazine position at the separate mass
GD_ME_TOLKA = 0.02 ; Tolerance with the calibration
GD_ME_TOLME = 0.3 ; Tolerance when measuring
GV_POS_ME_S1 = 0 ; Switch position 1
GV_POS_ME_S2 = 0 ; Switch position 2
GV_POS_ME_S3 = 0 ; Switch position 3
GV_POS_ME_S4 = 0 ; Switch position 4
GV_POS_ME_S5 = 0 ; Switch position 5

;Data for solid attack mass
GD_FIXED_POS[0] = 557.025 ;X-Achse [ 502.6]
GD_FIXED_POS[1] = -245.515 ;Z-Achse [-246.5]
GD_FIXED_POS[5] = 556.907 ;U-Achse [ 502.8]
GD_FIXED_POS[6] = -380.471 ;W-Achse [-381.5]
GD_FIXED_POS[8] = -177.858 ;Z3-Achse (Luenette) [???]

ret
;=======================================
;H_V5.0 15.08.00 ES1/HIN
;---------------------------------------
;*Beschreibung
;*Eingangsparameter
;---------------------------------------
;*Ausgangsparameter
;---------------------------------------
;*Steuerungstyp(en)
;Siemens 840D ab V4.3
;---------------------------------------
;* Maschinenty(en)p
;DRZ20-2 Typ=xxxx
;---------------------------------------
;*Vertraeglichkeit
;NC ab H_V1.0
;PLC ab H_V1.0
;MMC ab H_V1.0
;---------------------------------------
;*Historie
;H_V1.0 22.04.98 ES1/RAJ
; Beginn Ersterstellung
;H_V1.0 11.05.98 ES1/RAJ
; Potentiometerdaten und Huelldatenvorbesetzung
; herausgenommen
; Maschinentypabfrage eingebaut
;H_V1.0 15.05.98 ES1/RAJ
; Beschleunigung Z4 auf 50%
;H_V1.1 17.06.98 ES1/RAJ
; Auswahl der Sprache eingebaut
;H_V1.2 07.09.98 ES1/RAJ
; GD_SETUP_POS[], GD_ARTIS_C11, GD_ARTIS_C12 initialisiert
; GD_CLMP_MFKT eingefuehrt (Klemmreihenfolge)
;H_V1.8 03.11.98 ES1/RAJ
; GD_U_Z4_MIN Schreibfehler beseitigt
;H_V3.0 14.12.98 ES1/RAJ
; Belade-/Entladeposition C11,C12 auf 0 Grad geaendert,
; Positionierung X und U auf 554.5 statt 555.
; Werkzeugwechselposition C11 und C12 und Position Z4 beim messen
; eingefuehrt
; Differenz zwischen Futter und Werkzeug beim WZW eingefuehrt
;H_V4.0 03.08.99 ES1/RAJ
; Standardisierung mit RF
; neue WZW-Positionen
;H_V4.0 23.09.99 ES1/HOR
; M-Funktion fuer Slaveachse: GD_MASTER_FKT_1 u. GD_MASTER_FKT_2
; GD_KUPP_Z3_Z4 entfernt, von cs_sup1 berechnet
;H_V4.0 04.11.99 ES1/STJ
; Variablen f黵 Spannfuttervorbauten eingefuehrt (GD_DFUX_ZX)
;SINA 15.08.00 ES1/HIN
; Achsvariablen eingef黨rt
;SINA 16.11.00 ES1/HIN
; GD_SLAVE_AX f黵 CS_SUP1 eingef黦t
; Definition Achsvariablen nach CS_INIT verschoben
;H_VA 7.8.01 ES13/KAM
; Maschinen ohne Synchronspindel moeglich,
; Header f黵 Simulator
;H_VA 07.09.2k1 ES13/KAM
; Umstellung: Mtyp- abhaenige Daten nach CS_INIT_MTYP verlegt
;H_VA 22.11.01 ES13/HOR
; Daten zur Berechnung des Kuppelabstands
;H_V6.2 05.12.01 ES13/KAM
; Spindeldrehzahlbegrenzung
;H_V6.2 11.12.01 ES13/KAM
; Neue Reststandmengenberechnung ueber alle Wz-Saetze anw鋒lbar
;H_V7.0 04.12.03 ES13/KAM
; Daten f黵 Festanschlag
;H_V7.1 31.03.04 ES13/KAM ALJ
; Daten f黵 Poti und Kuppelabstand eingebaut
;=======================================