here is the macro, slightly modified the one contained in the inventor's help.
the macro refers to an exportdxf.ini: is the .ini file that you generate when you make the first export to dwg autocad manually. cover the file you want, rename it and place the name and path (c:\pippo\pluto.ini) in the macro.
how to insert and connect the macros to the keys is described in other discussions. . .
as is the macro export to dxf in the same folder as the original.
Bye!
public sub publishdxf()
'get the dxf translator add-in.
dim dxfaddin as translatoraddin
set dxfaddin = thisapplicationaddins.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
' created in namevaluemap object
dim ooptions as namevaluemap
set ooptions = thisapplication.transientobjects.createnamevaluemap
' created at 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
"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
Of course you can
4 times on the part you want to save until you can open
then click with the dx and exit export face
or at the top left of the screen, new file choose iso idw and from you can save them in dxf or dwg