Attach Annotation Example (VBA)

This example shows how to attach an existing annotation to a drawing view.

'----------------------------------------------------------------------------
' Preconditions: Open install_dir\samples\tutorial\api\replaceview.slddrw.
'
' Postconditions:
' 1. A note annotation is inserted in the drawing.
' 2. The annotation is selected.
' 3. A face in a drawing view is appended to the selection list.
' 4. The annotation is attached to the selected face.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim part As SldWorks.ModelDoc2
Dim draw As SldWorks.DrawingDoc
Dim aNote As SldWorks.Note
Dim anAnnot As SldWorks.Annotation
Dim selectData As SldWorks.selectData
Dim ret As Long
Dim boolstatus As Boolean
Option Explicit
Sub main()

    Set swApp = Application.SldWorks
    Set part = swApp.ActiveDoc
    Set draw = part
   

    boolstatus = part.ActivateSheet("Sheet1")
   

    Set aNote = draw.CreateText2("This is a note.", 0.21, 0.12, 0, 0.005, 0)
    Set anAnnot = aNote.GetAnnotation
    ret = anAnnot.SetLeader3(swLeaderStyle_e.swBENT, swLeaderSide_e.swLS_SMART, True, False, False, False)
   

    anAnnot.Select3 False, selectData
    boolstatus = part.ActivateView("Drawing View1")
    boolstatus = part.Extension.SelectByID2("", "FACE", 7.83563575357558E-02, 0.17448024010205, -499.965138294658, True, 0, Nothing, 0)
   

    draw.AttachAnnotation swAttachAnnotationOption_e.swAttachAnnotationOption_View

End Sub