##############################################################################
# -> MEME FICHIER QUE 2017 (RENOMMER)
# -> VOIR POUR METTRE TTES LES TRAJECTOIRES EN G01 (PAS DE G02/03 ET + RAPIDE EN SIMULATION)
#-------------------------
# -> Modifs Az 
# -> LE 02/05/2017  - Modifier degagement Z50 sans M0 (rajouter M0 ds chgt outil)
# -> LE 09/02/2017  - Modifier dégagement pour jeux Romain
# -> LE 15/03/2015  - Modifier CYCLEEND enlever X-150 (va en surcourse)
# -> LE 18/01/2015  - Modifier CYCLEEND valeurs fixes pour dégagement X-150 Y150 Z150
#
# -> LE 16/12/2015  - Modifier CYCLEEND pour Dégagement d'axes en fin de course
#				    - Enlever les lignes SUPA ..
#                   - Placer la ligne CYCLE832(0.01,102001) apres la rotation broche (BUGG CN ?)
#                   - Mis en commentaire le premier M0 (ligne 216)
#
# -> lE 06/01/2015 - Mis en commentaire les lignes N*  'SUPA G0 Z X Y .. (Pb avec simulation sur DMG lors des chgt d'outils qd l'origine Z est dessous la pièce)
#
#-> Le 26/03/2014  - ...      -
#-------------------------
#
#
# MACHINE	MASCHINE	DECKEL-MAHO DMG CTT 
# CONTROLLER	STEUERUNG	SIEMENS 840D
# VERSION	VERSION		
# TYPE OF WORK	BEARBEITUNG	Mill / Fraesen 
# NBR. OF AXIS	ANZ.ACHSEN	5
# ----------------------------------------------------------------------------
# MODE          MODUS		METRIC
# ----------------------------------------------------------------------------
# PROGRAMMER	PROGRAMMIERER	Udo Ehnes, DP Technology
# REACH BY	EMAIL		udo@dptechnology.de
# DATE		DATUM		03-25-1997
# ----------------------------------------------------------------------------
# SPECIALS	BESONDERHEIT	
# ----------------------------------------------------------------------------
# CUSTOMER	KUNDE		
# ----------------------------------------------------------------------------
# Date US	SC	Changes / Describtion
# Datum		KZ	Aenderungsbeschreibung
# ----------------------------------------------------------------------------
# -----------------------------------------------------------------------------
# 03-25-97 	UE	a) Base Post
# 04-10-97	UE	a) Drillcycle modifications (customer request)
# 04-15-97	UE	a) Final Drill cycle changes
# 04-25-97	UE	a) Removed G82, so G81 is now new designed
#
###############################################################################

****************************  SYSTEM VARIABLES  *****************************

PROGRAMNUMBERDEFAULT: 1
NCODEINCREMENT      : 5
## REMOVESPACES         : 1

INCHCONVFACTOR      : 1
METRICCONVFACTOR    : 1

UPPERCASECOMMENTS   : 1

**************************  END SYSTEM VARIABLES  **************************

******************************  MACHINE MODES  *****************************

COORDINATEMODE      : ABSOLUTE
MEASUREMENTMODE     : METRIC
CIRCLEMODE          : FULLCIRCLE
CENTERMODE          : INCREMENTFROMSTART
RAPIDMODE           : PLUNGE
WORKPLANEMODE       : XYPLANE
RETURNPLANEMODE     : RRETURN

***************************  END MACHINE MODES  ****************************

****************************  FORMATABLE CODES  ****************************

PROGRAMNUMBER       : _      N 4 N N 0     N 4 N N 0     0     1 N 0 0
SEQUENCENUMBER      : N      N 5 N N 0     N 5 N N 0     0     1 N 0 0
XABSOLUTE           : X      N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0
YABSOLUTE           : Y      N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0
ZABSOLUTE           : Z      N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0
XCENTERABSOLUTE     : I      N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0
YCENTERABSOLUTE     : J      N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0
ZCENTERABSOLUTE     : K      N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0

## Bohrtiefe K_
MISCFORMAT1       : K_     N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0

## Steigung beim Gewindebohren mit Steigung im Linkslauf
MISCFORMAT2       : K-     N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0

