Pagina 1 di 8 123 ... UltimaUltima
Risultati da 1 a 10 di 73
  1. #1
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Progettista
    Regione
    Lombardia
    Software
    Inventor 2013

    Predefinito Esportazione "automatica" idw to pdf-dxf

    Buongiorno a tutti,
    avrei la necessità di utilizzare una macro (o qualcosa di simile) che, una volta lanciata mi converta il file .IDW in PDF e DXF e che i file creati me li salvi in una cartella PDF-DXF presente sul Desktop.
    Evitando quindi tutte le volte di fare il SALVA COPIA CON NOME per ciascuna delle due estensioni...
    Qualcuno utilizza qualcosa di simile?
    Grazie

  2. #2
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    809
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Sì, devo trovarla: te la posto di oggi o al massimo Lunedì.
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  3. #3
    Utente Standard L'avatar di dicifa
    Iscritto dal
    2009
    Messaggi
    254
    Professione
    Progettista
    Regione
    lombardia
    Software
    inventor 2016 - AutoCad 2016

    Predefinito

    Sarebbe utile anche a me! [emoji1] [emoji1] [emoji1]

  4. #4
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    29
    Professione
    Progettista Meccanico Macchine Speciali
    Regione
    CN Piemonte
    Software
    La Mia Testa

    Predefinito

    Citazione Originariamente Scritto da dicifa Visualizza Messaggio
    Sarebbe utile anche a me! [emoji1] [emoji1] [emoji1]
    Menù Start di Windows
    nella cartella autodesk\Inventor****\Strumenti
    c'è il programma
    Programmazione Operazioni

    Non è molto userfriendly, è migliorabile, ma mi toglie le castagne dal fuoco tante volte...

  5. #5
    erreerre
    Visitatore

    Predefinito

    Citazione Originariamente Scritto da lollo76 Visualizza Messaggio
    Buongiorno a tutti,
    avrei la necessità di utilizzare una macro (o qualcosa di simile) che, una volta lanciata mi converta il file .IDW in PDF e DXF e che i file creati me li salvi in una cartella PDF-DXF presente sul Desktop.
    Evitando quindi tutte le volte di fare il SALVA COPIA CON NOME per ciascuna delle due estensioni...
    Qualcuno utilizza qualcosa di simile?
    Grazie
    crea una nuova regola con Inventor iLogic per salvare in diversi formati
    http://autodeskmfg.typepad.com/blog/...l-formats.html

  6. #6
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    809
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    La regola iLogic sopra postata è sicuramente più compatta

    Devi fare un "Salva copia con nome" > dwg e un "Salva copia con nome" > dxf per creare i file di inizializzazione.
    Ho provato e a me va tutto bene: fammi sapere se non funziona.

    Codice:
    Public Sub PubblicaDXFDWG()
        
        ' Obtain reference to drawing
        Dim oDoc As Document
        Set oDoc = ThisApplication.ActiveDocument
        
        
        ' DESTINATION FOLDER
        ' ---------------------------------------------------
        Dim sExportPath As String
        sExportPath = "C:\Users\Utente\Desktop\DWG-DXF\"
        ' ---------------------------------------------------
        
        If oDoc.DocumentType <> kDrawingDocumentObject Then
            MsgBox ("Deve essere aperta una tavola")
            Exit Sub
        End If
        
        ' Get the filename with no path
        Dim sFileName As String
        sFileName = sExportPath & IsolaNome(oDoc.FullFileName, True)
        
        ' Get the DWG translator Add-In.
        Dim DWGAddIn As TranslatorAddIn
        Set DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
    
        ' Get the DXF translator Add-In.
        Dim DXFAddIn As TranslatorAddIn
        Set DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
        
        Dim strIniFile As String
        
        
        ' Common init
        ' Create a Context object
        Dim oContext As TranslationContext
        Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
        oContext.Type = kFileBrowseIOMechanism
          
        ' Create a NameValueMap object
        Dim oOptions As NameValueMap
        Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    
        ' Create a DataMedium object
        Dim oDataMedium As DataMedium
        Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
    
        ' -------------------------------
        ' DWG
        ' -------------------------------
        
        ' Check whether the translator has 'SaveCopyAs' options
        If DWGAddIn.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
            ' File with exportation options
            strIniFile = "C:\tempDWGOut.ini"
            ' Create the name-value that specifies the ini file to use.
            oOptions.Value("Export_Acad_IniFile") = strIniFile
        End If
    
        'Set the destination file name
        oDataMedium.filename = sFileName & ".dwg"
    
    
        'Publish document.
        Call DWGAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        
        ' -------------------------------
        ' DXF
        ' -------------------------------
        
        ' Check whether the translator has 'SaveCopyAs' options
        If DXFAddIn.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
        
            ' File with exportation options
            strIniFile = "C:\tempDXFOut.ini"
    
            ' Create the name-value that specifies the ini file to use.
            oOptions.Value("Export_Acad_IniFile") = strIniFile
        End If
    
        'Set the destination file name
        oDataMedium.filename = sFileName & ".dxf"
    
        'Publish document.
        Call DXFAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        
    End Sub
    
    'Funzione che restituisce il nome del file togliendo il path ed il suffisso
    Public Function IsolaNome(ByVal NomeFile As String, Optional Trunc As Boolean) As String
        
        'toglie il .ipt
        If Trunc = True Then
            NomeFile = Strings.Left(NomeFile, Len(NomeFile) - 4)
        End If
        
        Dim pos As Integer
        'Ciclo che rimuove il path: trova "\" e tiene tutto a dx
        Do
            pos = InStr(NomeFile, "\")
            NomeFile = Strings.Right(NomeFile, Len(NomeFile) - pos)
        Loop Until pos = 0
        IsolaNome = NomeFile
    End Function
    File Allegati File Allegati
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  7. #7
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Progettista
    Regione
    Lombardia
    Software
    Inventor 2013

    Predefinito

    Buongiorno,
    @aiq e erreerre : la mia operazione non può essere pianificata in automatico secondo qualche evento.
    @Catafratto: Grazie per la macro ma non mi funziona. Inoltre dovrei fare PDF e DXF (non DWG)
    Immagine.jpg
    Purtroppo di VBA non capisco una pizza... :(

    - - - Aggiornato - - -

    Comunque grazie a tutti.

  8. #8
    Utente Standard L'avatar di Catafratto
    Iscritto dal
    2011
    Messaggi
    809
    Professione
    Disegnatore/progettista
    Regione
    Veneto
    Software
    Inventor 2016

    Predefinito

    Sì, ho letto fischi per fiaschi... ma la correzione è un attimo.

    Cosa non ti funziona comunque? Una volta copiata la macro mica bisogna capire come lavora...
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  9. #9
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Progettista
    Regione
    Lombardia
    Software
    Inventor 2013

    Predefinito

    error.jpg

    Esce questo errore :( non so a cosa si riferisce.

  10. #10
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    29
    Professione
    Progettista Meccanico Macchine Speciali
    Regione
    CN Piemonte
    Software
    La Mia Testa

    Predefinito

    La pianificazione può essere impostata con "Subito", e lui parte subito. Si chiamano operazioni pianificate, ma non ho mai pianificato oltre l'immediato.
    Sicuramente con la macro, si possono personalizzare le funzioni...



    Citazione Originariamente Scritto da lollo76 Visualizza Messaggio
    Buongiorno,
    @aiq e erreerre : la mia operazione non può essere pianificata in automatico secondo qualche evento.
    @Catafratto: Grazie per la macro ma non mi funziona. Inoltre dovrei fare PDF e DXF (non DWG)
    Immagine.jpg
    Purtroppo di VBA non capisco una pizza... :(

    - - - Aggiornato - - -

    Comunque grazie a tutti.


  • Pagina 1 di 8 123 ... UltimaUltima

    Discussioni Simili

    1. Esportazione Modello FEM da CATIA a ".nas"
      Di SeM_Mario nel forum CAE/FEM/CFD forum generale
      Risposte: 0
      Ultimo Messaggio: 05-09-2014, 15: 32
    2. Risposte: 0
      Ultimo Messaggio: 17-04-2014, 02: 38
    3. Risposte: 7
      Ultimo Messaggio: 27-03-2013, 14: 32
    4. Risposte: 7
      Ultimo Messaggio: 28-02-2013, 00: 55
    5. quotatura "automatica"
      Di spider916 nel forum CATIA V5 CATDrawing
      Risposte: 6
      Ultimo Messaggio: 23-05-2011, 10: 01

    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