Center dims code

[blandb]

I took this from the api help, and modified it based on a video I found, but any ideas as why this needs to be ran twice to get all dims??

    ' Set a reference to the active drawing document
    Dim oDoc As DrawingDocument
    oDoc = ThisDoc.Document

    ' Set a reference to the active sheet
    Dim oSheet As Sheet
     oSheet = oDoc.ActiveSheet

    Dim oDrawingDim As DrawingDimension

    ' Iterate over all dimensions in the drawing and
    ' center them if they are linear or angular.

    For Each oDrawingDim In oSheet.DrawingDimensions
        If TypeOf oDrawingDim Is LinearGeneralDimension Or _
           TypeOf oDrawingDim Is AngularGeneralDimension Then
            oDrawingDim.CenterText
        End If
    Next
iLogicVb.UpdateWhenDone = True
InventorVb.DocumentUpdate()

[alewer]

I am dealing with the exact same problem and would love if anyone has a solution. In my case it is a c# addin.

[bradeneuropeArthur]

It not a real big problem.

I have solved it this way

For Each oDrawingDim In oSheet.DrawingDimensions
        If TypeOf oDrawingDim Is LinearGeneralDimension Or _
           TypeOf oDrawingDim Is AngularGeneralDimension Then
            oDrawingDim.CenterText
            oDrawingDim.CenterText
        End If
    Next

[alewer]

We have pretty much done the same. However it is a bit annoying and I was hoping somebody had a "proper" fix. Calling CenterText() twice is not an extreme burden, but it is still a workaround. I am guessing this is a bug and we will be using this workaround for a long time to come.