Parents
  • Bom dia!

    Estou fazendo uma macro para gerar arquivos .rvm automáticos.
    No início da macro eu coloco para listar todos os pipes com uma definição de cores cada um. Depois eu gostaria de adicionar tudo que está no modelos MENOS os pipes. Alguém sabe como é esse comando de adicionar tudo menos os pipes? Já tentei o comando EXPORT ALL TYPE NE ('PIPE'), porem não deu certo.

    Segue macro abaixo:

    DESIGN


    VAR !PRJCODE PROJ CODE
       !PRJMAC = !PRJCODE + 'MAC'
    VAR !MACFOLDER EVAR '$!PRJMAC'
       !PROJFOLDER = !MACFOLDER.PART( 4 , '\' )
    var !PDMSPROJFOLDER EVAR 'METSOPDMS12PROJ'
       !REVIEWMODELFOLDER = !PDMSPROJFOLDER + '\' + !PROJFOLDER + '\REVIEW'
       q var !REVIEWMODELFOLDER
       !REVIEWMODLOC = !REVIEWMODELFOLDER
       !REVIEWMODLOC = 'Q:\prj\PDMS_Review\Klabin'



    $* ------------------------PIPE--------------------------------------------------------------------------------


    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P0' COL 10
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P1' COL 2
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P2' COL 4
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P3' COL 12
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P4' COL 5
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P5' COL 7

    VAR !PRESSFILE '/' + '$!REVIEWMODLOC' + '\PUB/' + 'PDG_PDU_PIPE.rvm'
    $P Exporting  $!PRESSFILE
    EXPORT FILE $!PRESSFILE OVER
    EXPORT HOLES ON
    EXPORT AUTOCOL ON
    EXPORT REPRESENTATION ON
    EXPORT ALL PIPE
    EXPORT FINISH

    $* ------------------------GERAL-------------------------------------------------------------------------------

    EXPORT AUTOCOL ALL SITE WITH NAME EQ '/33000/DRYING/ELETR' COL 5
    EXPORT AUTOCOL ALL SITE WITH NAME EQ '/33000/DRYING/INST' COL 8

    VAR !PRESSFILE '/' + '$!REVIEWMODLOC' + '\PUB/' + 'PDG_PDU.rvm'
    $P Exporting  $!PRESSFILE
    EXPORT FILE $!PRESSFILE OVER
    EXPORT HOLES ON
    EXPORT AUTOCOL ON
    EXPORT REPRESENTATION ON
    AUTOCOLOUR DISPLAYEXP ON
    EXPORT ALL TYPE NE ('PIPE') --------------------->>> COMANDO QUE NÃO ESTOU CONSEGUINDO REALIZAR.
    EXPORT FINISH

    QUIT FINISH
Reply
  • Bom dia!

    Estou fazendo uma macro para gerar arquivos .rvm automáticos.
    No início da macro eu coloco para listar todos os pipes com uma definição de cores cada um. Depois eu gostaria de adicionar tudo que está no modelos MENOS os pipes. Alguém sabe como é esse comando de adicionar tudo menos os pipes? Já tentei o comando EXPORT ALL TYPE NE ('PIPE'), porem não deu certo.

    Segue macro abaixo:

    DESIGN


    VAR !PRJCODE PROJ CODE
       !PRJMAC = !PRJCODE + 'MAC'
    VAR !MACFOLDER EVAR '$!PRJMAC'
       !PROJFOLDER = !MACFOLDER.PART( 4 , '\' )
    var !PDMSPROJFOLDER EVAR 'METSOPDMS12PROJ'
       !REVIEWMODELFOLDER = !PDMSPROJFOLDER + '\' + !PROJFOLDER + '\REVIEW'
       q var !REVIEWMODELFOLDER
       !REVIEWMODLOC = !REVIEWMODELFOLDER
       !REVIEWMODLOC = 'Q:\prj\PDMS_Review\Klabin'



    $* ------------------------PIPE--------------------------------------------------------------------------------


    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P0' COL 10
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P1' COL 2
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P2' COL 4
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P3' COL 12
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P4' COL 5
    EXPORT AUTOCOL ALL PIPE MEM WITH UPCASE( :PSTAT of PIPE ) EQ 'P5' COL 7

    VAR !PRESSFILE '/' + '$!REVIEWMODLOC' + '\PUB/' + 'PDG_PDU_PIPE.rvm'
    $P Exporting  $!PRESSFILE
    EXPORT FILE $!PRESSFILE OVER
    EXPORT HOLES ON
    EXPORT AUTOCOL ON
    EXPORT REPRESENTATION ON
    EXPORT ALL PIPE
    EXPORT FINISH

    $* ------------------------GERAL-------------------------------------------------------------------------------

    EXPORT AUTOCOL ALL SITE WITH NAME EQ '/33000/DRYING/ELETR' COL 5
    EXPORT AUTOCOL ALL SITE WITH NAME EQ '/33000/DRYING/INST' COL 8

    VAR !PRESSFILE '/' + '$!REVIEWMODLOC' + '\PUB/' + 'PDG_PDU.rvm'
    $P Exporting  $!PRESSFILE
    EXPORT FILE $!PRESSFILE OVER
    EXPORT HOLES ON
    EXPORT AUTOCOL ON
    EXPORT REPRESENTATION ON
    AUTOCOLOUR DISPLAYEXP ON
    EXPORT ALL TYPE NE ('PIPE') --------------------->>> COMANDO QUE NÃO ESTOU CONSEGUINDO REALIZAR.
    EXPORT FINISH

    QUIT FINISH
Children
No Data