Task exporting flat pattern to DXF

I made use of your code above and modified it a little bit.  I think your main issue was a misplaced ELSE command.  The main code was only executing on configurations that weren't SM-FLAT-PATTERN.  This code has been working for me today, running it as a task in PDM.  It is very specific and has no error handling.  This is ugly code, likely not for general use but it fits my needs, and I think this could fit yours too Tyty tyty.

I could not get the other codes listed at other links below to run for me.  My code listed below:

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim i As Long

Dim swModel As SldWorks.ModelDoc2

Dim vConfNameArr As Variant

Dim vConfigName As String

Dim bShowConfig As Boolean

Dim bRebuild As Boolean

Dim bRet As Boolean

Dim swDocSpecification As SldWorks.DocumentSpecification

Dim aa As String

Dim docfilename as string

Sub main()

aa ="<Filepath>"

docfilename =MID(aa, InStrRev(aa,"\")+1)

docfilename =LEFT(docfilename, LEN(docfilename)-7)

Set swApp = CreateObject("SldWorks.Application")

Set swDocSpecification = swApp.GetOpenDocSpec(aa)

Set swModel = swApp.OpenDoc7(swDocSpecification)

Set swModel = swApp.ActiveDoc

'Is it a part document?

Dim modelType As Long

modelType = swModel.GetType

If modelType <> SwConst.swDocPART Then

Exit Sub

End If

vConfNameArr = swModel.GetConfigurationNames

'===========================

For i = 0 To UBound(vConfNameArr)

vConfigName = vConfNameArr(i)

If Right(vConfigName, 15) = "SM-FLAT-PATTERN" Then

bShowConfig = swModel.ShowConfiguration2(vConfigName)

bRebuild = swModel.ForceRebuild3(False)

Dim FilePath As String

Dim NewFilePath As String

FilePath = "c:\pdm\test\testdxfexports\"

'following line would save it to the same path location with the same name and .dxf

'NewFilePath = LEFT(aa,(LEN(aa)-7)) & ".DXF"

'following line would save it to a specified location with the same file name and .dxf

NewFilePath = FilePath & docfilename & ".DXF"

bRet = swModel.ExportFlatPatternView(NewFilePath, swExportFlatPatternOption_RemoveBends)

End If

Next i

End Sub