Easting Example
Examples:
l TinPoint
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