ExportToDwg - Not working for me

Below is an example from SolidWorks API Help. It creates current and front view fine, do not create flate pattern view. I tried a lot to change settings in that. No success.

Please Help.

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swPart As SldWorks.PartDoc

Dim sModelName As String

Dim sPathName As String

Dim varAlignment As Variant

Dim dataAlignment(11) As Double

Dim varViews As Variant

Dim dataViews(1) As String

Dim options As Long

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

sModelName = swModel.GetPathName

sPathName = swModel.GetPathName

sPathName = Left(sPathName,  Len(sPathName) - 6)

sPathName = sPathName + "dwg"

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

dataViews(0) = "*Current"

dataViews(1) = "*Front"

varViews = dataViews

'Export each annotation view to a  separate drawing file

swPart.ExportToDWG sPathName, sModelName, 3, False,  varAlignment, False, False, 0, varViews

'Export flat pattern of the sheet  metal to a single drawing file

options = 13   '0001101 - include  flat pattern geometry, bend lines and sketches

swPart.ExportToDWG sPathName, sModelName, 1, True,  varAlignment, False, False, options, Null

Debug.Print "Inspect DWG files in " +  Left(sPathName, Len(sPathName) - 16)

End Sub

SolidworksApi macros