Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
Dim groupcode As Variant
Dim dataCode As Variant
gpCode(0) = 0
dataValue(0) = "AECC_POINT"
groupcode = gpCode
dataCode = dataValue
Set ssetobj = ThisDrawing.SelectionSets.Add("SSet")
ssetobj.SelectOnScreen groupcode, dataCode
For Each ENT In ssetobj
whatever = ent.layer
next
Bud Miller
www.BudCAD.com
Legal Descriptions. Parcel Reports.
Point Group Automation. Layer Reports.
"TBerry" wrote in message news:3CA28BE3.3B4396B6@vhb.com...
> If I iterate through the CogoPoints collection, is there anyway to find
> out the layer each point is on if it's in the current dwg?
>
> I'm familiar with the older Softdesk Point block but not the newer
> AeccPoint & CogoPoint.
>
> Thank you
> Tom Berry
>