Pagina 2 di 2 PrimaPrima 12
Risultati da 11 a 14 di 14
  1. #11
    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
    La tua frase

    Mi ha messo la pulce nell'orecchio, infatti alcune prove le ho fatte con Seven e altre con Vista...

    Devo ancora approfondire bene, ma per ora mi sono accorto che "oDrw.DisplayName" in Seven restituisce "nomefile.idw" mentre in Vista "nomefile"...

    Cosa che mi fa girare e non poco le scatole!

    Se ho news vi tengo aggiornati

    Ciao
    Controlla che l'opzione di Winzozz "Nascondi estensione per i tipi di file conosciuti" sia disabilitata, se non ricordo male crea questi problemi...
    Comunque occhio che il .DisplayName è quanto visualizzato nel browser: se vuoi essere sicuro di recuperare il nome del file usa oDrw.FullFileName e poi separa path e nomefile.
    Ciao!
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

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

    Predefinito

    Citazione Originariamente Scritto da Matteo Pagliaro Visualizza Messaggio
    Quello che è stato fatto è molto interessante, dato che ne avevo più volte sentito il bisogno durante l'attività lavorativa. Purtroppo io non me ne intendo poi tanto di VBA pertanto resterò con il desiderio dell'esportazione dxf automatica. Ma gradirei suggerire, se lo riteneste interessante (io lo uso spessissimo al lavoro), di integrare l'esportazione automatica non solo al file idw, ma anche in qualche modo alla vista in pianta del modello piatto dello sviluppo lamiera in una serie di file ipt.
    Congratulazioni ancora per il lavoro fatto.

    M.
    Purtroppo sono sempre cose legate al ciclo di lavoro aziendale, da fare quasi "su misura": per esempio quello che chiedi per me sarebbe assolutamente inutile, comunque in tavola metto sempre il modello piatto quotato (tu non puoi farlo?) anche perchè devo controllarne il verso (uso molta lamiera pellicolata) e quindi l'esportazione è "compresa nel prezzo"... Creare queste macro è un po' come essere sarti, io ne ho fatte molte ma se le cose non sono organizzate esattamente come voglio io proprio non vanno.
    Quando avrò un po' più di tempo posto quelle più universali...
    Ciao a tutti!
    Spesso astuzia ed intelligenza sono molto più efficaci dell'ottusa forza bruta: ma non ho proprio tempo di cercare qualcun alltro...

  3. #13
    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
    Controlla che l'opzione di Winzozz "Nascondi estensione per i tipi di file conosciuti" sia disabilitata, se non ricordo male crea questi problemi...
    Ho verificato ed il problema è proprio qui, non c'entra seven o vista...
    Citazione Originariamente Scritto da Catafratto Visualizza Messaggio
    Comunque occhio che il .DisplayName è quanto visualizzato nel browser: se vuoi essere sicuro di recuperare il nome del file usa oDrw.FullFileName e poi separa path e nomefile.
    Ciao!
    Infatti ancora prima che scrivessi avevo già cambiato il codice con FullFileName...

    Ecco il codice definitivo
    Public Sub PubblicaDxf()

    ' 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 Dxf translator Add-In.
    Dim DxfAddIn As TranslatorAddIn
    Set DxfAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3 AC4-122E-11D5-8E91-0010B541CD80}")


    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(oDrw, oContext, oOptions) Then

    Dim strIniFile As String
    strIniFile = "Percorso tuo_file.ini"
    ' Create the name-value that specifies the ini file to use.
    oOptions.Value("Export_Acad_IniFile") = strIniFile
    End If

    ' Sets directory for file save
    Dim DXFDirectory As String
    'La riga sottostante salva il file sul desktop se vuoi cambiare cartella cancella la riga sottostante e incolla DXFDirectory = "percorso cartella"
    DXFDirectory = Environ("allusersprofile") & "\Desktop\"

    'Set the destination file name
    Dim fn As String
    Dim fna As String
    Dim fnb As String

    fna = oDrw.FullFileName
    fna = Strings.Right(fna, Len(fna) - InStrRev(fna, "\"))
    fnb = Strings.Left(fna, Len(fna) - 4) & ".dxf"
    fn = DXFDirectory & fnb
    oDataMedium.FileName = fn

    'Publish document.
    Call DxfAddIn.SaveCopyAs(oDrw, oContext, oOptions, oDataMedium)
    End Sub
    Per ora non ho trovato bachi ma se volete testarlo mi fate un favore...
    Stai cercando una ricetta? Segui il blog di Zia Ivana

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

    Predefinito

    Citazione Originariamente Scritto da Matteo Pagliaro Visualizza Messaggio
    ...Purtroppo io non me ne intendo poi tanto di VBA pertanto resterò con il desiderio dell'esportazione dxf automatica.
    Se riesco te lo faccio... dxf nella stessa cartella del file o in una cartella da te scelta? Comunque ti consiglio di spendere un'ora e di provare a farlo con iLogic, non è molto difficile da fare e impari qualcosa che potrà tornanrti utile ancora


    Citazione Originariamente Scritto da Matteo Pagliaro Visualizza Messaggio
    Ma gradirei suggerire, se lo riteneste interessante (io lo uso spessissimo al lavoro), di integrare l'esportazione automatica non solo al file idw, ma anche in qualche modo alla vista in pianta del modello piatto dello sviluppo lamiera in una serie di file ipt...
    come ti ha detto Catafratto questi script funzionano tanto meglio quanto più sono cuciti addosso alle proprie esigenze e una cosa di questo tipo anche per me sarebbe inutile perché ogni ipt ha il suo idw con relativo modello piatto

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


  • Pagina 2 di 2 PrimaPrima 12

    Discussioni Simili

    1. Esportare tavola in pdf in automatico
      Di Filo nel forum Inventor
      Risposte: 24
      Ultimo Messaggio: 18-09-2015, 17: 31
    2. Esportare dati in Excel con un pulsante di comando
      Di Dave1978 nel forum VBA per Autocad
      Risposte: 11
      Ultimo Messaggio: 03-02-2014, 09: 33
    3. Esportare tavola in formato dwg
      Di fagioli.com nel forum Revit
      Risposte: 1
      Ultimo Messaggio: 19-07-2013, 17: 27
    4. Esportare tavola multicorpo su piu layer
      Di Stefano-81 nel forum Solidworks
      Risposte: 5
      Ultimo Messaggio: 29-02-2012, 09: 07
    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