FEEDRATE            : F      N 3 Y N 2     N 5 N N 0     0     1 N 0 0
ZFEEDRATE           : F~     N 3 Y N 2     N 4 N N 0     1     1 N 0 0
SPINDLESPEED        : S      N 4 N N 0     N 4 N N 0     0     1 N 0 0

TOOLNUMBER          : T      N 2 N N 0     N 5 N N 0     0     1 N 0 0
LENGTHCOMPENSATION  : D      N 2 N N 0     N 5 N N 0     0     1 N 0 0

DWELLTIME           : R00=~  N 5 Y N 3     N 5 Y N 3     0     1 N 0 0
INITPECKINCREMENT   : R01=~  N 4 Y N 4     N 5 Y N 3     0     1 Y 0 0
ZPLANE              : R02=~  N 4 Y N 4     N 5 Y N 3     1     1 N 0 0
DEPTH               : R03=~  N 2 Y N 4     N 3 Y N 4     3     1 Y 0 0
DWELLTIME2          : R04=~  N 5 Y N 3     N 5 Y N 3     0     1 Y 0 0
PECK                : R05=~  N 4 Y N 4     N 5 Y N 3     0     1 Y 0 0
FORWARDTAPER        : R06=~  N 1 N N 0     N 1 N N 0     0     1 N 0 0
STEP                : R07=~  N 1 N N 0     N 1 N N 0     0     1 N 0 0
MISCFORMAT3         : R08=~  N 1 N N 0     N 1 N N 0     0     1 N 0 0
MISCFORMAT4         : R09=~  N 1 N N 0     N 1 Y N 2     0     1 N 0 0
CLEARANCE           : R10=~  N 4 Y N 4     N 5 Y N 3     1     1 Y 0 0
TURRETNUMBER        : R11=~  N 1 N N 0     N 1 Y N 3     1     1 Y 0 0
MISCFORMAT5         : R12=~  N 5 Y N 3     N 5 Y N 3     0     1 Y 0 0
MISCFORMAT7	   : OpNumber    N 3 N N 0     N 3 N N 0     6     1 N 0 0

**************************  END FORMATABLE CODES  **************************

****************************  SYMBOLIC CODES  ******************************

Codewort    Maschinenbefehl   Erklaerung des Befehls        bleibt modal
------------------------------------------------------------------------------------
MOTIONRAPID       : G00
MOTIONLINEAR      : G01
MOTIONCW          : G02
MOTIONCCW         : G03

DWELL             : G04

XYPLANE           : G17
ZXPLANE           : G18
YZPLANE           : G19

COMPENSATIONOFF   : G40
COMPENSATIONLEFT  : G41
COMPENSATIONRIGHT : G42

WORKSYSTEM1       : G54
WORKSYSTEM2       : G55
WORKSYSTEM3       : G56
WORKSYSTEM4       : G57
WORKSYSTEM6       : G59

POWERON           : G64

CANCEL            : G80
DRILL1            : G81
DRILL2            : G82
PECK1             : G83
TAP1              : G84

## Gewindebohren ohne Ausgleichsfutter G331,G332
TAP2              : G331      ## Gewindebohren

BORE1             : G85
BORE2             : G86
BORE3             : G89

INCH              : G70
METRIC            : G71

ABSOLUTE          : G90       ## Masseingabe absolut
INCREMENTAL       : G91       ## Masseingabe inkremental

SETORIGIN         : G92
IRETURN           : G98
RRETURN           : G99

PROGRAMSTOP       : M0
OPTIONALSTOP      : M01
ENDPROGRAM        : M30

SPINDLECW         : M03
SPINDLECCW        : M04
SPINDLEOFF        : M05

TOOLCHANGE        : M06

COOLANTMIST          : M8
COOLANTFLOOD         : M8
COOLANTFLOOD2        : M8
COOLANTON            : M8
COOLANTOFF           : M9
COOLANTSPFLOOD       : M8
COOLANTSPFLOOD2      : M8
COOLANTSPON          : M8
COOLANTSPMIST        : M8

