08-24-2023
10:11 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-24-2023
10:11 PM
Give it a try as I mentioned, at this point it should go through all the dimensions and center their positions.
Sub Main()
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub
Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim oStMgr As DrawingStylesManager = oDDoc.StylesManager
Dim oDimStyles As DimensionStylesEnumerator = oStMgr.DimensionStyles
Dim oDimStyle As DimensionStyle = oDimStyles.Item("Default (ANSI)")
oDimStyle.ArrowheadType = ArrowheadTypeEnum.kBlankArrowheadType
oDimStyle.ArrowheadSize = 0.2286
oDimStyle.ArrowheadHeight = 0.08
oDimStyle.Extension = 0.4572
oDimStyle.Gap = 0.000
oDimStyle.Spacing = 0.000
Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oDStyle As DimensionStyle = oDrawDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults.LinearDimensionStyle
Dim sFontSize As String = oDStyle.TextStyle.FontSize
Dim x As Double
x = 0.25
oDStyle.TextStyle.FontSize = x
Dim oDimensions As DrawingDimensions
oDimensions = oDDoc.ActiveSheet.DrawingDimensions
Dim oDrawDim As DrawingDimension
For Each oDrawDim In oDimensions
If TypeOf oDrawDim Is LinearGeneralDimension
Call oDrawDim.CenterText
End If
Next
End Sub