FacetDeviation Example

FacetDeviation Example

Sub Example_FacetDeviation()

    ' This example displays the FacetDeviation setting for the current drawing.

    Dim dbPref As AecArchBaseDatabasePreferences

    Set dbPref = AecArchBaseApplication.ActiveDocument.preferences

    MsgBox "The setting for FacetDeviation is: " & dbPref.FacetDeviation, _

        vbInformation, "FacetDeviation Example"

End Sub