RotateByFixedFactor Example

Land Auto

RotateByFixedFactor Example

Sub Example_RotateByFixedFactor()
    
    ' This example returns the RotateByFixedFactor 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 RotateByFixedFactor is: " & dKey.RotateByFixedFactor, _
        vbInformation, "RotateByFixedFactor Example"
    
End Sub