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: Sheet3 is activated, and center marks are inserted
' in three views of its views.
'
' 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 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 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)
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
End Sub