Doing translation on an arrow of a leader

[planglais75]

Hi,

I try to move, by translation, an arrow of a leader but my code doing nothing.

My code:

Dim oDrawDoc As Inventor.DrawingDocument
oDrawDoc = oApp.ActiveDocument

Dim oSheets As Inventor.Sheets
oSheets = oDrawDoc.Sheets

Dim oSheet As Inventor.Sheet
oSheet = oSheets(1)

Dim oTG As Inventor.TransientGeometry

oTG = oApp.TransientGeometry

Dim oBalloon As Inventor.Balloon

Dim index As Integer

For index = 1 To oSheet.Balloons.Count

    Dim oTranslation As Inventor.Vector2d

    oTranslation = oTG.CreateVector2d(20, 20)

    oBalloon = oSheet.Balloons(index)

    Dim oArrowPosition as Inventor.Point2d

    oArrowPosition = oBalloon.Leader.AllLeafNodes(1).Position

    oArrowPosition.TranslateBy(oTranslation)
Next

oSheet.Update()

Thanks for help.

Pascal

[planglais75 · Accepted solution]

Ok, I found my answer: use CreatePoint2d method instead of CreateVector2D of TransientGeometry:

Dim oNewPosition As Inventor.Vector2d

oNewPosition = oTG.CreatePoint2d(20, 20)

oBalloon = oSheet.Balloons(index)

Dim oArrow as Inventor.LeaderNode

oArrow = oBalloon.Leader.AllLeafNodes(1)

oArrow.Position = oNewPosition