Please help with "ExportToDWG"

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