Wipeouts In Blocks and XCLIPS

Guys,

I need some help with XREFs and wipeouts, when using an xclip and the referenced drawing has a wipeout in the drawing the zooming does some odd things. We have set our INDEXCTL to 3 and we still get inconsistent zooming.

I believe what the issue is, we have wipeouts on layers they should not be on. I found a lisp from Lee to delete wipeouts with-in blocks and the zooming issues are rectified. What I would like to do is use LISP to select all the wipeouts in these said blocks and change them to our layer for wipeouts, "WIPEOUT" so we are able to freeze and thaw the layer in the parent drawings.

Does anyone have a lisp like this or could help with the coding? I have a basic knowledge if coding and am basically just getting started in the world of LISP.

Thanks,

Dustin

If yourwipe outs are say in model space

; a simple example of using SSGET
(setq ss (ssget (list (cons 0 "WIPEOUT")))) ; window pick all of drawing this will make a selection set 
(setq num (sslength ss)) ; how many wipe outs
(setq Y num)
(repeat num
(setq obj (ssname ss (setq y (- y 1)))) ; choose last item and work through selection set
; each ss item will appear now
; do your layer change here either VL or entmod
)