Expert: Bill DeShawn - 2/15/2011

Question
QUESTION: I have to run a validation check on all my drawings before sumiting them to GM. The problem is that the validation report keeps showing a non standard font. (mtext font: \m+3b1bc\m+3b8b2.ttf) used 1 time(s) I've went through all the mtext but cant seem to find THE ONE, also went through all the text still cant find it. how can I find this or how do I replace all the text fonts so that they are the same.

ANSWER: The text might have no visible characters.
Try running MTTEXT.lsp on the text.
Paste the following text in NOTEPAD and save the file in the support file search path as MTTEXT.lsp.  Then load in AutoCAD with APPLOAD.  Then run by typing MTTEXT and hit the ENTER key.

Let us know what the results are.

Bill DeShawn
http://my.sterling.net/~bdeshawn


MTTEXT.LSP V.1.2
;Authored by Bill DeShawn copyright 12-04-05
;This program will erase all TEXT objects that either are empty or only have one (1) space in each of their contents.
;USE AT YOUR OWN RISK
;Bill DeShawn will not be held responsible for any damage caused by this program.
(defun c:mttext (/ sset tqty index textent)
  (command "_.undo" "_g")
  (setq sset (ssget "X"  (list (cons 0 "text"))))
  (if sset (setq tqty (sslength sset)))
  (setq index 0)
  (setq erased 0)
  (if sset
     (repeat tqty
        (setq nextent (entget (ssname sset index)))
        (if (= (cdr (assoc 1 nextent)) " ")
         (progn
         (command "_.erase" (cdar nextent) "")
         (setq erased (1+ erased))
         )
        )
        (if (= (cdr (assoc 1 nextent)) "")
         (progn
         (command "_.erase" (cdar nextent) "")
         (setq erased (1+ erased))
         )
        )
        (setq index (1+ index))
     );end repeat
  ):end if


  (setq sset2 (ssget "X"  (list (cons 0 "mtext"))))
  (if sset2 (setq tqty (sslength sset2)))
  (setq index2 0)
  (setq erased2 0)
  (if sset2
     (repeat tqty
        (setq nextent2 (entget (ssname sset2 index2)))
        (if (= (cdr (assoc 1 nextent2)) " ")
         (progn
         (command "_.erase" (cdar nextent) "")
         (setq erased2 (1+ erased2))
         )
        )
        (if (= (cdr (assoc 1 nextent2)) "")
         (progn
         (command "_.erase" (cdar nextent2) "")
         (setq erased2 (1+ erased2))
         )
        )
        (setq index2 (1+ index2))
     );end repeat
  ):end if


  (princ (strcat "\n" (itoa erased) " Empty TEXT objects deleted.  "))
  (princ (strcat "\n" (itoa erased2) " Empty MTEXT objects deleted.  "))
  (command "_.undo" "_end")
  (princ)
)


---------- FOLLOW-UP ----------

QUESTION: Thanks for your fast response for my question, I ran the lisp with no successes
I believe the font is trapped within a dimension or a Mtext set that was copied from antoher drawing over and over. When I explode all mtext and dimensions the font changes to standard text with txt as the font, and then I can wblock the whole drawing to remove the non standard font, but I lose all the associated dimensions and text.

Answer
Tom:
I see.  Consider this.  The font change code in the contents should only show up if the dimension text has been edited so that the default dimension display has been altered.  Familiarize yourself with the dimension styles you are using and see if you can figure out which dimension styles do not display the default values for that dimension style.  Those would be the ones that require a better looking over to see if there is a rogue font called out in there.

Bill DeShawn
http://my.sterling.net/~bdeshawn