Get and Set Properties for Dimensions Example (VBA)
This example shows how to get and set the properties
for a dimension.
'---------------------------------------------
Dim D1 As Object
Set D1 = Part.Parameter("D1@Sketch1")
D1.DrivenState
= swDimensionDriven
Set D1 = Drawing.Parameter("RD1@Drawing
View1")
If Not D1.IsReference
Then
MsgBox "RD1 should be a reference dimension"
End If