DXF

Catafratto

Utente Standard
Professione: Disegnatore/progettista
Software: Inventor 2016
Regione: Veneto
#3
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("{C24E3AC4-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.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 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
 

lisandrino

Utente Junior
Professione: carpentiere
Software: autocad 2009
Regione: lombardia
#4
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