Topic: Blank text remover..

[Andrea]

Hi all..

I'm looking for a routine to remove any blank TEXT and MTEXT in a drawing..

any suggestions ?



 

[Mark]

Something along these lines perhaps.

Code: [Select]


(setq ss (ssget "x" '((0 . "TEXT")(1 . " "))))


[t-bear]

Andrea....
I believe there are a number of these here.  Do a search for blank text and/or null text......that should find them.

[VerticalMojo]

T-bear...

I tried to do a search and couldn’t find any..... Maybe a different keyword?

[hudster]

try this

Code: [Select]

; Delete Null Objects
;; DelNul.lsp    
;; Deletes nul lines of Text, Mtext & Blocks.
;; Modified by JL Thomas 12/02/97  

(Defun C:DelNul ( / TXT BLK NB NAMES)
  (if(setq TXT (ssget "X" '((-4 . "<and")(-4 . "<or")
                           (0 . "MTEXT")(0 . "TEXT")
                           (-4 . "or>")(-4 . "<or")
                           (1 . "")(1 . " ")(1 . "  ")(1 . "   ")
                           (1 . "{}")(1 . "{ }")(1 . "{  }")(1 . "{   }")
                           (1 . "{}\P")(1 . "{ }\P")(1 . "{  }\P")(1 . "{   }\P")
                           (-4 . "or>")(-4 . "and>"))))
  (progn
    (command"_erase"TXT"")
    (princ(strcat"\n  "(itoa(sslength TXT))" nul text strings deleted. "))
   )
  (princ"\n  No nul text strings found. "))

  (setq BLK(tblnext"BLOCK"T)NAMES nil)
  (while BLK
    (if(=(cdr(assoc 0(entget(cdr(assoc -2 BLK)))))"ENDBLK")
    (progn
      (if(setq NB(ssget "X" (list(assoc 2 BLK))))
      (command"_erase"NB"")
       )
    (setq NAMES(cons(cdr(assoc 2 BLK))NAMES))
     )
   )
  (setq BLK(tblnext"BLOCK"))
  )
  (if NAMES
    (progn(textscr)
    (princ"\n  Nul blocks found and need purging: ")
    (foreach X NAMES(princ"\n    ")(princ X))
   )
  (princ"\n  No nul blocks found. ")
  )
(princ)
)
(c:DelNul)

[MikePerry]

I tried to do a search and couldn’t find any..... Maybe a different keyword?

Hi

Can someone post a copy of delnul.lsp

Have a good one, Mike

[VerticalMojo]

Mike your the search master  

[Andrea]

Hey !!  this work perfectly..

thanks all.

[MikePerry]

Mike your the search master  

Hi "VerticalMojo"

Thanks <- your kind words have embarrassed me.

I used -

Empty AND Text

as my search criteria.

Cheers, Mike

[VerticalMojo]

Mike,

More like   myself. I should have thought of those key words!
<--- As Homer Simpson would say...... DOH!