CoordinateZone Example

CoordinateZone Example

Examples:

l DatabasePreferences

l DEMFile

---

Sub Example_CoordinateZone_DatabasePreferences()

    ' This example returns the CoordinateZone setting for the current drawing.

    Dim dbPref As AeccDatabasePreferences

    Set dbPref = AeccApplication.ActiveDocument.Preferences

    MsgBox "The current value for CoordinateZone is: " & dbPref.CoordinateZone, _

        vbInformation, "CoordinateZone Example"

End Sub

---

Sub Example_CoordinateZone_DEMFile()

    ' This example returns the CoordinateZone for the first DEMFile in the 

    ' first surface in the collection.

    Dim surf As AeccSurface

    Dim DEMFile As AeccDEMFile

    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)

    Set DEMFile = surf.Inputs.DEMFiles.Item(0)

    MsgBox "The CoordinateZone for the first DEMFile is: " & DEMFile.CoordinateZone, _

        vbInformation, "CoordinateZone Example"

End Sub