topic Re: Why I don´t get objects in the selectionset with AddItems method? in VBA Forum

Why I don´t get objects in the selectionset with AddItems method?

Anonymous — Thu, 21 Aug 2003 07:16:49 GMT

Hallo,
I have a acad 2000-drawing with some blocks. In the block are a circle
and three attributes.
Now I must insert the tree atrributes and the circle in a selectionset.
But I don`t get the objects in the selectionset. In the array
"objAttributesArray" are all objects!
What is not correct with: SSetAuto.AddItems objAttributesArray ?
Who can help me with a idea?

Thanks
Hartmut Callies

sub test ()
Dim SSetUser As AcadSelectionSet
Dim SSetAuto As AcadSelectionSet
Dim objectInSSetUser As AcadEntity
Dim i As Integer
Dim objBlockRef As AcadBlockReference
Dim objBlock As AcadBlock
Dim objectInBlock As AcadEntity
Dim objAttributesArray(0 To 3) As AcadEntity

' On Error Resume Next

'//first selectionset is for the user
Set SSetUser = ThisDrawing.SelectionSets("SSET1")
If Err Then
Err.Clear
Set SSetUser = ThisDrawing.SelectionSets.Add("SSET1")
End If

SSetUser.Clear

SSetUser.SelectOnScreen '//User

'//second selectionset for the program
Set SSetAuto = ThisDrawing.SelectionSets("SSET2")
If Err Then
Err.Clear
Set SSetAuto = ThisDrawing.SelectionSets.Add("SSET2")
End If

SSetAuto.Clear

For Each objectInSSetUser In SSetUser
Select Case objectInSSetUser.ObjectName
Case "AcDbBlockReference" '//<<<--- BLOCK
Set objBlockRef = objectInSSetUser
i = 0
Set objBlock = ThisDrawing.Blocks(objBlockRef.name)
For Each objectInBlock In objBlock
Set objAttributesArray(i) = objectInBlock
i = i + 1
Next objectInBlock
End Select
Next objectInSSetUser

For i = LBound(objAttributesArray) To UBound(objAttributesArray)
Debug.Print "test1 : " & objAttributesArray(i).ObjectName
Next i

SSetAuto.AddItems objAttributesArray '<<<<<<<<<<<
error

For i = 0 To SSetAuto.Count
Debug.Print "test2 : " & SSetAuto(i).ObjectName
Next i
end sub

Re: Why I don´t get objects in the selectionset with AddItems method?

Anonymous — Thu, 21 Aug 2003 07:28:55 GMT

Re: Why I don´t get objects in the selectionset with AddItems method?

Anonymous — Thu, 21 Aug 2003 07:33:48 GMT

looks like you're trying to take definitions of objects out of the block
table (definition of the block) and put them in a selection set.
if I'm not mistaken:
a selection set is a container for objects/entities in a drawing
the definitions in a block definition (the parts of the block, attributes,
circle etc)
are pointers to a definition of an object that will be referred to when a
block reference is inserted in the drawing, they are not really entities in
the drawing(unless you insert a block and then explode it)
you could put your block reference in the selection set, or you could
explode the block and put the resultant objects in the selectionset...
what did you want to do with the items you want to put in the selection set?
you already have a reference to them when you get the block reference
itself, maybe you can do what you want without a selection set?????
maybe some more info on what you're trying to do will help
hth
Mark

"Hartmut Callies" wrote in message
news:D221ABF5D6A79C690974C8D06162D4B3@in.WebX.maYIadrTaRb...
> Hallo,
> I have a acad 2000-drawing with some blocks. In the block are a circle
> and three attributes.

Re: Why I don´t get objects in the selectionset with AddItems method?

Anonymous — Thu, 21 Aug 2003 11:38:29 GMT

Hartmut,

Perhaps a better way to approach a solution would be to ask "What are you attempting to accomplish?" There may actually be another to accomplish what you want if I knew exactly what you are looking for as a result.

Joe
--

topic Re: Why I don&#180;t get objects in the selectionset with AddItems method? in VBA Forum

Why I don´t get objects in the selectionset with AddItems method?

Re: Why I don´t get objects in the selectionset with AddItems method?

Re: Why I don´t get objects in the selectionset with AddItems method?

Re: Why I don´t get objects in the selectionset with AddItems method?

topic Re: Why I don´t get objects in the selectionset with AddItems method? in VBA Forum