ScaleByDrawingScale Example
Sub Example_ScaleByDrawingScale()
' This example returns the ScaleByDrawingScale for the first
' DescriptionKey in the first DescriptionKeyFile in the collection.
Dim dKeyFile As AeccDescriptionKeyFile
Dim dKey As AeccDescriptionKey
Set dKeyFile = AeccApplication.ActiveProject.DescriptionKeyFiles.Item(0)
Set dKey = dKeyFile.Item(0)
MsgBox "The value for DescriptionKey ScaleByDrawingScale is: " & dKey.ScaleByDrawingScale, _
vbInformation, "ScaleByDrawingScale Example"
End Sub