Translate - Sheet Metal to DXF

Description

The sample code below writes a sheet metal file out as DXF. DWG is also supported. Use either the FLAT PATTERN DWG or FLAT PATTERN DXF formats.There are several optional arguments that can be specified as part of the format string. E.g. 'FLAT PATTERN DXF?TangentLayer=Tangents&SimplifySplines=True'). Below are the names of these arguments and relevant default values. The output will use these values unless you override them as part of the input string.
ArgumentTypeDefault ValueNote
TangentLayerStringIV_TANGENT
OuterProfileLayerStringIV_OUTER_PROFILE
ArcCentersLayerStringIV_ARC_CENTERS
InteriorProfilesLayerStringIV_INTERIOR_PROFILES
BendLayerStringIV_BENDBendUpLayer + BendDownLayer (legacy support)
BendUpLayerStringIV_BEND
BendDownLayerStringIV_BEND_DOWN
ToolCenterLayerStringIV_TOOL_CENTERToolCenterUpLayer + ToolCenterDownLayer (legacy support)
ToolCenterUpLayerStringIV_TOOL_CENTER
ToolCenterDownLayerStringIV_TOOL_CENTER_DOWN
FeatureProfilesLayerStringIV_FEATURE_PROFILESFeatureProfilesUpLayer + FeatureProfilesDownLayer (legacy support)
FeatureProfilesUpLayerStringIV_FEATURE_PROFILES
FeatureProfilesDownLayerStringIV_FEATURE_PROFILES_DOWN
AltRepFrontLayerStringIV_ALTREP_FRONT
AltRepBackLayerStringIV_ALTREP_BACK
UnconsumedSketchesLayerStringIV_UNCONSUMED_SKETCHES
TangentRollLinesLayerStringIV_ROLL_TANGENT
RollLinesLayerStringIV_ROLL
***ColorString*** indicates name of layer from the argument column. RGB values separated by ;. Example: TangentLayerColor=255;0;0
***LineTypeLong*** indicates name of layer from the argument column. Long value from LineTypeEnum. Example: TangentLayerLineType=37644
***LineWeightDouble*** indicates name of layer from the argument column. Value in centimeters. Example: TangentLayerLineWeight=.1016
CustomizeFilenameString
AcadVersionString2018, 2013, 2010, 2007, 2004, 2000, or R12 (for DXF only)
SimplifySplinesBooleanTrueEnable spline replacement by linear segments
SplineToleranceDouble0.01Chord tolerance for spline replacement
AdvancedLegacyExportBooleanTrue
MergeProfilesIntoPolylineBooleanFalseBuild a polyline of the exterior profiles
RebaseGeometryBooleanFalseMove geometry to 1st quadrant
InvisibleLayersStringList of layer names to make invisible, separated by ;
TrimCenterlinesAtContourBooleanFalseTrim the centerlines at contour.

Code Samples

The following sample demonstrates creating an R12 DXF file that will have a layer called Outer where the the curves for the outer shape will be created.
Public Sub WriteSheetMetalDXF()
    ' 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=R12&OuterProfileLayer=Outer&TrimCenterlinesAtContour=True"

    ' Create the DXF file.
    oDataIO.WriteDataToFile sOut, "C:\temp\flat2.dxf"
End Sub