Easting Example

Easting Example

Examples:

Sub Example_Easting_AeccPoint()

    ' This example returns the Easting setting for the

    ' first Point object in a selection set.

    On Error Resume Next

    ' Delete existing SelectionSet

    ThisDrawing.SelectionSets("SSet").Delete

    ' Create the selection set based on a point selection

    ' and filter for the Point objects

    Dim ssetObj As AcadSelectionSet

    Set ssetObj = ThisDrawing.SelectionSets.Add("SSet")

    Dim gpCode(0) As Integer

    Dim dataValue(0) As Variant

    gpCode(0) = 0

    dataValue(0) = "AECC_POINT"

    Dim groupCode As Variant

    Dim dataCode As Variant

    groupCode = gpCode

    dataCode = dataValue

    ssetObj.SelectOnScreen groupCode, dataCode

    Dim objPoint As AeccPoint

    Set objPoint = ssetObj.Item(0)

    MsgBox "The setting for Easting is: " & objPoint.Easting, vbInformation, "Easting Example"

End Sub

Sub Example_Easting_CogoPoint()

    ' This example returns a Cogo point East coordinate.

    Dim dbPoint As AeccCogoPoint

    Set dbPoint = AeccApplication.ActiveProject.CogoPoints.Item(0)

    MsgBox "The point Easting for the first point in the collection is: " & dbPoint.Easting, _

        vbInformation, "Easting Example"

End Sub

Sub Example_Easting_TinPoint()

    ' This example returns the Easting of the first

    ' TIN Point in the collection.

    Dim surf As AeccSurface

    Dim tin As AeccTinPoint

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

    Set tin = surf.Outputs.TinPoints.Item(0)

    MsgBox "The Easting of the first TIN Point is: " & tin.Easting, vbInformation, "Easting Example"

End Sub