Automatically Insert Center Marks Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Open:
'    install_dir\samples\tutorial\advdrawings\foodprocessor.slddrw
'
' Postconditions: Sheet3 is activated, and center marks are inserted
' in three of its views.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Dim Part As ModelDoc2
    Dim Draw As DrawingDoc
    Dim swActiveView As View
    Dim boolstatus As Boolean

    Sub main()

        Part = swApp.ActiveDoc
        Draw = Part

        Draw.ActivateSheet("Sheet3")

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

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

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

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

        Part.ClearSelection2(True)
    End Sub


    Public swApp As SldWorks

End Class