AnsweredAssumed Answered

How to move Arrow point of Note (balloon)?

Question asked by Yong Ning on May 14, 2015
Latest reply on Jun 27, 2017 by Dave Bear

00.jpg

***********************

follow code, can be move annotion position,

but don't move arrow point

 

Help me , arrow point of balloon ?

**********************

Private Sub ll()

   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 SwAnn As Annotation

  

   Dim SwNote As INote, TxtFormat As TextFormat

      Set SwNote = SwSelMgr.GetSelectedObject5(1)

      With SwNote

         Debug.Print .GetName

         .SetBalloon 1, 0

         ss = .GetArrowHeadInfo

         ss = .GetAttachPos

         Set SwAnn = .GetAnnotation

         With SwAnn

             ss = .GetPosition

             '.SetPosition 0.052, 0.165 + 0.03, 0

             .SetLeader3 1, 3, False, False, False, False

             .SetPosition 0.052, 0.165 - 0.015, 0

             ss = .GetLeaderPointsAtIndex(0)

             For jj = 0 To UBound(ss)

                Debug.Print Round(ss(jj) * 1000, 2)

             Next jj

             .SetArrowHeadStyleAtIndex 1, 3

         End With

         Set TxtFormat = .GetTextFormat

         With TxtFormat

            .CharHeight = 2.5 / 1000

    

         End With

         ss = .GetArrowHeadAtIndex(1)

     

      End With

End Sub

 

 

2010 SOLIDWORKS API Help - Attach Annotation to Entity Example (VBA)

http://help.solidworks.com/2010/english/api/sldworksapi/Attach_Annotation_to_Entity_Example_VB.htm

Attachments

Outcomes