VBA Selection Sets with Filter

[Anonymous]

I am attempting to write code to add my new topology centroids into a selection set. This will allow me to run through the Object Data that is attached to them and output it into Oracle. I have my oracle connection up and running in VBA, but I cant seem to make my selection set work. I am using some set points as a selection boundary.

Sub points()

Dim amap As AcadMap
Dim acadObj As Object
Dim ODtb As ODTables
Dim Prj As Project
Dim ODrcs As ODRecords
Dim boolVal As Boolean
Dim ssetObj As AcadSelectionSet
Dim i As Integer
Dim returnObj As AcadObject
Dim basePnt As Variant
Dim fType(1) As Integer
Dim fData(1) As Variant
'Dim Lst(1, 1) As Variant
Dim pntLst(7) As Variant

'first attempt at point list
'Lst(0, 0) = Array(474000, 5450000)
'Lst(1, 1) = Array(495000, 5480000)

'x coord then y coord for lower left, upper left, upper right and lower right.
pntLst(0) = 474000
pntLst(1) = 5450000
pntLst(2) = 474000
pntLst(3) = 5480000
pntLst(4) = 495000
pntLst(5) = 5480000
pntLst(6) = 495000
pntLst(7) = 5450000

'sets up the map
Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application")

'sets the table collection
Set Prj = amap.Projects.Item(ThisDrawing)
Prj.ProjectOptions.DontAddObjectsToSaveSet = True
Set ODtb = Prj.ODTables

'sets the records collection
Set ODrcs = ODtb.Item("Identity_data").GetODRecords

'adds new objects to the selection set
fType(0) = 0
fType(1) = 8
fData(0) = "Point"
fData(1) = "0"

Set ssetObj = ThisDrawing.SelectionSets.Add("SS01")

'attempting to add all centriods on layer "0" to selection
ssetObj.SelectByPolygon acSelectionSetWindowPolygon, pntLst, fType, fData

MsgBox ssetObj.COUNT

For Each acadObj In ssetObj
boolVal = ODrcs.Init(ssetObj, True, False)
MsgBox ODrcs.Record.tableName
MsgBox ODrcs.Record.ObjectID

For i = 0 To ODrcs.Record.COUNT - 1
MsgBox ODrcs.Record.Item(i).Value
Next i

Next
End Sub

Does anyone know what Im doing wrong. Sorry if I am posting too much, I am very behind schedule.

Thanks,

Tammy

[Anonymous]

Tammy, If memory recalls, the point list is 3D, not 2D - so add a Z point to each vertex = 0. Scott "Tammy G" wrote in message news:29214609.1099501077947.JavaMail.jive@jiveforum2.autodesk.com... > I am attempting to write code to add my new topology centroids into a selection set. This will allow me to run through the Object Data that is attached to them and output it into Oracle. I have my oracle connection up and running in VBA, but I cant seem to make my selection set work. I am using some set points as a selection boundary. > > Sub points() > > Dim amap As AcadMap > Dim acadObj As Object > Dim ODtb As ODTables > Dim Prj As Project > Dim ODrcs As ODRecords > Dim boolVal As Boolean > Dim ssetObj As AcadSelectionSet > Dim i As Integer > Dim returnObj As AcadObject > Dim basePnt As Variant > Dim fType(1) As Integer > Dim fData(1) As Variant > 'Dim Lst(1, 1) As Variant > Dim pntLst(7) As Variant > > 'first attempt at point list > 'Lst(0, 0) = Array(474000, 5450000) > 'Lst(1, 1) = Array(495000, 5480000) > > 'x coord then y coord for lower left, upper left, upper right and lower right. > pntLst(0) = 474000 > pntLst(1) = 5450000 > pntLst(2) = 474000 > pntLst(3) = 5480000 > pntLst(4) = 495000 > pntLst(5) = 5480000 > pntLst(6) = 495000 > pntLst(7) = 5450000 > > 'sets up the map > Set amap = ThisDrawing.Application.GetInterfaceObject("AutoCADMap.Application") > > 'sets the table collection > Set Prj = amap.Projects.Item(ThisDrawing) > Prj.ProjectOptions.DontAddObjectsToSaveSet = True > Set ODtb = Prj.ODTables > > 'sets the records collection > Set ODrcs = ODtb.Item("Identity_data").GetODRecords > > 'adds new objects to the selection set > fType(0) = 0 > fType(1) = 8 > fData(0) = "Point" > fData(1) = "0" > > Set ssetObj = ThisDrawing.SelectionSets.Add("SS01") > > 'attempting to add all centriods on layer "0" to selection > ssetObj.SelectByPolygon acSelectionSetWindowPolygon, pntLst, fType, fData > > MsgBox ssetObj.COUNT > > For Each acadObj In ssetObj > boolVal = ODrcs.Init(ssetObj, True, False) > MsgBox ODrcs.Record.tableName > MsgBox ODrcs.Record.ObjectID > > For i = 0 To ODrcs.Record.COUNT - 1 > MsgBox ODrcs.Record.Item(i).Value > Next i > > Next > End Sub > > Does anyone know what Im doing wrong. Sorry if I am posting too much, I am very behind schedule. > > Thanks, > > Tammy

[Anonymous]

Thanks, it works great!

Tammy