matching text style

I have several text styles on my drawing. Is there a way to quickly switch between the styles by picking an item with the desired style? Perhaps a lisp routine?

Robert

 

Ever use the matchprop command?

between the styles by picking an item with the desired style? Perhaps a lisp
routine?

 

Try and see if you can write it first...it's quite easy...

clues:
Start with 'entsel' return data,assoc 7, then strip,car,cdr,
value,setvar,textstyle.

WHALA!!!
--

AUTODESK
Authorized Developer
www.Cadentity.com
MASi

between the styles by picking an item with the desired style? Perhaps a lisp
routine?

 

; this is an very old my routine

(defun C:STYLEAUT ( / ent ent_type ent_styl)
(while (null ent)
(setq ent (car (entsel
"\nSelezionare il testo o l'attributo con lo stile desiderato: "
)))
(setq
ent_type (cdr (assoc 0 (entget ent)))
ent_styl (cdr (assoc 7 (entget ent)))
)
(if ent
(if (and (/= ent_type "TEXT") (/= ent_type "MTEXT") (/= ent_type
"ATTDEF"))
(progn
(alert
(strcat "L'entita' non e' un testo o un attributo ma e': "
ent_type ". ")
)
(setq ent nil)
)
(progn
(prompt (strcat "\nStile di testo corrente: " ent_styl ". "))
(command "_.DTEXT" "_STYLE" ent_styl)
)
)
)
)
(princ)
)

--
________________________________________________

Marc'Antonio Alessi (TV) Italy
(strcat "NOT a " (substr (ver) 8 4) " guru.")

O.S. = XP Pro 2002 Ita - Sp.1
AutoCAD = 2004 Ita - Sp.1a
________________________________________________