Hello,
I would like to change the orientation of the dimensions as shown in the picture. I tried to change the direction, but it doesn't work.
Sub changeDimensionOrientation()
Dim oDrawingDocument As DrawingDocument
Set oDrawingDocument = ThisApplication.ActiveDocument
Dim oDrawingDimension As DrawingDimension
Set oDrawingDimension = oDrawingDocument.SelectSet.Item(1)
Dim oDrawingDimension2 As DrawingDimension
Set oDrawingDimension2 = oDrawingDocument.SelectSet.Item(2)
oDrawingDimension.DimensionLine.Direction = oDrawingDimension2.DimensionLine.Direction
End Sub
