Centralize Dimension Text

[cad]

Hi

I am at the first stage of iLogic.

Just Making some simple Conditional or Mathematical codes.

I got a code below to Centralize the Dimension text.

That works perfectly on the Active sheet.

Can I use something similar that works for All the sheets of Current Document. ?

    ' 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

Thanks.

[Anonymous · Accepted solution]

Yes you can use it in all sheet with following code

 ' Set a reference to the active drawing document
    
    Dim odoc As Document
    odoc = ThisApplication.ActiveDocument


    ' Set a reference to the active sheet
    Dim oSheet As Sheet
     
    For Each oSheet in oDoc.Sheets
    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
    Next

[cad]

Perfect !!!

Many thanks.