Risultati da 1 a 4 di 4

Discussione: DXF

  1. #1
    Utente Junior
    Iscritto dal
    2010
    Messaggi
    39
    Professione
    studente
    Regione
    lombardia
    Software
    inventor

    Predefinito DXF

    Possibile che non riesco a salvare il disegno in DXF? ma e possibile con inventor?

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

    Predefinito

    certamente

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

    Predefinito

    Ecco la macro, leggermente modificata quella contenuta nell'help di Inventor.
    La macro fa riferimento a un exportDXF.ini: è il file .ini che si genera quando fai la prima esportazione in DWG AUTOCAD manualmente. Copi il file dove vuoi, lo rinomini e metti il nome e path (C:\Pippo\Pluto.ini") nella macro.
    Come inserire e collegare le macro ai tasti è descritto in altre discussioni...
    Così com'è la macro esporta in dxf nella stessa cartella dell'originale.

    Ciao!

    Public Sub PublishDXF()
    ' 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:\Temp\exportDXF.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...

  4. #4
    Utente Junior
    Iscritto dal
    2012
    Messaggi
    23
    Professione
    carpentiere
    Regione
    lombardia
    Software
    autocad 2009

    Predefinito

    certo che si puo
    devi cliccare col sinistro 4 volte sulla parte che vuoi salvare fino a quando non si puo più aprire
    poi clicchi col dx e ti esce esporta faccia
    oppure in alto a sx dello schermo , nuovo file scegli iso idw e da li puoi salvare in dxf o dwg


  • 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