Public Sub Main()
    ' Získat aktivní dokument, musí to být součást, rozvinutý tvar
    Dim invDoc As Inventor.Document
    invDoc = ThisApplication.ActiveDocument
   
    ' Jméno dokumentu
    Dim sFileName As String
    sFileName = invDoc.DisplayName
    sFileName = Left(sFileName, Len(sFileName) - 1) 'bez .IPT

    ' Vytvořit objekt DataIO
    Dim oDataIO As DataIO
    oDataIO = invDoc.ComponentDefinition.DataIO
 
    ' Parametry definující formát výstupního souboru DWG nebo DXF
    Dim sParam As String
    sParam = "FLAT PATTERN DXF?AcadVersion=2000"
'dostupné formáty: AcadVersion = "2005","2004","2002", "2000", "R14", "R13", "R12" (R12 jen pro DXF)

 
    ' Vytvořit výstupní DWG nebo DXF soubor v adresáři C:\TEMP
    Dim sDXFFileName As String
    sDXFFileName = "c:\temp\" & sFileName & ".dxf"
    oDataIO.WriteDataToFile (sParam, sDXFFileName)
End Sub

Třeba přes: