(defun c:WIPEDEL ( / doc)
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))

  (defun del-wipe-safe (obj)
    (if obj
      (progn
        ;; WIPEOUT ise sil (hata yakala)
        (if (= (vla-get-ObjectName obj) "AcDbWipeout")
          (vl-catch-all-apply 'vla-delete (list obj))
        )
        ;; BlockReference ise block tanımına gir
        (if (= (vla-get-ObjectName obj) "AcDbBlockReference")
          (vlax-for e (vla-item (vla-get-Blocks doc) (vla-get-Name obj))
            (del-wipe-safe e)
          )
        )
      )
    )
  )

  ;; Model Space
  (vlax-for o (vla-get-ModelSpace doc)
    (del-wipe-safe o)
  )

  ;; Paper Space
  (vlax-for o (vla-get-PaperSpace doc)
    (del-wipe-safe o)
  )

  (princ)
)