Vytisknout stránku | Zavřít okno

atributy

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=4079
Datum vytištění: 22.čer.2026 v 01:19


Téma: atributy
Odeslal: Ferdinand
Předmět: atributy
Datum odeslání: 27.úno.2007 v 15:27
...Přesouvám se teda s tím sem...
Původně odeslal(a) Ferdinand Ferdinand napsal(a):

Ví někdo, jak lze měnit styl písma atributu samostatného (tj. když není součástí bloku)?

Původně odeslal(a) Ferdinand Ferdinand napsal(a):

...(průběh funkcí change...
Záměr (v lispu):
aby atributy měly namísto Text Style1  Text Style2
ev. aby se dalo změnit např. Width Factor = 0.8  na  Width Factor = 1.0 anebo třeba Justification = Left  na  Justification = Right apod.

Původně odeslal(a) Vladimír Michl Vladimír Michl napsal(a):

Když nebudete mačkat to "P" v CHANGE, tak vám to bude fungovat.

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 Geek - 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"))))

-------------
-FerTh-


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 27.úno.2007 v 15:38
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).

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: pavelstyl
Datum odeslání: 27.úno.2007 v 15:44
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

Odeslal: Ferdinand
Datum odeslání: 28.úno.2007 v 09:04
Pavle, děkuji, dělá to přesně to, co jsem si představoval!Thumbs%20Up Tak jsem se dozvěděl zas něco (pro mne) nového...

-------------
-FerTh-


Vytisknout stránku | Zavřít okno