;; tum pointleri siler (tabakasi kapali yada block icindekilerde  dahil)
;;
;;    cadtutor       13205-pbe
(defun c:blitzH (/ adoc)
(vlax-for blk (vla-get-blocks
   (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
   )
)
   (if (eq :vlax-false (vla-get-isXref blk))
    (vlax-for h blk
(if
   (and (vlax-write-enabled-p h)
   (eq (vla-get-ObjectName h) "AcDbPoint")
   )
    (vla-delete h)
)
    )
)
)
(vla-regen aDoc acAllViewports)
)