Northing Example

Land Auto

Northing Example

Examples:

l AeccPoint

l CogoPoint

l TinPoint


Sub Example_Northing_AeccPoint()
    
    ' This example returns the Northing 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 Northing is: " & objPoint.Northing, vbInformation, "Northing Example"
    
End Sub

Sub Example_Northing_CogoPoint()
    
    ' This example returns the Northing for the first CogoPoint in the collection
    Dim cogoPnt As AeccCogoPoint
    Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)
    
    MsgBox "The Northing for the first CogoPoint in the collection is: " & cogoPnt.Northing, vbInformation, "Northing Example"
    
End Sub

Sub Example_Northing_TinPoint()
    
    ' This example returns the Northing 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 Northing of the first TIN Point is: " & tin.Northing, _
        vbInformation, "Northing Example"
    
End Sub