Pagina 2 di 2 PrimaPrima 12
Risultati da 11 a 19 di 19
  1. #11
    Utente Junior L'avatar di The X
    Iscritto dal
    2009
    Messaggi
    31
    Professione
    Progettista-Gestionale
    Regione
    Emilia Romagna
    Software
    Pro-E WF4 & PDMLink

    Predefinito

    Eccomi qua, come promesso vi posto le mie 2 macro che con molta fatica sono riuscito a realizzare....

    Premesse :

    1) D:\Work_AreaWF4\dxf_stp_igs --> Directory di lavoro (dove vengono salvati i vari files esportati da Pro-E)
    2) H:\\Standard\\macro --> Directory dove ho salvato gli script batch
    3) Opzioni del config.pro da avere --> new_parameter_ui yes --> new_relation_ui yes
    ---------------------

    --------------------------------------------------------------------
    ! -----------------
    ! MACRO PRINCIPALI
    ! -----------------
    ! Con il modello aperto (prt o asm) premendo questa macro si apre AUTOMATICAMENTE la messa in tavola associata ad esso,
    ! ovvero quella con lo stesso codice-file. (es. 123456.prt --> apre il 123456.drw)
    !
    mapkey apri_drw @MAPKEY_NAMEApri Drawind del 3D;@MAPKEY_LABELOD_3D;\
    mapkey(continued) @MAPKEY_LABELApri Drawing del 3D;%exp_param_3d_prt;\
    mapkey(continued) @SYSTEMH:\\Standard\\macro\\estrai_numero_file.bat ;%esegui_trail;

    ! Con la messa in tavola aperta, premendo questa macro si esegue la stampa su file (nel mio caso nel formato hpgl) CON già il parametro "CODICE" (codice aziendale utilizzato per identificare univocamente un particolare prodotto) e il tipo di formato !!!
    (es. aprendo il 123456.drw con dentro il parametro CODICE = BC-70123 in formato A4 --> mi crea il file BC-70123_A4.hpgl nella cartella di rete g:\hpgl)
    !
    mapkey stama_hpgl_a4 @MAPKEY_NAMEStampa Hpgl A4;@MAPKEY_LABELStampa Hpgl A4;\
    mapkey(continued) %exp_param_asm;%exp_param_prt;\
    mapkey(continued) @SYSTEMH:\\Standard\\macro\\estrai_codice_a4.bat;% esegui_trail;

    --------------------------------------------------------------------
    ! -----------------
    ! SOTTO-MACRO
    ! -----------------
    mapkey exp_param_prt @MAPKEY_NAMEEsporta Lista Parametri;\
    mapkey(continued) @MAPKEY_LABELEsporta lista parametri;~ Command `ProCmdDwgParameters` ;\
    mapkey(continued) ~ Open `relation_dlg` `OMContext`;~ Close `relation_dlg` `OMContext`;\
    mapkey(continued) ~ Select `relation_dlg` `OMContext`1 `part`;\
    mapkey(continued) ~ Select `main_dlg_cur` `PHTLeft.AssyTree`1 `node0`;\
    mapkey(continued) ~ Select `relation_dlg` `MenuBar1`1 `File`;\
    mapkey(continued) ~ Select `relation_dlg` `CascadeExport`;~ Close `relation_dlg` `MenuBar1`;\
    mapkey(continued) ~ Close `relation_dlg` `CascadeExport`;\
    mapkey(continued) ~ Activate `relation_dlg` `PBExportTXT`;\
    mapkey(continued) ~ Trail `UI Desktop` `UI Desktop` `DLG_PREVIEW_POST` `file_open`;\
    mapkey(continued) ~ Select `file_open` `Location Browser`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Activate `file_open` `M_pfafs:drives`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Open`;\
    mapkey(continued) ~ FocusIn `relation_dlg` `ParamsPHLay.ParTable`;\
    mapkey(continued) ~ Activate `relation_dlg` `PB_Cancel`;

    mapkey exp_param_asm @MAPKEY_NAMEEsporta Lista Parametri;\
    mapkey(continued) @MAPKEY_LABELEsporta lista parametri;~ Command `ProCmdDwgParameters` ;\
    mapkey(continued) ~ Open `relation_dlg` `OMContext`;~ Close `relation_dlg` `OMContext`;\
    mapkey(continued) ~ Select `relation_dlg` `OMContext`1 `assembly`;\
    mapkey(continued) ~ Select `main_dlg_cur` `PHTLeft.AssyTree`1 `node0`;\
    mapkey(continued) ~ Open `relation_dlg` `OMContext`;~ Close `relation_dlg` `OMContext`;\
    mapkey(continued) ~ Select `relation_dlg` `MenuBar1`1 `File`;\
    mapkey(continued) ~ Select `relation_dlg` `CascadeExport`;~ Close `relation_dlg` `MenuBar1`;\
    mapkey(continued) ~ Close `relation_dlg` `CascadeExport`;\
    mapkey(continued) ~ Activate `relation_dlg` `PBExportTXT`;\
    mapkey(continued) ~ Trail `UI Desktop` `UI Desktop` `DLG_PREVIEW_POST` `file_open`;\
    mapkey(continued) ~ Select `file_open` `Location Browser`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Activate `file_open` `M_pfafs:drives`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued ~ Activate `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Open`;\
    mapkey(continued) ~ FocusIn `relation_dlg` `ParamsPHLay.ParTable`;\
    mapkey(continued) ~ Activate `relation_dlg` `PB_Cancel`;

    mapkey exp_param_3d_prt @MAPKEY_NAMEEsporta Lista Parametri in 3D;\
    mapkey(continued) @MAPKEY_LABELEsporta lista parametri in 3D;~ Command `ProCmdMmParams` ;\
    mapkey(continued) ~ Select `relation_dlg` `MenuBar1`1 `File`;\
    mapkey(continued) ~ Select `relation_dlg` `CascadeExport`;~ Close `relation_dlg` `MenuBar1`;\
    mapkey(continued) ~ Close `relation_dlg` `CascadeExport`;\
    mapkey(continued) ~ Activate `relation_dlg` `PBExportTXT`;\
    mapkey(continued) ~ Trail `UI Desktop` `UI Desktop` `DLG_PREVIEW_POST` `file_open`;\
    mapkey(continued) ~ Select `file_open` `Location Browser`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Close `file_open` `SAB_wtws:||PDMLink|Modus_new`;\
    mapkey(continued) ~ Select `file_open` `Location Browser`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Activate `file_open` `M_pfafs:drives`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Open`;\
    mapkey(continued) ~ FocusIn `relation_dlg` `ParamsPHLay.ParTable`;\
    mapkey(continued) ~ Activate `relation_dlg` `PB_Cancel`;

    mapkey esegui_trail @MAPKEY_NAMEEsegui Trail;@MAPKEY_LABELEsegui Trail;\
    mapkey(continued) ~ Command `ProCmdUtilTrailTrain` ;\
    mapkey(continued) ~ Trail `UI Desktop` `UI Desktop` `DLG_PREVIEW_POST` `file_open`;\
    mapkey(continued) ~ Select `file_open` `Location Browser`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Activate `file_open` `M_pfafs:drives`;\
    mapkey(continued) ~ Close `file_open` `Location Browser`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `d:`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `Work_AreaWF4`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `dxf_stp_igs`;\
    mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `esegui_trail.txt`;\
    mapkey(continued) ~ Activate `file_open` `Ph_list.Filelist`1 `esegui_trail.txt`;\
    mapkey(continued) @SYSTEMH:\\Standard\\macro\\ripulisci.bat;

  2. #12
    Utente Junior L'avatar di The X
    Iscritto dal
    2009
    Messaggi
    31
    Professione
    Progettista-Gestionale
    Regione
    Emilia Romagna
    Software
    Pro-E WF4 & PDMLink

    Predefinito

    e questi sono i fondamentali script batch (windows- ms dos-batch) che eseguono l'estrazione del dato richiesto

    -------------------
    estrai_numero_file.bat :
    -------------------

    @echo off

    set /A counter=1
    for /f "tokens=1 delims=_" %%c in ('dir /B D:\Work_AreaWF4\dxf_stp_igs\*_par.txt') do call :loop %%c
    goto end

    :loop
    rem echo %counter%
    if %counter%==1 call :writetrail %1
    set /A counter=counter+1
    goto end

    :writetrail
    echo !Pro/ENGINEER TM Wildfire 4.0 (c) 2008 by Parametric Technology Corporation All Rights Reserved >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Command `ProCmdModelOpen` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Trail `UI Desktop` `UI Desktop` `DLG_PREVIEW_POST` `file_open` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Open `file_open` `Type`;~ Close `file_open` `Type` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Select `file_open` `Type`1 `db_4` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Input `file_open` `Inputname` `%1.drw` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Update `file_open` `Inputname` `%1.drw` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Activate `file_open` `Open` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    goto end

    :end

    -------------------
    estrai_codice_a0.bat :
    -------------------

    @echo off

    set /A counter=1
    for /f "tokens=1 delims=_" %%c in ('dir /B D:\Work_AreaWF4\dxf_stp_igs\*_par.txt') do call :loop %%c
    find "CODICE" <D:\Work_AreaWF4\dxf_stp_igs\%codice_file%_par.t xt |sort >D:\Work_AreaWF4\dxf_stp_igs\codice_temp.nfo
    set /A counter=1
    for /f "tokens=2 delims= " %%c in (D:\Work_AreaWF4\dxf_stp_igs\codice_temp.nfo) do call :loop2 %%c
    set /A counter=1
    for /f "tokens=1" %%c in (D:\Work_AreaWF4\dxf_stp_igs\codice_finale.nfo) do call :loop3 %%c
    del D:\Work_AreaWF4\dxf_stp_igs\*.nfo
    goto end

    :loop
    rem echo %counter%
    if %counter%==1 set codice_file=%1
    set /A counter=counter+1
    goto end

    :loop2
    rem echo %counter%
    if %counter%==1 echo %1 >D:\Work_AreaWF4\dxf_stp_igs\codice_finale.nfo
    set /A counter=counter+1
    goto end

    :loop3
    rem echo %counter%
    if %counter%==1 call :writetrail %1
    set /A counter=counter+1
    goto end

    :writetrail
    echo !Pro/ENGINEER TM Wildfire 4.0 (c) 2008 by Parametric Technology Corporation All Rights Reserved >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Command `ProCmdModelPrint` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Select `print` `CascadeButton1`;~ Close `print` `CascadeButton1` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Activate `print` `hpgl`;~ Close `print` `CascadeButton1 >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Activate `print` `OK` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Update `Print_file` `Filename` \ >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo `g:\\hpgl\\%1_A0.hpgl` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    echo ~ Activate `Print_file` `OK` >>D:\Work_AreaWF4\dxf_stp_igs\esegui_trail.txt
    goto end

    :end

    -------------------
    ripulisci.bat
    -------------------
    del D:\Work_AreaWF4\dxf_stp_igs\*.txt

  3. #13
    Utente Standard L'avatar di dema
    Iscritto dal
    2009
    Messaggi
    233
    Professione
    Disegnatore meccanico
    Regione
    Emilia Romagna
    Software
    Tutti

    Predefinito

    Ti chiedo scusa, ammetto che non ho letto accuratamente tutta la macro che hai scritto, volevo chiederti solo una cosa:

    Funziona anche avendo diverse cartelle?
    Mi sembra di capire che tu imposti un percorso in cui cercare le messe in tavola.
    De Maria Gabriele

  4. #14
    Utente Junior L'avatar di The X
    Iscritto dal
    2009
    Messaggi
    31
    Professione
    Progettista-Gestionale
    Regione
    Emilia Romagna
    Software
    Pro-E WF4 & PDMLink

    Predefinito

    @Dema : non ho capito cosa mi vuoi chiedere..... :(

    Le 2 macro funzionano in sintesi così :

    1) Estraggo in un file txt i parametri a partire dal 3D o dalla messa in tavola
    2) Estraggo dal file txt il parametro a me necessario (es. codice) o in alternativa ricavo dal nome del file txt il nome del file aperto in 3d (es. se mi viene generato 123456_par.txt allora 123456 è il nome del mio file)
    3) Creo un file di trail con la macro che voglio eseguire, utilizzando il nome del file appena ricavato (a me servivano le macro "apri drawing" e "stampa in hpgl" ma voi potete sbizzarvi come volete)
    4) Faccio eseguire alla macro l'esecuzione del file di trail.

    FINE

  5. #15
    Utente Standard L'avatar di dema
    Iscritto dal
    2009
    Messaggi
    233
    Professione
    Disegnatore meccanico
    Regione
    Emilia Romagna
    Software
    Tutti

    Predefinito

    Citazione Originariamente Scritto da The X Visualizza Messaggio
    1) D:\Work_AreaWF4\dxf_stp_igs --> Directory di lavoro (dove vengono salvati i vari files esportati da Pro-E)
    2) H:\\Standard\\macro --> Directory dove ho salvato gli script batch
    3) Opzioni del config.pro da avere --> new_parameter_ui yes --> new_relation_ui yes
    ---------------------
    Citazione Originariamente Scritto da dema Visualizza Messaggio
    Funziona anche avendo diverse cartelle?
    Mi sembra di capire che tu imposti un percorso in cui cercare le messe in tavola.
    Citazione Originariamente Scritto da The X Visualizza Messaggio
    @Dema : non ho capito cosa mi vuoi chiedere..... :(
    devo cambiare questo percorso D:\Work_AreaWF4\dxf_stp_igs??? perché se devo scrivere il percorso in cui lui cerca i disegni io cambio cartella più volte al giorno.
    De Maria Gabriele

  6. #16
    Utente Standard L'avatar di dema
    Iscritto dal
    2009
    Messaggi
    233
    Professione
    Disegnatore meccanico
    Regione
    Emilia Romagna
    Software
    Tutti

    Predefinito

    Citazione Originariamente Scritto da dema Visualizza Messaggio
    devo cambiare questo percorso D:\Work_AreaWF4\dxf_stp_igs??? perché se devo scrivere il percorso in cui lui cerca i disegni io cambio cartella più volte al giorno.
    scusa ma tu lavori con un PDM se si allora noi che non lo usiamo non possiamo usare le tue macro...

    Grazie lo stesso
    De Maria Gabriele

  7. #17
    Utente Junior L'avatar di The X
    Iscritto dal
    2009
    Messaggi
    31
    Professione
    Progettista-Gestionale
    Regione
    Emilia Romagna
    Software
    Pro-E WF4 & PDMLink

    Predefinito

    ah ecco, se cambi cartella di lavoro ogni giorno utilizzare una macro del genere diventa scomoda...

  8. #18
    Utente Standard L'avatar di dema
    Iscritto dal
    2009
    Messaggi
    233
    Professione
    Disegnatore meccanico
    Regione
    Emilia Romagna
    Software
    Tutti

    Predefinito

    Citazione Originariamente Scritto da The X Visualizza Messaggio
    ah ecco, se cambi cartella di lavoro ogni giorno utilizzare una macro del genere diventa scomoda...
    Essendo il nostro un ufficio esterno facciamo una cartella di lavoro per ogni commessa.
    De Maria Gabriele

  9. #19
    Utente Junior L'avatar di The X
    Iscritto dal
    2009
    Messaggi
    31
    Professione
    Progettista-Gestionale
    Regione
    Emilia Romagna
    Software
    Pro-E WF4 & PDMLink

    Predefinito

    eh capisco....anche noi lavoriamo anche con commesse MA avendo PDMLink la ns directory di lavoro su FileSystem l'abbiamo fissata su D:


  • Pagina 2 di 2 PrimaPrima 12

    Discussioni Simili

    1. NOME FILE, NUMERO PARTE, "Nuovo Da"
      Di marcofa nel forum CATIA V5 Infrastructure
      Risposte: 3
      Ultimo Messaggio: 24-10-2010, 14: 48
    2. SW2010 - problema con "salva con nome"
      Di lelepanz nel forum Solidworks
      Risposte: 4
      Ultimo Messaggio: 01-07-2010, 15: 08
    3. Risposte: 10
      Ultimo Messaggio: 26-06-2010, 15: 33
    4. "nome" Drawing = "nome" Parte/Assieme
      Di Daniele-san nel forum Creo Parametric (ex Pro/E)
      Risposte: 19
      Ultimo Messaggio: 03-12-2008, 10: 27
    5. Inserire variabile in "nome progetto"
      Di cacciatorino nel forum Solid Edge
      Risposte: 30
      Ultimo Messaggio: 23-10-2008, 15: 22

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  
    • Il codice BB è Attivato
    • Le faccine sono Attivato
    • Il codice [IMG] è Disattivato
    • Il codice [VIDEO] è Disattivato
    • Il codice HTML è Disattivato





    CAD3D.it - la community dei progettisti