Delete all Wipeouts within a Drawing including Blocks

[Tharwat]

Hey Tharwat,

 

One last thing to 'perfect' this code would be if it could return 0 if there are none removed. Not sure if that is an easy thing to add in or not..

At the moment when you try to use it and there are no wipeouts, it doesn't say anything so sometimes not sure if its actually run properly or not.

 

Codes updated to include this message report.

[cadsite]

On 11/21/2015 at 12:10 PM, Stefan BMR said:

Another method

 

(defun C:DELWP ( / *error*) (vl-load-com)
 ;;;(setq *error* (err))
 (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   (if
     (not (eq (vla-get-isxref block) :vlax-true))
     (vlax-for obj block
       (if
         (eq (vla-get-objectname obj) "AcDbWipeout")
         (vla-delete obj)
         )
       )
     )
   )
 ;;;(*error* nil)
 (princ)
 )

Just to let you know this short routine you made, was a big, big present to me! You saved at least two hours of stupid work.

Thanks a lot!!