管道支吊架编号程序

admin

!Nump = Real()
!Numm = Real()
!Numb = Real()
!name = string()
!Total = 0

--input pipename
!input=object file('c:\1.txt')
!lines=!input.ReadFile()
   do !line values !lines
      $p $!line
   enddo

--search all pipe

   var !pipes coll all pipe for ce
    do !Nump values !pipes
       $!Nump
       !name=name
        q var !name

      do !line values !lines
      
       q var !line
       if !name eq !line then


var !brans coll all bran for $!Nump
       do !Numb values !brans
          $!Numb


          var !branm coll all bran mem with (type eq 'ATTA') for $!Numb
          do !Numm values !branm
            $!Numm
          !Stext=Stext
          !Mtocomponent=Mtocomponent
         if(!Mtocomponent EQ '') then
          if(!Stext EQ '') then
            !Total= !Total + 1
            if (!Total LE 9) then
            !name='/3J000' & !Total
            elseif (!Total LE 99 and !Total GT 9) then
            !name='/3J00' & !Total
            elseif (!Total LE 999 and !Total GT 99) then
            !name='/3J0' & !Total
            elseif (!Total LE 9999 and !Total GT 999) then
            !name='/3J' & !Total
            endif
            
             name $!name
             --unname
           endif
          endif
enddo
enddo
endif
enddo
enddo

小新

第一步先导出改ZONE中所有的PIPE名称，用报表即可，然后放在C:/1.TXT,然后就可以使用该编号程序了。

Lee

如果管道数量多的话，改成
!Stext=!Numm.Stext
!Mtocomponent=!Numm.Mtocomponent
会好一些。

Lee

!Nump = Real()
!Numm = Real()
!Numb = Real()
!name = string()
!Total = 0

--input pipename
!input=object file('c:\1.txt')
!lines=!input.ReadFile()
    do !line values !lines
       $p $!line
    enddo

--search all pipe

    var !pipes coll all pipe for ce
     do !Nump values !pipes
        $!Nump
        !name=name
         q var !name

       do !line values !lines
        
        q var !line
        if !name eq !line then


var !brans coll all bran for $!Nump
        do !Numb values !brans
           --$!Numb


           var !branm coll all bran mem with (type eq 'ATTA') for $!Numb
           do !Numm values !branm
              !Stext=!Numm.Stext
              !Mtocomponent=!Numm.Mtocomponent
          if(!Mtocomponent EQ '') then
           if(!Stext EQ '') then
             !Total= !Total + 1
             if (!Total LE 9) then
             !name='/3J000' & !Total
             elseif (!Total LE 99 and !Total GT 9) then
             !name='/3J00' & !Total
             elseif (!Total LE 999 and !Total GT 99) then
             !name='/3J0' & !Total
             elseif (!Total LE 9999 and !Total GT 999) then
             !name='/3J' & !Total
             endif
            
              name $!name
              --unname
            endif
           endif
enddo
enddo
endif
enddo
enddo

过控103班

怎么搞得

过控03班

11111111111111

过控03班

111111111