Private Sub del()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwNote As Note, SwAnn As Annotation
Set SwNote = SwSelMgr.GetSelectedObject5(1)
SwNote.SetBalloon swBS_Underline, 3
'swBS_Underline, swBF_3Chars
'swBS_FlagTriangle, 3 'swBS_Underline, 0
Set SwAnn = SwNote.GetAnnotation
With SwAnn
Debug.Print .GetArrowHeadStyleAtIndex(1)
.SetLeader3 swSTRAIGHT, 0, True, True, True, True
.SetArrowHeadStyleAtIndex -1, swNO_ARROWHEAD ' swDOT_ARROWHEAD
Stop
End With
Stop
End Sub
SolidworksApi macros