Ejemplo De Programa - Siemens SINUMERIK 840D sl Manual De Programación

Acciones síncronas a desplazamiento
10.4 Acciones en instrucciones síncronas
Ejemplo

Ejemplo de programa:

Código del programa
N100 Id=1 DO CTSWEC
; init
NEXT:
N200 G0 X30 Z1
N210 G95 F.5
N220 M3 S1000
N230 G0 X25
N240 G1 Z-10
N250 G0 X30
N260 M5
N270 AXCTSWE(S1)
N280 GOTO NEXT
Ciclo tecnológico CTSWEC:
Código del programa
CTSWEC PROC(_ex_CT="CT1" STRING _ex_CTsl_BITmask=1H LONG _ex_CT_SL_Number=1
_ex_WAIT_number_of_IPOs=1000) DISPLOF ICYCOF
DEFINE _ex_CT[3]
DEFINE _ex_CTsl_BITmask
DEFINE _ex_CT_SL_Number LONG =1
DEFINE _ex_WAIT_number_of_IPOs INTEGER =1000
DEFINE _ex_number_of_IPOs $AC_MARKER[0]
N110 IF (($A_STOP_COND[0] OR $A_STOP_COND[1] OR $A_STOP_COND[2] OR $A_STOP_COND[3] OR $A_STOP_COND[4]
OR $A_STOP_COND[5] OR $A_STOP_COND[6] OR $A_STOP_COND[7] OR $A_STOP_COND[8] OR $A_STOP_COND[9] OR
$A_STOP_COND[10]) is true))
N120 _ex_number_of_IPOs=_ex_number_of_IPOs+1
N130 IF _ex_number_of_IPOs >= _ex_WAIT_number_of_IPOs
AND $AN_AXCTSWEC[_ex_CT] == _ex_CTsl_BITmask
N140 AXCTSWEC
; ... ELSE
N150 ENDIF
N160 ELSE
N170 _ex_number_of_IPOs=0
N180 ENDIF
N190 RET
624
Comentarios
; El ciclo tecnológico figura a continuación.
; Habilitación del giro del contenedor de ejes a través del cabezal S1
conocido en el canal.
Comentarios
; Nombre del contenedor
; bit de slot
; Si existe cualquier condición de parada
durante más de 1000 ciclos IPO
; y la habilitación del propio slot aún no
ha tenido lugar:
; Anular la habilitación.
; Esperar a ver si la condición de parada
desaparece por sí misma.
Manual de programación, 09/2011, 6FC5398-2BP40-2EA0
Preparación del trabajo