Mtext Spell Checker

One thing I cant stand about the AutoCAD spell checker is that annoying "SPELL CHECK COMPLETE" alert box. Well I've written a custom Lisp code that will allow a user to create MTEXT on a desired layer then run spell check once its been created. If their MTEXT is all spelled correctly it will NOT bring up the dialog box anymore. It will simply just post it in the command line window. If you have a misspelled word it will automatically open up the spell checker once you exit your Mtext typing. Then allow you to fix you're misspelled words. Keep in mind this uses a undocumented System Variable but really helps out if you do a lot of MTEXT typing.

(defun c:mt (/ cl inspt qf)
  (setq cl (getvar "clayer"))
  (setq qf (getvar "QAFLAGS"))
(command "-layer" "m" "S-ANNO-NOTE" "c" "30" "" "")
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq inspt (getpoint "Insertion Point: "))
  (initdia) (command ".mtext" inspt pause)
(setvar "clayer" cl)
(command "change" "L" "" "p" "la" "S-ANNO-NOTE" "LT" "bylayer" "")
  (setvar "QAFLAGS" 4)
  (command "spell" "l" "")
  (setvar "QAFLAGS" qf)
  (princ))

Here is the link to download the Lisp code:Download mt_lisp_code.LSP To run type in MT at the command line.

Comments

[JOHN]

Mtext Spell Checker
Can you do this for qleader?