Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
sModelName = swModel.GetPathName
sPathName = swModel.GetPathName

    vConfNameArr = swModel.GetConfigurationNames
 For i = 0 To UBound(vConfNameArr)
        sConfigName = vConfNameArr(i)
       
bShowConfig = swModel.ShowConfiguration2(sConfigName)

' Change the view orientation to Front

swModel.ShowNamedView2 "*Front", 1

bRebuild = swModel.ForceRebuild3(False)

sPathName = Left(sPathName, InStrRev(sPathName, "\"))

sPathName = sPathName & sConfigName & ".dwg"

Debug.Print "" & sPathName

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"
varViews = dataviews


swPart.ExportToDWG sPathName, sModelName, swExportToDWG_ExportAnnotationViews, False, varAlignment, False, False, 0, varViews
Rem swPart.ExportToDWG sPathName, sModelName, 3, False, varAlignment, False, False, 0, varViews
 
Next i

MsgBox "Inspect DWG files in Folder  " + Left(sPathName, InStrRev(sPathName, "\"))

End Sub