How to know in wich space is a selected object ?

[TONELLAL]

Hello,

All is in the title...

I have to select blocks, then replace them by other blocks.

I select them by :

FilterType(0) = 0       
FilterData(0) = "Insert"

oSS.SelectOnScreen FilterType, FilterData

This is ok, I select only Block entities.

Then I replace blocks :

oBlock.delete

Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionpoint, blockname, 1#, 1#, 1#, rotateAngle)

...but this always insert the block in ModelSpace.

How can I detect in wich space is the original block, so I can insert the new blocx using Modelspace or Papersace (i) ?

[Norman_Yuan]

You can use AcadDocument.ActiveSpace to test what the current space the selection is performed, because you do selecting on screen, which only allows you select entities in current/active space (either model, or paper)

So, you can do something like:

If ThisDrawing.ActiveSpace=AcModelSpace Then

  Set BlockRefObj=ThisDrawing.ModelSpace.Insert(....)

Else

  Set BlockRefObj=ThisDrawing.PaperSpace.Insert(....)

End If

[TONELLAL]

"... because you do selecting on screen, which only allows you select entities in current/active space " :

This is exactly where my problem is : if you select All, you select in paperspace AND in modelspace...

[Alfred.NESWADBA · Accepted solution]

Hi,

each entity has an OwnerID which points to the block which holds the object, that can be the blockdefinition called modelspace, it can also be the blockdefinition of every layout existing in the drawing.

Let's see if that helps (code goes through "Point" objects in a selection set and places a new blockreference at the position of the point (and in the modelspace or layout(s) of that point(s).

Dim tEnt As AcadPoint
For Each tEnt In tSelSet
   Debug.Print ("")
   Dim tBlock As AcadBlock
   Set tBlock = ThisDrawing.ObjectIdToObject(tEnt.OwnerID)  'that is the owner (parent) of the point
   Dim tBlRef As AcadBlockReference
   Set tBlRef = tBlock.InsertBlock(tEnt.Coordinates, "NewBlockName", 1, 1, 1, 0)
Next

- alfred -

[TONELLAL]

Thanks Alfred !

I did something like this :

Space = ThisDrawing.ObjectIdToObject(tEnt.OwnerID)

If Space.Name = "*Paper_Space" Then
    Set BlockRefObj = ThisDrawing.PaperSpace.InsertBlock(insertionpoint, blockname, 1#, 1#, 1#, rotateAngle)
Else
    Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionpoint, blockname, 1#, 1#, 1#, rotateAngle)
End If

Alain

[Alfred.NESWADBA]

Hi,

>> I did something like this [...]

Sorry, that might fail. If you have more than one layouts then the "ThisDrawing.Paperspace" points to the first/active layout,

In case your blockreference is on layout3 your insertion would be done on layout1 instead of layout3

That's why I suggested do use (using your variables) Space.InsertBlock....

- alfred -

[TONELLAL]

Hi,

Ok, not understood very well first time.

I noticed the problem if I have several layouts, but strangely it seems to function...