Delete all points/nodes in drawing (also in blocks)

Hi,

I'm searching for a lips or command/method to delete ALL points from a drawing (.dwg).

This is needed because our company gets a lot of drawings from other companys where in there drawing are a lot of points/nodes.

We need this to be deleted in a few cllicks instead of opening the blocks and delete them.

We currently have Acad 2016 and will switch to 2018 in a few months.

Thank you in advance!

Kind regards,

Martin

(defun c:blitzH (/ adoc)
 (vlax-for blk (vla-get-blocks
		   (setq adoc	(vla-get-ActiveDocument (vlax-get-acad-object))
		   )
		 )
  [color="blue"] (if [/color](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)
	 )
    )
[b][color="blue"] )[/color][/b]
 )
 (vla-regen aDoc acAllViewports)
)

But of course, there are other factors to consider like locked layer and some

Or if you just don't want to see them: (setvar 'pdmode 1)

Or if you just don't want to see them: (setvar 'pdmode 1)

Yes, that too.

Hi pBe.

You may have omitted one of these functions. IF, OR, AND before checking if the block definition is not an External Reference.

Hi pBe.

 

You may have omitted one of these functions. IF, OR, AND before checking if the block definition is not an External Reference.

You are right. Good catch Tharwat.

My $0.05 in my autoload

(defun c:PTY ()
(setvar 'pdmode 35) ; turn on ptype
(setvar 'pdsize 0.2)
)

(defun c:PTYY () ; turn off ptype
(setvar 'pdmode 1)
)