I’m trying to create an EPDM task which generates dxf files for all sheet-metal parts passing specific workflow transition. The code generates separate dxf for each part configuration. I'm using the SolidWorks Task add-in to execute the following script:

Option ExplicitDim swApp As SldWorks.SldWorksSub main()      Dim swModel                 As SldWorks.ModelDoc2    Dim vConfNameArr            As Variant    Dim vConfName               As Variant    Dim bShowConfig             As Boolean    Dim bRebuild                As Boolean    Dim bRet                    As Boolean    Dim swDocSpecification      As SldWorks.DocumentSpecification    Set swApp = CreateObject("SldWorks.Application")    Set swDocSpecification = swApp.GetOpenDocSpec("C:\Users\ananchev.TL-HQ\Desktop\sheetMetal.SLDPRT")    Set swModel = swApp.OpenDoc7(swDocSpecification)    Set swModel = swApp.ActiveDoc'Is it a part document?Dim modelType As LongmodelType = swModel.GetTypeIf modelType <> SwConst.swDocPART Then    swApp.SendMsgToUser2 "A sheet metal part must be open.", swMbWarning, swMbOk    Exit SubEnd IfvConfNameArr = swModel.GetConfigurationNamesFor Each vConfName In vConfNameArr    bShowConfig = swModel.ShowConfiguration2(vConfName)    bRebuild = swModel.ForceRebuild3(False)    Dim FilePath As String    Dim PathSize As Long    Dim PathNoExtension As String    Dim NewFilePath As String       FilePath = swModel.GetPathName    PathSize = Strings.Len(FilePath)    'PathNoExtension = Strings.Left(FilePath, PathSize - Len(swModel.GetTitle)) + "Export\"    PathNoExtension = "C:\Users\ananchev.TL-HQ\Desktop\Tests\" + "Export\"    NewFilePath = PathNoExtension + vConfName & ".DXF"       'Export Flat Pattern    bRet = swModel.ExportFlatPatternView(NewFilePath, swExportFlatPatternOption_RemoveBends)Next vConfName'Close the documentswApp.CloseDoc (swModel.GetTitle)End Sub