想使用钳关闭网络,钳的类型必须是1-有钳输出点打开/关闭的设置-有钳输入点打开的设置
IF ($OUT[DEF_ZANGE[30].A_AUF]==TRUE) THEN -
i=DEF_ZANGE[30].E_AUF -保存要开关的站地址-
ret=99
IF (SZAxConfig>0) AND DOCK_SZ THEN –SZAxConfig带几个外部轴焊钳-
$softplcint[1]=0
ENDIF
IF (SZAxConfig>0) AND DOCK_NZ THEN
$softplcint[4]=0
ENDIF
IF (SZAxConfig>0) AND DOCK_CZ THEN
$softplcint[6]=0
ENDIF
Ret=ioctl("PNIO-CTRL",60,i) -打开站-
SWITCH ret
CASE 0 ; 连接合格
SyncMoveMessage(91,#NotifyMsg)
CASE 1 ; 连接超时
SyncMoveMessage(92,#QuitMsg)
CASE 2 ; 连接参数错误
SyncMoveMessage(93,#QuitMsg)
DEFAULT
ENDSWITCH
$OUT[DEF_ZANGE[30].A_AUF]=FALSE -关闭输出开站-
ENDIF
ENDIF
-网络关站-
IF (DEF_ZANGE[30].Typ==1) AND (DEF_ZANGE[30].A_AUF>0) AND (DEF_ZANGE[30].A_ZU>0) AND (DEF_ZANGE[30].E_ZU>0) THEN
IF ($OUT[DEF_ZANGE[30].A_ZU]==TRUE) THEN
i=DEF_ZANGE[30].E_ZU
ret=99
IF (SZAxConfig>0) AND DOCK_SP THEN
$softplcint[1]=ActDockAx(1)
ENDIF
IF (SZAxConfig>0) AND DOCK_NZ THEN
$softplcint[4]=ActDockAx(1)
ENDIF
IF (SZAxConfig>0) AND DOCK_CZ THEN
$softplcint[6]=ActDockAx(1)
ENDIF
Ret=ioctl("PNIO-CTRL",50,i)
SWITCH ret
CASE 0 ; ioctl OK
SyncMoveMessage(90,#NotifyMsg)
CASE 1 ; ioctl Timeout
SyncMoveMessage(92,#QuitMsg)
CASE 2 ; ioctl falscher Parameter
SyncMoveMessage(93,#QuitMsg)
DEFAULT
ENDSWITCH
$OUT[DEF_ZANGE[30].A_ZU]=FALSE
ENDIF
ENDIF