Export Part to DWG Example (VBA)

This example shows how to export sheet metal and annotation views of a part to DWG files.

'---------------------------------------------------------------------------
' Preconditions: Copy public_documents\samples\tutorial\api\2012-sm.sldprt to
' c:\temp.
'
' Postconditions:
' 1. Creates three DWG files containing:
'    * Current annotation view
'    * Front annotation view
'    * flat-pattern sheet metal
' 2. Locate and open the just-created DWG files in c:\temp.
'--------------------------------------------------------------------------

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.ExportToDWG2 sPathName, sModelName, swExportToDWG_ExportAnnotationViews, False, varAlignment, False, False, 0, varViews
   

    'Export sheet metal to a single drawing file
    options = 1   'include flat-pattern geometry
    swPart.ExportToDWG2 sPathName, sModelName, swExportToDWG_ExportSheetMetal, True, varAlignment, False, False, options, Null
 

End Sub