Pagina 2 di 3 PrimaPrima 123 UltimaUltima
Risultati da 11 a 20 di 21

Discussione: info dxf

  1. #11
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    12
    Professione
    casalingo
    Regione
    bologna
    Software
    solid edge

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    Hai ragione, il primo salvataggio ha problemi... rinomina la macro da Autosave ad Autoclose, cioè si avvia quando chiudi il file, ho fatto un paio di prove in più e mi pare funzioni. Fammi sapere...
    ciao, scusa non capisco come rinominare la macro. ho fatto come mi hai detto:
    Apri l'idw che sarà il tamplate (ho apero uno nuovo idw)

    ALT-F11 per entrare nelleditor Visual Basic
    Espandere il browser laterale ProgettoDocumento(NomeTemplate)\Modules
    aprire un modulo, tipicamente Modulo1 (mi apare una finestra in bianco dove vado a incollare il codice, giusto? )

    a questo punto per rinominare la macro cosa devo fare?
    ti chiedo scusa, ma non l'ho mai usato il vb......

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

    Predefinito

    La prima riga del codice incollato è:
    Public sub Autosave()

    Modifichi Autosave() in Autoclose()

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

  3. #13
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    12
    Professione
    casalingo
    Regione
    bologna
    Software
    solid edge

    Predefinito

    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    La prima riga del codice incollato è:
    Public sub Autosave()

    Modifichi Autosave() in Autoclose()

    Ciao!
    NEL PRIMO BLOCCO HO TRAVATO:

    Public Sub PublishDXF() DA SOSTITUIRE CON:

    Public sub Autosave()
    GIUSTO?

  4. #14
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    12
    Professione
    casalingo
    Regione
    bologna
    Software
    solid edge

    Predefinito

    Citazione Originariamente Scritto da torito Visualizza Messaggio
    NEL PRIMO BLOCCO HO TRAVATO:

    Public Sub PublishDXF() DA SOSTITUIRE CON:

    Public sub Autosave()
    GIUSTO?
    ho provato funziona, adesso ci gioco un po''' avrei altre cosine da chiedere, non mi abbandonare... ciao
    grazie 1000

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

    Predefinito

    Ops! ho fatto un po' di casino in effetti, sorry... Un po' addormentato!

    Copia questo, già corretto:
    - fa l'esportazione SOLO quando chiudi il file. Con l'autosave() al posto di autoclose() dà problemi al primo salvataggio (almeno, a me li dà).
    - salva il file dxf nella stessa posizione dell'idw
    - salva il file dxf con le impostazioni di salvataggio dell'ultimo salvataggio in dxf fatto
    Public Sub Autoclose()
    ' Get the DXF translator Add-In.
    Dim DXFAddIn As TranslatorAddIn
    Set DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3 AC4-122E-11D5-8E91-0010B541CD80}")

    'Set a reference to the active document (the document to be published).
    Dim oDocument As Document
    Set oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslation Context
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMa p

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    ' Check whether the translator has 'SaveCopyAs' options
    If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

    Dim strIniFile As String
    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 = Strings.Left(oDocument.FullFileName, Len(oDocument.FullFileName) - 3) & "dxf"

    'Publish document.
    Call DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

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

  6. #16
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    12
    Professione
    casalingo
    Regione
    bologna
    Software
    solid edge

    Predefinito

    ADESSO LO PROVO, VORREI CHIEDERTI UNA COSA, NELLA CREAZIONE DEL DXF VIENE SEGUITA QUALCHE ''REGOLA''. PER ESEMPIO NOI ABBIAMO BISOGNO DI CREARE I DXF DEL IDW, CON QUOTE E UNO SENZA QUOTE, ABBIAMO GIA LA ''REGOLA'' BISOGNA RICHIAMARLA DA QUALCHE PARTE NEL CODICE INSERITO IN VISUAL B..? GRAZIE

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

    Predefinito

    Regole iLogic?
    Questo che hai salva solo in formato dxf l'idw che hai a video, ne più ne meno. Se hai bisogno di cose più sofisticate è tutto un'altro problema... di iLogic so pochissimo
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  8. #18
    Utente Junior
    Iscritto dal
    2012
    Messaggi
    13
    Professione
    Progettista
    Regione
    Lombardia
    Software
    Inventor / AutoCad

    Predefinito

    Ciao, ho letto tutto il thread , ma mi sfugge una cosa , ( che poi è quella che serve a me.. :) ),
    il codice funziona benissimo se associato ad uno specifico .idw o al template, a me servirebbe che l'autoclose o l'autosave, funzionassero in maniera globale, cioè anche con .idw già creati.
    Ho provato in VB a mettere il codice nel modulo1 sotto ProgettoApplicazione, non sotto ProgettoDocumento in modo da renderlo disponibile a tutti i documenti, ma sembra non riconoscere la macro in automatico, se invece vado sotto STRUMENTI -> MACRO e faccio RUN, la macro viene eseguita correttamente.
    Viene eseguita anche mettendo un pulsante nuovo nella barra degli strumenti, ma vorrei, se possibile, associare l'evento alla chiusura del documento, in automatico.

    Grazie per tutto!
    Mario

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

    Predefinito

    Per ora non so farlo, sorry... Bisogna creare un add-in e non ne ho ancora fatto uno.
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  10. #20
    Utente Junior
    Iscritto dal
    2012
    Messaggi
    13
    Professione
    Progettista
    Regione
    Lombardia
    Software
    Inventor / AutoCad

    Predefinito

    Pensavo di usare gli eventi delle regole esterne, mi sa che dovro' studiare un poco...
    grazie lo stesso!


  • Pagina 2 di 3 PrimaPrima 123 UltimaUltima

    Discussioni Simili

    1. Info CAD per mac
      Di catherinee nel forum Altri CAD per l'architettura
      Risposte: 25
      Ultimo Messaggio: 27-06-2013, 10: 02
    2. Un info...
      Di MAPPINO nel forum Stampa 3D / Prototipazione Rapida
      Risposte: 13
      Ultimo Messaggio: 04-03-2010, 19: 52
    3. info
      Di andre88 nel forum Modelli 3D e risorse varie dedicate ai progettisti meccanici
      Risposte: 8
      Ultimo Messaggio: 23-04-2009, 20: 57
    4. info su OS a 64 bit
      Di gerod nel forum Solid Edge
      Risposte: 11
      Ultimo Messaggio: 29-09-2008, 15: 51
    5. Info
      Di poliba nel forum Studenti ingegneria meccanica
      Risposte: 3
      Ultimo Messaggio: 07-08-2008, 10: 43

    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