Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Charlies_3D_T
in reply to: Anonymous

Hello,

 

I think you can use this. This is auto arrange but only the linear dimensions. 

 

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
Dim oDrawingDims As DrawingDimensions
Dim oDimsToBeArranged As ObjectCollection

' Iterate over all dimensions in the drawing and
' center them if they are linear or angular.
' Add them to the ObjectCollection to be arranged

oDrawingDimensions = oSheet.DrawingDimensions

oDimsToBeArranged = ThisApplication.TransientObjects.CreateObjectCollection

For Each oDrawingDim In oDrawingDimensions
    If TypeOf oDrawingDim Is LinearGeneralDimension Then
       oDrawingDim.CenterText
       oDimsToBeArranged.Add(oDrawingDim)
    End If
Next

If oDimsToBeArranged.Count > 0 Then		
	oDrawingDimensions.Arrange(oDimsToBeArranged)
End If