Hi Michael,
I don't really have an answer for you. I know what is happening though. The selection is not honoring the filter (you are getting _everything_ in the drawing and not just inserts name 'DOOR'. I can't figure out how to pass the arrays to the ssnew.SELECT method properly.
A really crappy (and I mean this
sucks bigtime) work around is to change the for loop to:
FOR EACH Entity IN ssnew
IF Entity.EntityType = 7
attribs = Entity.GetAttributes
FOR I = 1 TO ALEN(attribs)
? attribs(I).TagString + "=" + attribs(I).TextString
NEXT
ENDIF
NEXT
The if just tests to make sure it's an insert.
MUCHO PROBLEMO, on a large drawing you will be looping every entity in the .dwg not just the inserts you want.
Check out Autodesks news groups. adesknews.autodesk.com is the server. Look for the autodesk.autocad.customization.vba group. Someone there may have an idea why the ssnew.SELECT is not filtering properly. I did learn that the aKey array has to be declared as an INTEGER but I still couldn't get it to work :(
Sorry I couldn't be of much more help.
>Thanks Roi (nice photo).
Hehe, that's what working with architects does to you :-)
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!