Insert Linear and Circular Note Patterns (VBA)
This example shows how to insert linear and circular note patterns in a
drawing.
'---------------------------------------------------------
'
' Preconditions: Specified drawing document to open exists.
'
' Postconditions:
' 1. A note is inserted in the drawing and then selected.
' 2. A linear note pattern (2 instances, including the original
' note) is inserted in the drawing.
' 3. A circular note pattern (4 instances, including the
' original note) is inserted in the drawing.
'
' NOTE: Because the model is used elsewhere, do not save
' changes when closing it.
'
'----------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDrawingDoc As SldWorks.DrawingDoc
Dim swNote As SldWorks.Note
Dim status As Boolean
Dim errors As Long
Dim warnings As Long
Sub main()
Set swApp = Application.SldWorks
' Open drawing document, activate sheet, and make it the active document
Set swModel = swApp.OpenDoc6("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\foodprocessor.slddrw", 3, 0, "", errors, warnings)
swApp.ActivateDoc2 "foodprocessor - Sheet1", False, errors
Set swDrawingDoc = swApp.ActiveDoc
' Insert a note
Set swNote = swModel.InsertNote("Test inserting linear and circular note patterns")
' Select the just-inserted note
status = swModel.Extension.SelectByID2("DetailItem174@Sheet1", "NOTE", 0.2558797881203, 0.3700526, 0, False, 0, Nothing, 0)
' Create a linear note pattern using the selected note
status = swDrawingDoc.InsertLinearNotePattern(2, 1, 0.01, 0.01, 0.7853981633975, 1.570796326795, "")
' Create a circular pattern using the selected note
status = swDrawingDoc.InsertCircularNotePattern(0.075, 4.03202193189, -4, 1.570796326795, True, "")
End Sub