Hello,

I don't know what I'm doing wrong in this macro, but it does export a dwg but also crashes solidworks.

I was trying to replicate a problem with a larger macro that needs to be run twice to export the flat pattern of sheetmetal (first exports a empty dwg and in the second run export the flatpattern)

<p>'Option Explicit</p><p>Dim swApp                   As SldWorks.SldWorks</p><p>Dim swModel                 As SldWorks.ModelDoc2</p><p></p><p>Dim varAlignment As Variant</p><p>Dim dataAlignment(11) As Double</p><p></p><p></p><p>Sub main()</p><p></p><p>Set swApp = Application.SldWorks</p><p>'Set swApp = CreateObject("SldWorks.Application")</p><p>Set swModel = swApp.ActiveDoc</p><p></p><p>If swModel Is Nothing Then</p><p>    swApp.SendMsgToUser2 "A part needs to be open", swMbWarning, swMbOk</p><p>    Exit Sub</p><p>End If</p><p>dataAlignment(0) = 0#</p><p>dataAlignment(1) = 0#</p><p>dataAlignment(2) = 0#</p><p>dataAlignment(3) = 0#</p><p>dataAlignment(4) = 0#</p><p>dataAlignment(5) = 0#</p><p>dataAlignment(6) = 0#</p><p>dataAlignment(7) = 0#</p><p>dataAlignment(8) = 0#</p><p>dataAlignment(9) = 0#</p><p>dataAlignment(10) = 0#</p><p>dataAlignment(11) = 0#</p><p>varAlignment = dataAlignment</p><p>Dim shetoptions As Long</p><p>shetoptions = 1   'include flat-pattern geometry</p><p>Dim modelType As Long</p><p>modelType = swModel.GetType</p><p></p><p>If modelType = swconst.swDocPART Then</p><p>        Dim RootPath As String: RootPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\\"))</p><p>        Dim result As Boolean</p><p>        result = swModel.ExportToDWG2(RootPath & "FlatTest.dwg", swModel.GetPathName, 1, True, varAlignment, False, False, shetoptions, Nothing)</p><p>Else</p><p>    swApp.SendMsgToUser2 "Is not a part file.", swMbWarning, swMbOk</p><p>End If</p><p>Exit Sub</p><p>End Sub</p><p></p>

Thanks in advance!