Automate ordinate set leader position

[benjamin.herinckx]

Hi all,

v Inventor Pro 2019

I'd like to come up with an iLogic rule to automate the positioning of ordinate set dimensions.

On a few projects of mine I have come across situations where aligned ordinate set just didn't look right.

Moving them around by hand is a pain... cause there are (at least) 3 break points on the leader.

It would be ideal if a rule could position all the dimension value at (X,Y) distance of the attachment point.

Unfortunately I'm not to familiar with the drawing environment API..

Do any of you know if something similar has been worked on (couldn't find anything) ?

Any help appreciated;

Regards

[clutsa]

Could you use the "Arrange Dimensions" command?

Highlight all the dimensions you need to move, right click and select "Arrange Dimensions".

[benjamin.herinckx]

Thnx for the input,
However, arrange dimensions doesn't seem to have any effects on ordinate set dimensions.
Also the idea of arrange dimension is to move multiple dimensions at once, whereas the objective here is to move all the dimensions of the set individually.

Regards

[clutsa]

Sorry, I miss read the title as "Automate ordinate, set leader position" my bad 

Could you post an image of what you want the ordinate dimensions to look like when done? I'm more familiar with plain ordinates then ordinate sets (in truth I'd never noticed the ordinate set option) 

[clutsa]

I breaking my cardinal rule and making a suggestion that's outside the boundaries of what you asked. If you're using regular ordinate dims you can use the arrange dimensions and drag multiple dims at once... I understand that your question is about ordinate sets but I threw together a quick screen-cast to show what I mean.

I understand that this is a terrible use for ordinate dimensions but just a sample of how they move. 

[benjamin.herinckx]

Thnx for the screencast,

I was rather thinking of a programatic rule.

Something along the lines :

Sub Main()
Dim oDoc As Document = ThisApplication.ActiveDocument

Do
    oSet = ThisApplication.CommandManager.Pick _
	(SelectionFilterEnum.kDrawingDimensionFilter, _
	"Please select a dimension set, press escape to finish.")
    If Not oSet Is Nothing Then 
		'MessageBox.Show(oSet.ToString)
        Arrange(oSet)
    End If
Loop While Not oSet Is Nothing

End Sub

Function Arrange(oSet As DrawingDimensions)

   For i = 1 To oSet.Count
      Dim oODimension As DrawingDimension = oSet.Item(i)
         oODimension.JogPointOne.X = oODimension.Intent.PointOnSheet.X + 50
		 oODimension.JogPointOne.Y = oODimension.Intent.PointOnSheet.Y + 50
		 oODimension.JogPointTwo.X = oODimension.Intent.PointOnSheet.X + 80
		 oODimension.JogPointTwo.Y = oODimension.Intent.PointOnSheet.Y + 80
   Next
End Function

However, I haven't managed to make it work so far..

Regards