---

Hallo,

ich will einen vorhandenen Textstil einer XRef mittels Lisp bearbeiten. Mit entmod bekomme ich dies aber nicht hin.
Meine Funktion scheut wie folgt aus:

(defun aqw ()
(setq OBJEKTDATEN (entget(tblobjname "STYLE" "Grundriss|ACHSEN_TEXT")))
(entmod (list  (assoc -1 OBJEKTDATEN)
                    '(0 . "STYLE")
                    (assoc 330 OBJEKTDATEN)
                    (assoc 5  OBJEKTDATEN)
                    '(100 . "AcDbSymbolTableRecord")
                    '(100 . "AcDbTextStyleTableRecord")
                    (cons 2  " Grundriss|ACHSEN_TEXT")
                    '(70 . 0)
                    (cons 40 0)
    '(41 . 0.8)
                    '(50 . 0.0)
                    '(71 . 0)
                    '(42 . 2.2)
                    (cons 3  "GENPRESE")
                    '(4 . "")
            )
)
) 

Hat vielleicht einer eine Idee wie es klappen könnte?

Danke, Jonny

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

---

Danke, hat sich erledigt:

(assoc 70  OBJEKTDATEN)

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