不知道下面的程序对你是否有帮助：
网络1：
LD SM0.1
SCPY "", *VD160
网络2：
LD SM0.0
LPS
DTR VD100, VD120
AENO
RTS VD120, *VD140, 2#1010001
LRD
DTR VD104, VD124
AENO
RTS VD124, *VD144, 2#1010001
LRD
DTR VD108, VD128
AENO
RTS VD128, *VD148, 2#1010001
LPP
DTR VD112, VD132
AENO
RTS VD132, *VD152, 2#1010001
网络3：
LD SM0.0
SCAT ";", *VD140
SCAT ";", *VD144
SCAT ";", *VD148
网络4：
LD SM0.0
SCAT *VD140, *VD160
AENO
SCAT *VD144, *VD160
AENO
SCAT *VD148, *VD160
AENO
SCAT *VD152, *VD160

注解就不加了，你拷回去琢磨琢磨。（其中双整型转实数部分可根据实际情况添加或删除）