Hi,
I would like to create a dxf file export flatpattern with "Include Sketches" and "Geometry" below is what i have found in help and slightly modified.
Only problem is it does not work.
Could somebody please shed some light?
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim sModelName As String
Dim strFileName As String
Dim bReturn As Boolean
Dim varAlignment As Variant
Dim dataAlignment(11) As Double
Dim options As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
sModelName = swModel.GetPathName
strFileName = swModel.GetPathName
strFileName = Left(strFileName, Len(strFileName) - 6)
strFileName = strFileName + "dxf"
Set swPart = swModel
dataAlignment(0) = 0#
dataAlignment(1) = 0#
dataAlignment(2) = 0#
dataAlignment(3) = 1#
dataAlignment(4) = 0#
dataAlignment(5) = 0#
dataAlignment(6) = 0#
dataAlignment(7) = 1#
dataAlignment(8) = 0#
dataAlignment(9) = 0#
dataAlignment(10) = 0#
dataAlignment(11) = 1#
varAlignment = dataAlignment
options = 9
swPart.ExportToDWG strFileName, sModelName, 1, True, varAlignment, False, False, options, Null
End Sub
Thanks,
Ben
SolidworksApi macros