Pagina 5 di 8 PrimaPrima ... 34567 ... UltimaUltima
Risultati da 41 a 50 di 73
  1. #41
    Utente Standard
    Iscritto dal
    2007
    Messaggi
    380
    Professione
    Tiro linee
    Regione
    Italia
    Software
    Inventor, Autocad e occasionalmente Solidworks 2016

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    Mi pare funzioni

    Codice:
        
        ' Obtain reference to drawing
        Dim oDoc As Document
        Set oDoc = ThisApplication.ActiveDocument
        
        If oDoc.DocumentType <> kDrawingDocumentObject Then
            MsgBox ("Deve essere aperta una tavola")
            Exit Sub
        End If
        
        ' Save the file with dependants
        oDoc.Save2
        
        Dim fn As String
        Dim DWGfn As String
        Dim PDFfn As String
        
        ' Generate the file names
        fn = oDoc.FullFileName
        DWGfn = Strings.Left(fn, Len(fn) - 4) & ".dwg"
        PDFfn = Strings.Left(fn, Len(fn) - 4) & ".pdf"
        
        
        ' 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}")
        
        ' Get the PDF translator Add-In.
        Dim PDFAddIn As TranslatorAddIn
        Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
        
        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 = DWGfn
    
    
        'Publish document.
        Call DWGAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        
        ' -------------------------------
        ' FINE DWG
        ' ---------------------------------------------------------------------------
      
        
        ' ---------------------------------------------------------------------------
        ' PDF
        ' -------------------------------
    
        ' Check whether the translator has 'SaveCopyAs' options
        If PDFAddIn.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
    
            ' Options for drawings...
    
            oOptions.Value("All_Color_AS_Black") = 0
    
            'oOptions.Value("Remove_Line_Weights") = 0
            'oOptions.Value("Vector_Resolution") = 400
            'oOptions.Value("Sheet_Range") = kPrintAllSheets
            'oOptions.Value("Custom_Begin_Sheet") = 2
            'oOptions.Value("Custom_End_Sheet") = 4
        End If
    
        'Set the destination file name
        oDataMedium.filename = PDFfn
    
    
        'Publish document.
        Call PDFAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        ' -------------------------------
        ' FINE PDF
        ' ---------------------------------------------------------------------------
    End Sub
    Grazie mille! Domani la provo e ti dico! Gentilissimo.

  2. #42
    Utente Standard
    Iscritto dal
    2007
    Messaggi
    380
    Professione
    Tiro linee
    Regione
    Italia
    Software
    Inventor, Autocad e occasionalmente Solidworks 2016

    Predefinito

    L'ultima macro postata non riesco a farla funzionare, non sono riuscito a capire il motivo. Sul modulo 1 ho già caricata la macro precedente, ho provato ad incollare il testo postato sotto la macro e non mi funziona, nel senso che non compaiono altre diciture nella finestra dei pulsanti programmabili da macro. Ho provato a togliere la macro esistente e fare la stessa procedura, ma con lo stesso infelice risultato...dove sbaglio?

    Poi ho dato un'occhiata alla soluzione alternativa e in effetti è molto semplice da implementare, però anche qui forse sbaglio qualcosa, infatti crea il pdf e dwg solo al primo salvataggio nei successivi salvataggi non sovrascrive i file creati precedentemente.

    Scusate l'imbranataggine...

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

    Predefinito

    Citazione Originariamente Scritto da Esselle Visualizza Messaggio
    L'ultima macro postata non riesco a farla funzionare, non sono riuscito a capire il motivo. Sul modulo 1 ho già caricata la macro precedente, ho provato ad incollare il testo postato sotto la macro e non mi funziona, nel senso che non compaiono altre diciture nella finestra dei pulsanti programmabili da macro. Ho provato a togliere la macro esistente e fare la stessa procedura, ma con lo stesso infelice risultato...dove sbaglio?
    ...
    Non sbagli, sono io sbadato e ho perso l'inizio della macro nel copia/incolla

    - - - Aggiornato - - -

    ... e premo invia risposta prima di aver finito la risposta
    Codice:
        
    Public sub SAVE_IDWGWGPDF
        
        ' Obtain reference to drawing
        Dim oDoc As Document
        Set oDoc = ThisApplication.ActiveDocument
        
        If oDoc.DocumentType <> kDrawingDocumentObject Then
            MsgBox ("Deve essere aperta una tavola")
            Exit Sub
        End If
        
        ' Save the file with dependants
        oDoc.Save2
        
        Dim fn As String
        Dim DWGfn As String
        Dim PDFfn As String
        
        ' Generate the file names
        fn = oDoc.FullFileName
        DWGfn = Strings.Left(fn, Len(fn) - 4) & ".dwg"
        PDFfn = Strings.Left(fn, Len(fn) - 4) & ".pdf"
        
        
        ' 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}")
        
        ' Get the PDF translator Add-In.
        Dim PDFAddIn As TranslatorAddIn
        Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
        
        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 = DWGfn
    
    
        'Publish document.
        Call DWGAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        
        ' -------------------------------
        ' FINE DWG
        ' ---------------------------------------------------------------------------
      
        
        ' ---------------------------------------------------------------------------
        ' PDF
        ' -------------------------------
    
        ' Check whether the translator has 'SaveCopyAs' options
        If PDFAddIn.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
    
            ' Options for drawings...
    
            oOptions.Value("All_Color_AS_Black") = 0
    
            'oOptions.Value("Remove_Line_Weights") = 0
            'oOptions.Value("Vector_Resolution") = 400
            'oOptions.Value("Sheet_Range") = kPrintAllSheets
            'oOptions.Value("Custom_Begin_Sheet") = 2
            'oOptions.Value("Custom_End_Sheet") = 4
        End If
    
        'Set the destination file name
        oDataMedium.filename = PDFfn
    
    
        'Publish document.
        Call PDFAddIn.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
        ' -------------------------------
        ' FINE PDF
        ' ---------------------------------------------------------------------------
    End Sub
    ... Stranissimo, la prima riga della macro non si copia/incolla... ho dovuto scriverla a mano. BOH!
    Comunque a me sovrascrive se non lo fa... non saprei perchè!

    Sovrascrivi la vecchia macro
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  4. #44
    Utente Standard
    Iscritto dal
    2007
    Messaggi
    380
    Professione
    Tiro linee
    Regione
    Italia
    Software
    Inventor, Autocad e occasionalmente Solidworks 2016

    Predefinito

    Grazie, ora provo, ma devo togliere quella esistente? La incollo sotto?

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

    Predefinito

    Sovrascrivi la vecchia macro, dovrebbe comparirti il nome nella lista dei tasti.
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  6. #46
    Utente Standard
    Iscritto dal
    2007
    Messaggi
    380
    Professione
    Tiro linee
    Regione
    Italia
    Software
    Inventor, Autocad e occasionalmente Solidworks 2016

    Predefinito

    Funziona alla perfezione! Grazie ancora!!!

  7. #47
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    692
    Professione
    mah!
    Regione
    .
    Software
    Inv + SW(purtroppo)

    Predefinito

    Salve a tutti, è da un pezzo che avevo una domanda :
    i tasti collegati alle macro, mi appaiono tutti con la stessa icona
    Cattura.JPG

    c'è modo di cambiarle ?
    grazie.

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

    Predefinito

    Citazione Originariamente Scritto da MauroM Visualizza Messaggio
    Salve a tutti, è da un pezzo che avevo una domanda :
    i tasti collegati alle macro, mi appaiono tutti con la stessa icona
    Cattura.JPG

    c'è modo di cambiarle ?
    grazie.
    Qui è descritto come fare
    http://modthemachine.typepad.com/my_...ba-macros.html
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  9. #49
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    692
    Professione
    mah!
    Regione
    .
    Software
    Inv + SW(purtroppo)

    Predefinito

    ok, ci sono riuscito. grazie

  10. #50
    Utente Junior
    Iscritto dal
    2013
    Messaggi
    67
    Professione
    disegnatore
    Regione
    Piemonte (TO)
    Software
    Inventor 2014

    Predefinito

    scusate, ma alla fine qualcuno è riuscito ad esportare in pdf un'intera cartella di idw già esistenti??


  • Pagina 5 di 8 PrimaPrima ... 34567 ... 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