03-21-2021
11:03 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-21-2021
11:03 AM
Hello
I don't understand why you not export the unfolded part itself. You do not need to use a sketch. Try this simpliest version of export:
Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oDataIO As DataIO = oDoc.ComponentDefinition.DataIO
Dim sOut As String = "FLAT PATTERN DXF?AcadVersion=R12&OuterProfileLayer=Outer&TrimCenterlinesAtContour=True"
Call oDataIO.WriteDataToFile( sOut, "C:\temp\flat.dxf")
Or am I missunderstanding your question?
R. Krieg
RKW Solutions
www.rkw-solutions.com