Northing Example
Examples:
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