How to Change All text style Backward Off in Autocad?

Here is a simple lisp that change all text style backwards off.

It seems simple but may be handy specially if you want to explode text.

;;; turn all text style backward off;;; Type B0 (B&Zero) to run
(defun C:B0 (/ ad style oldcmdecho)  (vl-load-com)  (setq ad (vla-get-ActiveDocument (vlax-get-Acad-Object)))  (vlax-for style (vla-get-TextStyles ad)       (progn (vla-put-textgenerationflag style 0)       )    ))

Go Back