Pagina 2 di 3 PrimaPrima 123 UltimaUltima
Risultati da 11 a 20 di 25
  1. #11
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    261
    Professione
    Perditempo
    Regione
    Veneto
    Software
    Inventor2015 ANSYS Fluent Gambit SolidWorks Algor

    Predefinito

    iLogic non l'ho mai usato e non ho la più pallida idea di come si usa! Infatti la tua notizia che sul 2004 ci potrebbero essere problemi con le macro mi preoccupa un po'! Speriamo bene...

    Ho sempre usato le macro VBA perché buona parte della misera formazione sulla programmazione è basata su VisualBasic

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    ...
    Per quanto riguarda postazioni multiple sotto Strumenti>Opzioni applicazione>File troverai il file Progetto VBA di default: tutte le macchine possono puntare allo stesso file (occhio solo in caso di modifiche perchè finchè tutti gli Inventor sono in funzione il file va in sola lettura)
    Anche a questo non avevo mai fatto caso... ecco perché ho sempre preferito metterlo nel template. Quando ho un po' di tempo proverò ad inserire le macro nel progetto.

    Ciao grazie
    Stai cercando una ricetta? Segui il blog di Zia Ivana

  2. #12
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    261
    Professione
    Perditempo
    Regione
    Veneto
    Software
    Inventor2015 ANSYS Fluent Gambit SolidWorks Algor

    Predefinito

    Non so se con questa domanda andiamo OT, tant'è...

    I pulsanti creati collegati ad una macro hanno tutti la stessa icona, è possibile cambiarla?

    Ciao
    Grazie
    Stai cercando una ricetta? Segui il blog di Zia Ivana

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

    Predefinito

    Citazione Originariamente Scritto da Filo Visualizza Messaggio
    Non so se con questa domanda andiamo OT, tant'è...

    I pulsanti creati collegati ad una macro hanno tutti la stessa icona, è possibile cambiarla?

    Ciao
    Grazie
    Qui ci sono tutte le istruzioni.
    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...

  4. #14
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    261
    Professione
    Perditempo
    Regione
    Veneto
    Software
    Inventor2015 ANSYS Fluent Gambit SolidWorks Algor

    Predefinito

    Comincio a studiare...

    Grazie
    Stai cercando una ricetta? Segui il blog di Zia Ivana

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

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    BIRRA, non riconoscenza, grazie
    Se il tutorial per l'inserimento delle macro non è abbastanza chiaro arrangiate... ehm, fatemi sapere che provo a miglioralo

    Codice:
    Public Sub PubblicaPDF()
        
        ' 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
        
        
        Dim oDrw As DrawingDocument
        Set oDrw = oDoc
        
        ' Get the PDF translator Add-In.
        Dim PDFAddIn As TranslatorAddIn
        Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
    
    
        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
    
        ' Check whether the translator has 'SaveCopyAs' options
        If PDFAddIn.HasSaveCopyAsOptions(oDrw, 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
        Dim fn As String
        fn = oDrw.FullFileName
        fn = Strings.Left(fn, Len(fn) - 4) & ".pdf"
    
        oDataMedium.FileName = fn
    
        'Publish document.
        Call PDFAddIn.SaveCopyAs(oDrw, oContext, oOptions, oDataMedium)
    End Sub
    
    Public Sub PubblicaDWG()
        
        ' 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
        
        
        Dim oDrw As DrawingDocument
        Set oDrw = oDoc
        ' Get the DWG translator Add-In.
        Dim DWGAddIn As TranslatorAddIn
        Set DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
    
    
        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
    
        ' Check whether the translator has 'SaveCopyAs' options
        If DWGAddIn.HasSaveCopyAsOptions(oDrw, oContext, oOptions) Then
    
            Dim strIniFile As String
            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
        Dim fn As String
        fn = oDrw.FullFileName
        fn = Strings.Left(fn, Len(fn) - 4) & ".dwg"
        oDataMedium.FileName = fn
    
    
        'Publish document.
        Call DWGAddIn.SaveCopyAs(oDrw, oContext, oOptions, oDataMedium)
    End Sub
    Nota: sono adattamenti degli esempi che si trovano nell'help di Inventor

    Allegato 34912Allegato 34913
    funziona che è una meraviglia
    Grazie!

  6. #16
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    261
    Professione
    Perditempo
    Regione
    Veneto
    Software
    Inventor2015 ANSYS Fluent Gambit SolidWorks Algor

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio

    L'icona piccola riesco a vederla mentre quella grande no, mette un'icona con "@"

    Poi facendo un po' di copia incolla e mettendoci un po' del mio ho fatto una macro collegata ad un bottone per creare un dxf da idw in una cartella specifica. Per non andare troppo OT ho creato una nuova discussione

    Ciao grazie
    Stai cercando una ricetta? Segui il blog di Zia Ivana

  7. #17
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    261
    Professione
    Perditempo
    Regione
    Veneto
    Software
    Inventor2015 ANSYS Fluent Gambit SolidWorks Algor

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    BIRRA, non riconoscenza, grazie
    Se il tutorial per l'inserimento delle macro non è abbastanza chiaro arrangiate... ehm, fatemi sapere che provo a miglioralo

    Codice:
    Public Sub PubblicaPDF()
        
        ' 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
        
        
        Dim oDrw As DrawingDocument
        Set oDrw = oDoc
        
        ' Get the PDF translator Add-In.
        Dim PDFAddIn As TranslatorAddIn
        Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
    
    
        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
    
        ' Check whether the translator has 'SaveCopyAs' options
        If PDFAddIn.HasSaveCopyAsOptions(oDrw, 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
        Dim fn As String
        fn = oDrw.FullFileName
        fn = Strings.Left(fn, Len(fn) - 4) & ".pdf"
    
        oDataMedium.FileName = fn
    
        'Publish document.
        Call PDFAddIn.SaveCopyAs(oDrw, oContext, oOptions, oDataMedium)
    End Sub
    
    Public Sub PubblicaDWG()
        
        ' 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
        
        
        Dim oDrw As DrawingDocument
        Set oDrw = oDoc
        ' Get the DWG translator Add-In.
        Dim DWGAddIn As TranslatorAddIn
        Set DWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
    
    
        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
    
        ' Check whether the translator has 'SaveCopyAs' options
        If DWGAddIn.HasSaveCopyAsOptions(oDrw, oContext, oOptions) Then
    
            Dim strIniFile As String
            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
        Dim fn As String
        fn = oDrw.FullFileName
        fn = Strings.Left(fn, Len(fn) - 4) & ".dwg"
        oDataMedium.FileName = fn
    
    
        'Publish document.
        Call DWGAddIn.SaveCopyAs(oDrw, oContext, oOptions, oDataMedium)
    End Sub
    Nota: sono adattamenti degli esempi che si trovano nell'help di Inventor


    Come ho scritto qui il codice ha un piccolo baco

    Ciao filippo
    Stai cercando una ricetta? Segui il blog di Zia Ivana

  8. #18
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    261
    Professione
    Perditempo
    Regione
    Veneto
    Software
    Inventor2015 ANSYS Fluent Gambit SolidWorks Algor

    Predefinito

    Provo ad alzare un po' l'asticella...

    Ora tutti i file idw hanno al loro interno lo script per creare il pdf, però aprire uno ad uno tutti i disegni e salvarli per creare il pdf è lungo e noioso... esiste qualcosa per fare questa operazione in automatico?

    Fin che scrivo mi viene in mente che avevo letto qualcosa, adesso cerco

    Ciao grazie
    Stai cercando una ricetta? Segui il blog di Zia Ivana

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

    Predefinito

    Se metti tutto in una cartella:
    http://modthemachine.typepad.com/

    Oppure se hai un assieme aperto puoi usare l'esempio che c'è nell'help API di Inventor e fare una scansione ricorsiva di tutti i documenti, controllare se esiste la tavola associata, aprirla, esportarla, ecc. ecc.

    Ne ho una pronta, devo risistemarla e se hai pazienza la posto...
    Ciao!
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

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

    Predefinito

    Una precisazione:
    Il sistema sopra descritto è ovviamente un po' grezzo: se la stessa parte si trova dentro più di un sottoassieme il programma, così come descritto, ne esporterebbe la tavola più volte; magari prima di fare l'esportazione sarebbe utile controllare che non esista già il PDF con il nome collegato...
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...


  • Pagina 2 di 3 PrimaPrima 123 UltimaUltima

    Discussioni Simili

    1. Esportare tavola in formato dwg
      Di fagioli.com nel forum Revit
      Risposte: 1
      Ultimo Messaggio: 19-07-2013, 17: 27
    2. Esportare tavola solidworks i autocad
      Di FIGOR71 nel forum Solidworks
      Risposte: 1
      Ultimo Messaggio: 16-05-2013, 23: 21
    3. HELP : Peso Automatico in tavola
      Di Ghery nel forum Annotation
      Risposte: 23
      Ultimo Messaggio: 12-10-2012, 09: 13
    4. Messa in tavola in automatico
      Di cisia nel forum Inventor
      Risposte: 28
      Ultimo Messaggio: 24-11-2011, 17: 59
    5. Esportare una tavola 2D in DWG con NX3
      Di superzeus3 nel forum NX (Unigraphics)
      Risposte: 4
      Ultimo Messaggio: 17-10-2011, 15: 03

    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