Risultati da 1 a 6 di 6

Discussione: Stampare doc in pdf

  1. #1
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    48
    Professione
    Progettista
    Regione
    Lazio
    Software
    Catia-Hypermill-Solid Edge-Solid Works-Autocad

    Predefinito Stampare doc in pdf

    ciao a tutti
    ho necessita di stampare documenti in pdf sul drawing di catia, si può realizzare un programma che ad un solo clic mi fa direttamente il pdf?
    grazie

  2. #2
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    21
    Professione
    progettista
    Regione
    Emilia Romagna
    Software
    CATIA V5; ProE

    Predefinito

    Ciao,
    io uso questo semplice codice:

    Sub CATMain()

    Dim drawingDocument1 As Document
    Set drawingDocument1 = CATIA.ActiveDocument

    Dim drawingSheets1 As DrawingSheets
    Set drawingSheets1 = drawingDocument1.Sheets

    Dim drawingSheet1 As DrawingSheet
    Set drawingSheet1 = drawingSheets1.ActiveSheet

    winuser = CATIA.SystemService.Environ("USERNAME")

    drawingDocument1.ExportData "C:\Documents and Settings\" & winuser & "\Desktop\" & Left(CATIA.ActiveDocument.Name, Len(CATIA.ActiveDocument.Name) - 11), "pdf"

    End Sub



    E' realizzato per salvare in Windows XP sul desktop dell'utente che attivo un pdf del drawing attivo in quel momento.
    Per velocizzare la cosa ho aggiunto una icona legata a questa macro in una barra degli strumenti dell'ambiente drawing


    P.S. Ho fatto la stessa cosa per salvare DXF dal Drawing e per STL e STEP dal 3D, il codice è molto simile

  3. #3
    Utente Senior L'avatar di stef_design
    Iscritto dal
    2007
    Messaggi
    2292
    Professione
    ingegnerizzatore prodotto-automotive (dream cars)
    Regione
    Veneto - Austin (TX)
    Software
    SW 2009 - Pro/E WF4 - Catia V5 R20 - Matlab - Ansys - TC7 - VPM

    Predefinito

    Citazione Originariamente Scritto da mastro.alle Visualizza Messaggio
    P.S. Ho fatto la stessa cosa per salvare DXF dal Drawing e per STL e STEP dal 3D, il codice è molto simile
    Ciao, riesci ad allegare anche quello per generare lo STEP.
    Complimenti!

    ciao

  4. #4
    Moderatore CATIA V5 L'avatar di falonef
    Iscritto dal
    2007
    Messaggi
    1660
    Professione
    PLM Support Expert (Consumer Goods)
    Regione
    Svizzera
    Software
    CATIA V5 / PARTsolutions / QA-Report / Q-Checker / Type3toCatia / Agile-PLM / Windows 10

    Predefinito

    si ma per lo step hai bisogno della licenza
    Solo lottando capisci chi sei!
    Ruba il mestiere! Impara i trucchi e ricordali!


  5. #5
    Moderatore CATIA V5 L'avatar di falonef
    Iscritto dal
    2007
    Messaggi
    1660
    Professione
    PLM Support Expert (Consumer Goods)
    Regione
    Svizzera
    Software
    CATIA V5 / PARTsolutions / QA-Report / Q-Checker / Type3toCatia / Agile-PLM / Windows 10

    Predefinito

    a pensarci bene per il catdrawing esiste la voce salva come pdf.
    perché creare un programma?
    Solo lottando capisci chi sei!
    Ruba il mestiere! Impara i trucchi e ricordali!


  6. #6
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    21
    Professione
    progettista
    Regione
    Emilia Romagna
    Software
    CATIA V5; ProE

    Predefinito

    è vero che c'è la funzione nei menù di salvataggio...però x noi risulta più comodo avere le icone che con un solo clic salvano i file nei vari formati per essere inviati ai fornitori/clienti

    Inoltre con piccole modifiche ho fatto anche gli script per fare in modo che venga riconosciuto il progetto al quale appartiene il file e lo va a salvare direttamente nel percorso appropriato sul nostro server

    se servisse (e se avete la licenza) vi lascio anche la macro per salvare gli step...anche in questo caso si può modificare il percorso di salvataggio che ora è impostato sul desktop


    Sub CATMain()

    Dim partDocument1 As Document
    Set partDocument1 = CATIA.ActiveDocument

    Dim product1 As CATBaseDispatch
    Set product1 = partDocument1.GetItem ("")

    partNum = product1.partNumber

    winuser = CATIA.SystemService.Environ("USERNAME")

    partDocument1.ExportData "C:\Documents and Settings\" & winuser & "\Desktop\" & Left(CATIA.ActiveDocument.Name, Len(CATIA.ActiveDocument.Name) - 11), "stp"

    End Sub


  • Discussioni Simili

    1. Stampare in 3D
      Di arch86 nel forum Revit
      Risposte: 5
      Ultimo Messaggio: 22-04-2011, 10: 57
    2. Stampare PDF da NX4
      Di offshore nel forum NX (Unigraphics)
      Risposte: 10
      Ultimo Messaggio: 17-03-2010, 09: 25
    3. Stampare in pdf
      Di rokigio nel forum AutoCAD
      Risposte: 6
      Ultimo Messaggio: 10-12-2008, 10: 09
    4. Stampare in pdf
      Di lupusinfabula nel forum Creo Parametric - Messa in tavola
      Risposte: 9
      Ultimo Messaggio: 27-10-2008, 17: 45
    5. Stampare in pdf
      Di aduella81 nel forum AutoCAD
      Risposte: 1
      Ultimo Messaggio: 07-01-2008, 16: 23

    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
    •  





    CAD3D.it - la community dei progettisti