Change text style of a AutoCAD drawing. Lisp routine will be update the AutoCAD drawing to a specified Style for all text elements in a drawing.This lisp routine will be update the AutoCAD drawing to a specified Style for all text elements in a drawing

[Guest]

This lisp routine will be update the AutoCAD drawing to a specified Style (NAMEOFSTYLE) for all text elements in a drawing:

 

(defun C:CHANGESTYLE-TEXT-OBJECTS (/ entities len count ent ent_data ent_name new_style_name)
 
(command "STYLE" "NAMEOFSTYLE" "" "" "" "" "" "")
(setq entities (ssget "X" '((0 . "*TEXT")))
      len      (sslength entities)
      count 0
);setq 
 
(while (< count len)
       (setq ent      (ssname entities count) 
             ent_data (entget ent)
             ent_name (cdr (assoc 7 ent_data))
       );setq
 
(setq new_style_name (cons 7 "NAMEOFSTYLE"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
 
(setq count (+ count 1))
);while
 
;;;runs same routine again, picking up Mtext this time.
 
);defun
               

 

Edited September 19, 2022 by Remco Koedoot

[BIGAL]

Hmm open Properties 1st

 

(defun c:zzz ( / a) 
(setq a (ssget "X" '((0 . "*TEXT"))))
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_.Select P  ")
)

 

Can then change lots of stuff. Yes may need the make style 1st.

[SLW210]

Please correct your post to include the code in code tags.

 

I have moved your thread to the AutoLISP, Visual LISP & DCL Forum. Please post in the correct forum.