Public Sub testPublishFlatpatternToDXF()

    ' Get the active document. This assumes it is a part document.
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument

    ' Get the DataIO object.
    Dim oDataIO As DataIO
    Set oDataIO = oDoc.ComponentDefinition.DataIO

    ' Build the string that defines the format of the DXF file.
    Dim sOut As String
    sOut = "FLAT PATTERN DXF?AcadVersion=2000&OuterProfileLayer=Outer" & _
            "&InvisibleLayers=IV_TANGENT;IV_BEND;IV_BEND_DOWN;IV_TOOL+CENTER;IV_TOOL_CENTER_DOWN;IV_ARC_CENTERS;IV_UNCONSUMEND_SKETCHES;IV_ROLL_TANGENT;IV_ROLL" & _
            "&SimplifySplines=True&MergeOuterContour=true"
            
    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    'Set the destination file name
    Dim Filename As String
    Filename = Left(oDoc.DisplayName, Len(oDoc.DisplayName) - 4)
    

    
    'publish document
            On Error Resume Next
            MkDir ("c:\Temp Inventor DXF Flat Patterns\")
            oDataMedium.Filename = ("C:\Temp Inventor DXF Flat Patterns\" + Filename + ".dxf")
            oDataIO.WriteDataToFile sOut, "C:\Temp Inventor DXF Flat Patterns\" + Filename + ".dxf"
            MsgBox ("File saved as " & oDataMedium.Filename)
End Sub