COMMENTSTART      : MSG_("
COMMENTEND        : ")
STRINGCHARACTER   : '

VARIABLE          : TOOLAX

MISCSYMBOLICCODE1 : L06
MISCSYMBOLICCODE2 : SPOS=0
MISCSYMBOLICCODE3 : G500	## Schaltet eingestellten NP aus 
				## / Switch OFF active Workcoordinate
MISCSYMBOLICCODE4 : G332	## Rueckzugsbewegung / Retract Move



*****************************************************************************************
****************************    VARIABLES ET FONCTIONS       ****************************
*****************************************************************************************

VARIABLE           : ToolChangeFlag
                   
DEFINE ChgtOutil  
				   : BLANKLINE
				   : OutputString("/") N M0
				   : TOOLCHANGECOMMENT                   
                   : N 'T="clstring(498)" D1'
				   : N M06*
                   : N COOLANTCODE*
  				   : ToolChangeFlag=(1)
				   : BLANKLINE
ENDDEFINE

*****************************************************************************************
****************************    DEFINITION DES EVENEMENTS    ****************************
*****************************************************************************************

EX_SETUP           : ToolChangeFlag=(0)

EX_STARTCODE       :  '; -> Activation decalage origine (G54)' 
                   : N 'G54'
                   :  '; -> Introduction de cotes absolues (G90) sur plan XY (G17)' 
                   : N 'G90 G17'
				   : N 'FFWON'
				   : N 'SOFT'
				   : BLANKLINE
				   
EX_STARTPOINT      :
				   : ToolChangeFlag=(0)
   				   : BLANKLINE
				   : N 'CYCLE832(0.01,102001)'
				   : BLANKLINE
				   : N S*  SPINDLEDIRECTION*
				   : N COOLANTCODE*
				   : BLANKLINE
##				   : OutputString("/") N M0
				   : N '; -> Positionnement Rapide Axes XY/Z'
				   : N G00 X* Y*
                   : N G00 Z*
				   : BLANKLINE
##				   : OutputString("/") N M0
				   : N '; -> Depart Usinage'
				   : BLANKLINE

EX_CYCLESTART      :
                   :  '; ----------------------------------------'
                   :  'MSG("OP'  OpNumber*(presmisc(223)+1) ':clstring(613)")' 
   				   : '; -> Travail dans le Repere clstring(754)'
				   :  '; ----------------------------------------'
				   : 'MSG("METTRE AVANCE A ZERO AVANT DEPART CYCLE")'
				   : N 'G04 F2'
				   : OutputString("/") N M0
				   : BLANKLINE
				   : ToolChangeFlag=(1) ## pour pas avoir les 1er mvts rapides sans rotaion broche -> en double avec ceux de EX_STARTPOINT
				   
EX_CYCLEEND        : BLANKLINE
				   :'MSG("ATTENTION DEGAGEMENT DES AXES")' 
				   : BLANKLINE
				   : N 'G00 Z100'		
   				   : N M05*
##				   : N G00 Z*(nextclfile(2507)+nextclfile(1475)-nextclfile(852)) 
##     			   : N G00 X*(nextclfile(2505)+nextclfile(1480)) Y*(nextclfile(2506)+nextclfile(1485)) 
				   : BLANKLINE
				   

EX_ENDCODE         : BLANKLINE
                   : 'MSG("ATTENTION DECHARGEMENT OUTIL")' 
				   : N M05*
				   : BLANKLINE 
                   : N T*(00)
                   : N M06
                   : N M30

EX_FIRSTTOOLCHANGE  $Chgt_Outils            

EX_OTHERTOOLCHANGE  $ChgtOutil

EX_LASTTOOLCHANGE   $ChgtOutil
                   
EX_RAPID           : IF (ToolChangeFlag=1) EXITEXAMPLE ENDIF                  ## pour pas avoir les mvt rapide apres chgt outil 
                   : N G00 X Y
                   : N G00 Z
				   
EX_LINEAR          : N G01 X Y Z F

EX_CIRCLE          : N G17 CIRCLEDIRECTION* X* Y* I* J*
EX_CIRCLEZX        : N G18 CIRCLEDIRECTION* X* Z* K* I*
EX_CIRCLEYZ        : N G19 CIRCLEDIRECTION* Y* Z* J* K*

EX_COMPENSATION    : N G01* COMPENSATIONSIDE* X Y Z

EX_COMPENSATIONOFF : N G01* G40 X Y Z