lisp for spell check when closing DWGs in 2006

[Henry]

Can anyone help me out with a Lisp routine on spell checking dwgs when closing.

[Cad64]

Give this a try:


(defun c:spclose (/ pickvar ent)
(setq pickvar (getvar "pickfirst"))
(setvar "pickfirst" 1)
(princ "\nSpell Checking, Please Wait . . . ")
(setq ent (ssget "X" '((0 . "MTEXT,TEXT"))))
(command "_.spell" ent "")
(setvar "pickfirst" pickvar)
(command "_.save" "" "Y" "_.close" "Y")
(princ)
)