Erase all text entities that are "numbers"

I'm looking for an AutoLISP routine that will erase all text entities that contain "numeric strings" and another routine that will erase any text entities that contain any LOWER CASE letters.

 

When you say 'contain "numeric strings"' do you mean any string that
includes numeric data (e.g., "This string has 5 words" or "Room 401") or
strings that contain numeric characters exclusively (e.g., "123" or "27")?
Same question goes for lower case.
___

contain "numeric strings" and another routine that will erase any text
entities that contain any LOWER CASE letters.

 

These will do what you ask. The first one will earse only text entities that have only spaces or number related characters. The second one will erase all text entities that have ANY lower case character, so if there is one lower case character, then that text entity will be erased. Right now they are set up to search the whole drawing, but you can change it so that it will be up to the user to select the entities. They both only work on dtext because of the mtext formatting things.


Tim

(defun c:NumErase (/ ss tent1 tstr1 slist schk1)

(vl-load-com)
(command "_.undo" "_end")
(command "_.undo" "_group")
(if (setq ss (ssget "x" '((0 . "TEXT"))))
(while (/= (sslength ss) 0)
(setq tent1 (ssname ss 0))
(setq tstr1 (cdr (assoc 1 (entget tent1))))
(setq slist (vl-string->list tstr1))
(foreach item slist
(if (<= 32 item 62)
(setq schk1 "Y")
)
)
(if schk1
(vlax-invoke-method (vlax-ename->vla-object tent1) 'Delete)
)
(ssdel tent1 ss)
(setq schk1 nil)
)
)
(command "_.undo" "_end")
(princ)
)

(defun c:ELowCase (/ ss tent1 tstr1 slist schk1)

(vl-load-com)
(command "_.undo" "_end")
(command "_.undo" "_group")
(if (setq ss (ssget "x" '((0 . "TEXT"))))
(while (/= (sslength ss) 0)
(setq tent1 (ssname ss 0))
(setq tstr1 (cdr (assoc 1 (entget tent1))))
(setq slist (vl-string->list tstr1))
(foreach item slist
(if (<= 97 item 122)
(setq schk1 "Y")
)
)
(if schk1
(vlax-invoke-method (vlax-ename->vla-object tent1) 'Delete)
)
(ssdel tent1 ss)
(setq schk1 nil)
)
)
(command "_.undo" "_end")
(princ)
)

 

Thanks so much. That's exactly what I was looking for.

 

Cool, it was easier to write then I expected.
Glad it worked.

Tim