lisp code to delete all dim objects and dim styles.

[GeryKnee]

Hello,

I need a lisp function that deletes all dimension objects from drawing, everywharw there are and the dimension styles.

Gery.

[Anonymous]

The (command "SELECTSIMILAR") Does not work?

Júnior Nogueira.

Por favor,  Aceitar como Solução se meu post te ajudar.

Please Accept as Solution if my post helps you

[pbejse · Accepted solution]

---

@GeryKnee wrote:

 ...deletes all dimension objects ... the dimension styles.

Gery.

(defun c:demo (/ aDoc)
  (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (if (tblsearch "DIMSTYLE" "Standard")
    (command "-DIMSTYLE" "R" "Standard")
  )

  (vlax-for blk	(vla-get-blocks aDoc)
    (if
      (eq :vlax-false (vla-get-isXref blk))
       (vlax-for h blk
	 (cond
	   ((and (vlax-write-enabled-p h)
		 (vl-string-search "Dimension" (vla-get-ObjectName h))
	    )
	    (vla-delete h)
	   )

	 )
       )
    )
  )
  (repeat 4 (vla-purgeall aDoc))
)
(vl-load-com)

HTH

[john.uhden]

HTH is what I used to use to chlorinate my swimming pool.  🙂

Now I use something like 98% tri-chloro-dimescaline tablets (or something like that).

[AIR_123]

---

@pbejse wrote:

---

@GeryKneewrote:

 ...deletes all dimension objects ... the dimension styles.

Gery.

(defun c:demo (/ aDoc)
  (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (if (tblsearch "DIMSTYLE" "Standard")
    (command "-DIMSTYLE" "R" "Standard")
  )

  (vlax-for blk	(vla-get-blocks aDoc)
    (if
      (eq :vlax-false (vla-get-isXref blk))
       (vlax-for h blk
	 (cond
	   ((and (vlax-write-enabled-p h)
		 (vl-string-search "Dimension" (vla-get-ObjectName h))
	    )
	    (vla-delete h)
	   )

	 )
       )
    )
  )
  (repeat 4 (vla-purgeall aDoc))
)
(vl-load-com)

HTH

---

Great lisp! Thanks a lot!
How can it be optimized to also delete other styles, with possibility to delete by selection or style type? Thanks in advance!

[Sea-Haven]

You need to look into how to delete a dictionary entry, a simpler way is -purge look at the options.