Message 1 of 3
Export Flatpattern to DXF

Not applicable
11-30-2007
01:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
I want to export our Flatpattern from a inv2008 ipt to DXF with only the contour lines. I only want the layers: OuterProfileLayer,InteriorProfilesLayer in my DXF file.
I tried this by InvisibleLayers but they still come in the DXF file
I use this code but I can't get it right.
Dim oDataIO As inventor.DataIO
Set oDataIO = oPartDoc.ComponentDefinition.DataIO
Dim sOut As String
sOut = "FLAT PATTERN DXF?AcadVersion=R12&OuterProfileLayer=0&InteriorProfilesLayer=0" & _
"&InvisibleLayers=FeatureProfilesLayer,ArcCentersLayer;BendLayer;BendUpLayer;BendDownLayer;BendUpLayer;BendDownLayer;ToolCenterLayer;ToolCenterUp Layer;ToolCenterDownLayer;" & _
"FeatureProfilesLayer;FeatureProfilesUpLayer;FeatureProfilesDownLayer" & _
"&SimplifySplines=True&MergeOuterContour=true"
strDXFname = "c:\temp\dxfout1.dxf" oDataIO.WriteDataToFile sOut, strDXFname
Regards,
Geert
I want to export our Flatpattern from a inv2008 ipt to DXF with only the contour lines. I only want the layers: OuterProfileLayer,InteriorProfilesLayer in my DXF file.
I tried this by InvisibleLayers but they still come in the DXF file
I use this code but I can't get it right.
Dim oDataIO As inventor.DataIO
Set oDataIO = oPartDoc.ComponentDefinition.DataIO
Dim sOut As String
sOut = "FLAT PATTERN DXF?AcadVersion=R12&OuterProfileLayer=0&InteriorProfilesLayer=0" & _
"&InvisibleLayers=FeatureProfilesLayer,ArcCentersLayer;BendLayer;BendUpLayer;BendDownLayer;BendUpLayer;BendDownLayer;ToolCenterLayer;ToolCenterUp Layer;ToolCenterDownLayer;" & _
"FeatureProfilesLayer;FeatureProfilesUpLayer;FeatureProfilesDownLayer" & _
"&SimplifySplines=True&MergeOuterContour=true"
strDXFname = "c:\temp\dxfout1.dxf" oDataIO.WriteDataToFile sOut, strDXFname
Regards,
Geert