I'm currently making a macro to allow users to make dimenions ballooning on drawings. I mean, the user is able to select a dimension on a drawing and the macro create a note with a balloon format and a specif number. Next, I would like to group the note made with the dimension selected, but it seems I need to attach the note to the view of the dimension before.
I'm moving forward with my code, but I'm stopped because I can't find a way to get the drawing view of the selected dimension...
Also, I don't understand the difference between the entities "dimension" and "displaydimension" available in API.
Please help me :-)
Below the function where I'm stopped (I'm french, so excuse me for the comments and the variable names in french) :
Private Function ms_MouseLBtnDownNotify(ByVal X As Long, ByVal Y As Long, ByVal WParam As Long) As Long
'si pas création de balloon en cours
If PositionnementBalloonEnCours = False And ObjectEstPreSelectionné = True Then
Set myNote = swModel.InsertNote(UserForm1.TextBoxNumero.value)
Set MyDimension = MonObjectPreSelectionné
If Not myNote Is Nothing Then
myNote.Angle = 0
boolstatus = myNote.SetBalloon(12, 0)
Set myAnnotation = myNote.GetAnnotation()
If Not myAnnotation Is Nothing Then
longstatus = myAnnotation.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False, False)
boolstatus = myAnnotation.SetPosition(X, Y, Z)
UserForm1.TextBoxNumero.value = UserForm1.TextBoxNumero.value + 1
PositionnementBalloonEnCours = True
'si création de balloon en cours
ElseIf PositionnementBalloonEnCours = True Then
'on attache le balloon à la vue (fonction attach to view)
bool = myAnnotation.Select3(True, swSelData)
bool = MyDimension. 'How to be able to select the dimension's drawing view before to attach the annotion to it ?
bool = swModel.AttachAnnotation(swAttachAnnotationOption_View)
'on attache le balloon à la dimension (fonction group)
PositionnementBalloonEnCours = False
Set myAnnotation = Nothing