Wipeout help

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

I changed the code you were talking about to put it on the layer (insert your layer name where indicated)

(defun c:test ( / acdoc )
 ;; Lee Mac 20.06.11
 ;; Stolen and murdered by: CB 06/21/15
 (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
 (vlax-for block (vla-get-blocks acdoc)
   (if
     (and
(eq :vlax-false (vla-get-islayout block))
(eq :vlax-false (vla-get-isxref   block))
)
     (vlax-for obj block
(if (eq "AcDbWipeout" (vla-get-objectname obj))
  (vla-put-layer obj "PUT YOUR LAYER NAME HERE")
  )
)      
     )
   )
 (vla-regen acdoc acallviewports)
 (princ)
 )


(vl-load-com) (princ)

Thanks Commado, will give it a shot and let you know if it works! Your the best!