inventor drawing Dimension align to center using ilogic gives error

[Anonymous]

Hello,

I was trying to align the drawing dimensions to center but it gives error.

can any one help me out to resolve the error.

My code is mentioned below:

    Dim oDrawDoc As DrawingDocument
    Dim oSheet As Sheet
    oDrawDoc = ThisApplication.ActiveDocument
    oSheet = oDrawDoc.Sheets.Item(1)
    Dim oDimension As DrawingDimension
    oDimension.CenterText

[Sergio.D.Suárez · Accepted solution]

Hi, try this code, center the linear and angular dimensions

Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oSheet As Sheet = oDoc.ActiveSheet
' Iterate over all dimensions in the drawing and center them if they are linear or angular.
For Each oDimension As DrawingDimension In oSheet.DrawingDimensions
    If TypeOf oDimension Is LinearGeneralDimension Or _
       TypeOf oDimension Is AngularGeneralDimension Then
        Call oDimension.CenterText
    End If
Next

 I hope this helps, greetings!

[Anonymous]

Thanks its working.

[blandb]

Any idea as to why I have to run this rule twice before it will center them?