Get Display Dimension Properties Examples (VBA)
This example shows how to get the display dimension
properties for a dimension in a drawing view named D1. It is assumed that drawing view has been set to
a drawing view containing the dimension.
Set DisplayDimension = View.GetFirstDisplayDimension()
While Not DisplayDimension Is Nothing
Set Dimension = DisplayDimension.GetDimension
If Dimension.Name
= "D1" Then
ArrowSide = DisplayDimension.ArrowSide
BrokenLeader = DisplayDimension.BrokenLeader
LeaderVisibility = DisplayDimension.LeaderVisibility
ShowDimensionValue = DisplayDimension.ShowDimensionValue
ShowParenthesis = DisplayDimension.ShowParenthesis
SmartWitness = DisplayDimension.SmartWitness
WitnessVisibility = DisplayDimension.WitnessVisibility
End If
Set DisplayDimension = DisplayDimension.GetNext()
Wend