Inventor Customization

Inventor Customization

Reply
Valued Contributor
planglais
Posts: 62
Registered: ‎03-10-2011
Message 1 of 2 (137 Views)
Accepted Solution

Doing translation on an arrow of a leader

137 Views, 1 Replies
04-23-2012 07:02 AM

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

 

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

 

 

 

Valued Contributor
planglais
Posts: 62
Registered: ‎03-10-2011
Message 2 of 2 (131 Views)

Re: Doing translation on an arrow of a leader

04-23-2012 07:55 AM in reply to: planglais

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

 

 

 

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.