Number Example
Examples:
l Parcel
Sub Example_Number_AeccPoint()
' This example returns the Number 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 Number is: " & objPoint.Number, vbInformation, "Number Example"
End Sub
Sub Example_Number_Alignment()
' This example returns the Number for the first Alignment in the collection.
Dim align As AeccAlignment
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
MsgBox "The Number of the first alignment is: " & align.Number, vbInformation, "Number Example"
End Sub
Sub Example_Number_CogoPoint()
' This example returns the Number for the first CogoPoint in the collection.
Dim cogoPnt As AeccCogoPoint
Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)
MsgBox "The Number for the first CogoPoint in the collection is: " & cogoPnt.Number, vbInformation, "Number Example"
End Sub
Sub Example_Number_Parcel()
' This example returns the parcel Number for the first parcel in the collection.
Dim parcel As AeccParcel
Set parcel = AeccApplication.ActiveProject.parcels.Item(0)
MsgBox "The Number for the first Parcel in the collection is: " _
& parcel.Number, vbInformation, "Number Example"
End Sub