How can I get or Manipulate the BlockReference

[Zeusovsky]

How can i get the red circles in the drawing. I want to drawing the red circles in other drawing but with his properties, the circles are inside of BlockReferece I tried some codes but i nothing get.The circles not appear in the Model Space or in a SelectionSets, When i use SelectionSet i put SSetColl in Watches but appear empty. If some body have a code for help me with this issue i appreciate to much your help

 

I want only the red circles for redrawing in other drawing i need the object because i will need change the radius of some there.

 

Example:

Dim Block as AcadBlock

For each Block in ThisDrawing.Blocks

'...some code for get circles

Next

 

or

 

Dim SSetColl as AcadSelectionSets

SSetColl = ThisDrawing.SelectionSets

For Each Block in SSetColl

'...some code for get circles

Next

 

or

 

Dim SSetColl as AcadSelectionSet

SSetColl = ThisDrawing.PickfirstSelectionSet

For Each Block in SSetColl

'...some code for get circle

Next

[Zeusovsky]

How can i get the red circles in the drawing. I want to drawing the red circles in other drawing but with his properties, the circles are inside of BlockReferece I tried some codes but i nothing get.The circles not appear in the Model Space or in a SelectionSets, When i use SelectionSet i put SSetColl in Watches but appear empty. If some body have a code for help me with this issue i appreciate to much your help

 

I want only the red circles for redrawing in other drawing i need the object because i will need change the radius of some there.

 

Example:

Dim Block as AcadBlock

For each Block in ThisDrawing.Blocks

'...some code for get circles

Next

 

or

 

Dim SSetColl as AcadSelectionSets

SSetColl = ThisDrawing.SelectionSets

For Each Block in SSetColl

'...some code for get circles

Next

 

or

 

Dim SSetColl as AcadSelectionSet

SSetColl = ThisDrawing.PickfirstSelectionSet

For Each Block in SSetColl

'...some code for get circle

Next

TEST.dwg