Automatically Insert Center Marks Example (VBA)

This example shows how to automatically insert center marks in multiple drawing views.

'----------------------------------------------------------------------------
' Preconditions: Open:
'    install_dir\samples\tutorial\advdrawings\foodprocessor.slddrw
'
' Postconditions:
' 1. Sheet3 is activated.
' 2. Center marks are inserted in three views of the sheet's views.
' 3. Drawing View7 is suppressed and unsuppressed.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim swModelDocExt as SldWorks.ModelDocExtension
Dim Draw As SldWorks.DrawingDoc
Dim swActiveView As SldWorks.View
Dim boolstatus As Boolean
Option Explicit

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set swModelDocExtension = Part.Extension
    Set Draw = Part
   

    Draw.ActivateSheet ("Sheet3")
   

    ' Insert center marks for all holes, fillets, and slots in the specified views
   

    boolstatus = Draw.ActivateView("Drawing View7")
    Set swActiveView = Draw.ActiveDrawingView
    boolstatus = swActiveView.AutoInsertCenterMarks(7, _
                                                   11, _
                                                   True, _
                                                   True, _
                                                   True, _
                                                   0.0025, _
                                                   True, _
                                                   True, _
                                                   0)
   

    ' Suppress Drawing View7
    boolstatus = swModelDocExt.SelectByID2("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
    Draw.SuppressView

    boolstatus = Draw.ActivateView("Drawing View9")
    Set swActiveView = Draw.ActiveDrawingView
    boolstatus = swActiveView.AutoInsertCenterMarks(7, _
                                                   11, _
                                                   True, _
                                                   True, _
                                                   True, _
                                                   0.0025, _
                                                   True, _
                                                   True, _
                                                   0)
   

    boolstatus = Draw.ActivateView("Drawing View11")
    Set swActiveView = Draw.ActiveDrawingView
    boolstatus = swActiveView.AutoInsertCenterMarks(7, _
                                                   11, _
                                                   True, _
                                                   True, _
                                                   False, _
                                                   0.005, _
                                                   False, _
                                                   False, _
                                                   0)
   

    Part.ClearSelection2 True

   ' Unsuppress Drawing View7
    boolstatus = Part.ActivateView("Drawing View7")
    boolstatus = swModelDocExt.SelectByID2("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
    Draw.UnsuppressView

End Sub