...Přesouvám se teda s tím sem...
[QUOTE=Ferdinand]Ví někdo, jak lze měnit styl písma atributu samostatného (tj. když není součástí bloku)?
[/QUOTE]
[QUOTE=Ferdinand]...(průběh funkcí change...Záměr (v lispu):aby atributy měly namísto Text Style1  Text Style2ev. aby se dalo změnit např. Width Factor = 0.8  na  Width Factor = 1.0 anebo třeba Justification = Left  na  Justification = Right apod.
[/QUOTE][QUOTE=Vladimír Michl]Když nebudete mačkat to "P" v CHANGE, tak vám to bude fungovat.[/QUOTE]Je to tak - funguje v případě 1 vybraného atributu. Jde o to, že bych to chtěl provést v lispu pro množinu vybraných atributů najednou - na to asi nebude tento příkaz stačit, že? Není předem známo, jestli jich bude 3, 5 anebo 10...-až se provede vyfiltrování(setq QS7 (ssget "X" (list (cons 0 "attdef"))))

U více atributů je postup stejný - prostě se příkaz zopakuje. Nicméně pro takovéto operace je asi zbytečné chodit přes (command) - lépe a rychleji změnu provedete přímo ve výkresové databázi přes (entmod).

A nestačilo by toto?
 
(setq novy_styl "style1")(setq QS7 (ssget (list (cons 0 "ATTDEF")))) (setq i 0)(while (< i (sslength QS7)) (setq entita (entget (ssname QS7 i))) (setq entita (subst (cons 7 novy_styl) (assoc 7 entita) entita)) (entmod entita)  (setq i (1+ i)))(princ)
 
Pavel Štyl

Pavle, děkuji, dělá to přesně to, co jsem si představoval! Tak jsem se dozvěděl zas něco (pro mne) nového...