PML语言学习之模型重复检查

漂流瓶537 · 发表于 2024-3-1 19:44

!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

来自安卓APP客户端

xsy8259 · 发表于 2024-3-5 11:47

请问是直接代码复制到command window吗？还是要怎么操作?

来自安卓APP客户端

漂流瓶537 · 发表于 2024-3-5 12:01

xsy8259 发表于 2024-03-05 11:47
请问是直接代码复制到command window吗？还是要怎么操作?

复制到文本，改.txt为.mac，然后把文件直接拖到命令栏即可

来自安卓APP客户端

[AVEVA MARINE] PML语言学习之模型重复检查