Modifying Wiepouts in Blocks

We have a series of annotation symbols with wipeouts in them. We are
considering putting the wipeouts on a separate later. How can I select all
the wipeouts in a block and put them on a new layer?

 

something like
For Each obj in oBlockDef
If TypeOf obj Is AcadWipeout (or whatever the class name is) then
obj.Layer = sWipeoutLayer
End IF
Next
?
hth
Mark

 

what is the class name? is it AcadWipeout?

 

since I don't use wipeouts I don't know.
I see that it's not in their list of objects,
guess you'll have to look that up.

 

Tried that and similar arguments, but no luck. Can't seem to get to the
Wipeouts. Thanks for the suggestions, though.

 

don't know why it's not listed
you can also try
if obj.objectname = "AcDbWipeout"

 

did you try a google search?

 

Could you post a small sample drawing with the blocks already inserted?

Jeff

 

A wipeout is a raster image:

If TypeOf obj Is IAcadRasterImage then

Good Luck,

Scott

 

Thanks. This did the trick. This and a fix in one typographical error I
had made.