|
!res = array()
!res2 = array()
var !equis coll all equi for CE
!equis2 = array()
!equis2 = !equis
do !x index !equis
!equi1 = $!equis[$!x]
!ref = NAME of $!equis[$!x]
!name = NAME of SPREF of $!equis[$!x]
!pos = pos of $!equis[$!x]
do !x2 index !equis2
!ref2 = NAME of $!equis2[$!x2]
!name2 = NAME of SPREF of $!equis2[$!x2]
!pos2 = pos of $!equis2[$!x2]
if !ref ne !ref2 and !name eq !name2 and !pos eq !pos2 then
!r = !ref + ' overlap with ' + !ref2
!rv = !ref2 + ' overlap with ' + !ref
if !res.size() eq 0 then
!res.append(!r)
elseif !res.find(!r).size() eq 0 and !res.find(!rv).size() eq 0 then
!res.append(!r)
endif
endif
enddo
enddo
$p 以下设备底座重叠,请核对:
do !m index !res
$p $!res[$!m]
enddo
var !ftubs coll all ftub for CE
!ftubs2 = array()
!ftubs2 = !ftubs
do !y index !ftubs
!ftub1 = $!ftubs[$!y]
!ref = NAME of $!ftubs[$!y]
!name = NAME of SPREF of $!ftubs[$!y]
!pos = pos of $!ftubs[$!y]
do !y2 index !ftubs2
!ref2 = NAME of $!ftubs2[$!y2]
!name2 = NAME of SPREF of $!ftubs2[$!y2]
!pos2 = pos of $!ftubs2[$!y2]
if !ref ne !ref2 and !name eq !name2 and !pos eq !pos2 then
!r = !ref + ' overlap with ' + !ref2
!rv = !ref2 + ' overlap with ' + !ref
if !res2.size() eq 0 then
!res2.append(!r)
elseif !res2.find(!r).size() eq 0 and !res2.find(!rv).size() eq 0 then
!res2.append(!r)
endif
endif
enddo
enddo
|
|