---

Rename_Wandstilname_AECDictionary-test.dwg Rename_Wandstilname_AECDictionary.lsp.txt

Hallo Leute,
ich möchte per Lisp Stile im Autocad-Stilmanager ändern. Über (dictsearch (namedobjdict) "AEC_WALL_STYLES") und die Gruppencodes 3 und 350 bin ich bis zu den Objektnamen und den Stilnamen
vorgedrungen und habe auch bereist die neuen Stilnamen an ein (setq ...) übergeben.
Aber ich habe keine Idee, wie ich die neuen Stilnamen an das Objekt zurück schreiben.

Mein aktueller Ansatz geht bis:
Befehl: (LOAD "Rename_Wandstilname_AECDictionary.lsp")
"alter Stilname: " MW Reichsklinker dunkel variabel - nicht tragend
"neuer Stilname: " MW Reichsklinker dunkel variabel F90 - nicht tragend

(vlax-ename->vla-object first350DIC) => #<VLA-OBJECT IAecWallStyle 00000227f37fa850>
aber mit
(vlax-get-property (vlax-ename->vla-object first350DIC) "?") komme ich nicht weiter.
Am Ende würde ich gerne sowas machen wie:
(vlax-put-property (vlax-ename->vla-object first350DIC) "StyleName" "MW Reichsklinker dunkel variabel F90 - nicht tragend").
Kann mir da jemand helfen? Die DWG mit den Wandstilen und die Lisp (als Rename_Wandstilname_AECDictionary.lsp.txt) befinden sich im Anhang
Danke für Eure Anregungen
Stefan

------------------
Danke Stefan

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OK, wenn mir auf meine erste Frage keiner eine Antwort geben kann,
hier vielleicht ein anderer Ansatz:

(setq dict (dictsearch (namedobjdict) "AEC_WALL_STYLES")) =>
((-1 . <Objektname: 1e51606de40> ) (0 . "DICTIONARY") (5 . "334") (102 . "{ACAD_REACTORS") (330 . <Objektname: 1e51606e8c0> ) (102 . "}") (330 . <Objektname: 1e51606e8c0> ) (100 . "AcDbDictionary") (280 . 0) (281 . 1)
(3 . "MW Reichsklinker dunkel variabel - nicht tragend") (350 . <Objektname: 1ed197b3ab0> )
(3 . "MW Reichsklinker dunkel variabel - tragend") (350 . <Objektname: 1ed197b3bf0> )
(3 . "Standard") (350 . <Objektname: 1ed197b3ea0> ))

wie kann ich die mehrfach vorkommenden assoc 3 in der Entityliste mit (subst (cons 3.....
nacheinander ersetzen?

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,
mit MAPCAR könnte man ein mehrfaches substen der 3er-Codes vornehmen:

Code:

---

(setq dict (mapcar '(lambda(X)
                      (if (=(car X)3)
                        (cons 3 "neuer Wert")
                        X))dict))

---

Wenn nicht alle Werte gleich sein sollen könnte man auch noch eine Zählvariable verwenden (da gibt es aber bestimmt auch viele andere Varianten)

Code:

---

(setq n -1)
(setq dict (mapcar '(lambda(X)
                     
                      (if (=(car X)3)
                        (progn
                          (setq n (+ n 1))
                          (cond ((= n 0)
                                  (cons 3 "neuer Wert 1"))
                                ((= n 0)
                                  (cons 3 "neuer Wert 2"))
                                (T
                                  (cons 3 "unbekannt"))
                                )
                          )
                        X))dict))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

das Flächenstempel_Tool

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Rename_Wandstilname_AECDictionary.lsp.txt Rename_Wandstilname_AECDictionary-test.dwg

so, ich habe es geschafft.
Ich habe keine Listenelemente ausgetauscht, sondern die ganze Entityliste des Dictionary "AEC_WALL_STYLES" mit den aktualisierten GC3-Stilnamen neu erzeugt und dann mit entmod zurückgeschrieben.
Hier eine Beispiel-DWG und die Lisp. Zum Starten der Lisp einfach per DRAG&DROP in die Zeichnung ziehen.

------------------
Danke Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP