发布于 2012-12-29 13:45:49
3楼
这是我找到的相关的NC程序,的确有$A_OUT[1],但是我看不大懂,还请帮忙解答一下,谢谢
N9000 PROC PROG_EVENT SBLOF DISPLOF
;10.10.2008 - GEORG - Kom.4422 - BEHL
N9001 IF $P_PROG_EVENT==4
N9002 MSG("PROG_EVENT AKTIV")
N9003 ENDIF
N9004 STOPRE
N9005 CANCEL()
N9006 STOPRE
;Synchronaktionen K* 1
N9007 IF $MC_CHAN_NAME=="CHAN1"
N9008 STOPRE
; IDS=5 EVERY $A_IN[1]==1 DO TRAILON(Z1,Z)
; INTERVALL
;Spindel Auslastung lesen
N9009 IDS=1 DO $A_DBB[12]=$AA_LOAD[C1] $A_DBB[13]=$AA_LOAD[C2] $A_DBB[14]=$AA_LOAD[C3] $A_DBB[15]=$AA_LOAD[C4] $A_DBB[16]=$AA_LOAD[C5] $A_DBB[17]=$AA_LOAD[C6]
;Z-Achsen Auslastung lesen
N9010 IDS=2 DO $A_DBB[18]=$AA_LOAD[Z1] $A_DBB[19]=$AA_LOAD[Z2] $A_DBB[20]=$AA_LOAD[Z3] $A_DBB[21]=$AA_LOAD[Z4] $A_DBB[22]=$AA_LOAD[Z5] $A_DBB[23]=$AA_LOAD[Z6]
;Kopplung Z/C-Achse ein/aus
;geaendert, jetzt in L910 wegen Satzsuchlauf
; IDS=5 EVERY $A_IN[1]==1 DO TRAILON(Z1,Z)
; IDS=6 EVERY $A_IN[2]==1 DO TRAILON(Z2,Z)
; IDS=7 EVERY $A_IN[3]==1 DO TRAILON(Z3,Z)
; IDS=8 EVERY $A_IN[4]==1 DO TRAILON(Z4,Z)
; IDS=9 EVERY $A_IN[5]==1 DO TRAILON(Z5,Z)
; IDS=10 EVERY $A_IN[6]==1 DO TRAILON(Z6,Z)
;
; IDS=11 EVERY $A_IN[1]==0 DO TRAILOF(Z1,Z)
; IDS=12 EVERY $A_IN[2]==0 DO TRAILOF(Z2,Z)
; IDS=13 EVERY $A_IN[3]==0 DO TRAILOF(Z3,Z)
; IDS=14 EVERY $A_IN[4]==0 DO TRAILOF(Z4,Z)
; IDS=15 EVERY $A_IN[5]==0 DO TRAILOF(Z5,Z)
; IDS=16 EVERY $A_IN[6]==0 DO TRAILOF(Z6,Z)
;Synchronaktionen K* 1 durchgelaufen = "1" setzen
N9011 IDS=17 DO $A_OUT[1]=1
N9012 STOPRE
N9013 ENDIF
;Synchronaktionen K* 2
N9014 IF $MC_CHAN_NAME=="CHAN2"
;;Kollisions黚erwachung Support1 - Support 6
;KOLLISION
;call"/_N_CMA_DIR/_N_Kollision_SPF"
;***************** Kopplung Y-Achse ein/aus *****************
; IDS=20 EVERY $A_IN[25]==1 DO TRAILON(Y1,Y)
; IDS=21 EVERY $A_IN[26]==1 DO TRAILON(Y2,Y)
; IDS=22 EVERY $A_IN[27]==1 DO TRAILON(Y3,Y)
; IDS=23 EVERY $A_IN[28]==1 DO TRAILON(Y4,Y)
; IDS=24 EVERY $A_IN[29]==1 DO TRAILON(Y5,Y)
; IDS=25 EVERY $A_IN[30]==1 DO TRAILON(Y6,Y)
; IDS=26 EVERY $A_IN[25]==0 DO TRAILOF(Y1,Y)
; IDS=27 EVERY $A_IN[26]==0 DO TRAILOF(Y2,Y)
; IDS=28 EVERY $A_IN[27]==0 DO TRAILOF(Y3,Y)
; IDS=29 EVERY $A_IN[28]==0 DO TRAILOF(Y4,Y)
; IDS=30 EVERY $A_IN[29]==0 DO TRAILOF(Y5,Y)
; IDS=31 EVERY $A_IN[30]==0 DO TRAILOF(Y6,Y)
;Synchronaktionen K* 2 durchgelaufen = "1" setzen
N9015 IDS=32 DO $A_OUT[2]=1
N9016 STOPRE
N9017 ENDIF
N9018 MSG()
N9019 M17