---

Hallo

Ich möchte einem Mtext einen Hintergrund zuweisen
mittels lisp. Ich komm da aber nicht weiter.
Kann mir bitte jemand helfen.
bitte dazuschreiben was ich flasch gemacht habe.

das ist bis jetzt mein code:

Code:

---

(defun c:mth ( / data )

(while
  (setq data (entget(car(entsel "\nTEXT wählen:"))))
    (entmod
        (subst
'(90 . 3)
'(63 . 1)
'(45 . 1.5)
'(441 . 0)
          (assoc 1 data)data)
)
  )
)

---

Danke

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

---

ich schau mir jetzt nicht die Gruppencodes vom MTEXT an, was eine Hintergrund ist, aber Deine subst Zeile ist schon mal falsch

Zitat:

---

(subst '(90 . 3) '(63 . 1) '(45 . 1.5) '(441 . 0) (assoc 1 data) data)

---

aus der Hilfe:

Zitat:

---

Searches a list for an old item and returns a copy of the list with a new item substituted in place of every occurrence of the old item

(subst newitem olditem lst)

---

Du jedoch übergibst dem subst gleich 6 Argumente 

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

---

guck dir mal den Thread an  .. oder das Autocadmagazin 05/09

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

OK, weil mir schnell mal fad war 

Code:

---

(defun c:mth ( / Color en ed )
  (setq Color 1) ; Hintergrund Farbe
  (while (and (setq en (car (entsel "\nTEXT wählen:")))
              (setq ed (entget en))
      (= (cdr (assoc 0 ed)) "MTEXT")
)
        (if (assoc 90 ed)
    (setq ed (subst (cons 90 1) (assoc 90 ed) ed))
    (setq ed (append ed (list (cons 90 1))))
)
        (if (assoc 63 ed)
    (setq ed (subst (cons 63 color) (assoc 63 ed) ed))
    (setq ed (append ed (list (cons 63 color))))
)
        (entmod ed)
  )
)

---

der Gruppen code 90 bestimmt, ob eine Hintergrundfüllung vorhanden ist, oder nicht
und der gruppencode 63 bestimmt die farbe des Hintergrundes.

Da dies jedoch optionale Gruppencodes sind, muss vor dem SUBSTen abgefragt werden, ob dieser überhaupt vorhanden ist. Ansonsten muss er nämlich mit APPEND angehängt werden.

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

---

Danke

hab wieder was gelernt.

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

---

Zitat:

---

Original erstellt von fuchsi:
Da dies jedoch optionale Gruppencodes sind, muss vor dem SUBSTen abgefragt werden, ob dieser überhaupt vorhanden ist. Ansonsten muss er nämlich mit APPEND angehängt werden.

---

Weil das bei der Bearbeitung von Gruppencodes ja öfter vorkommt, empfiehlt es sich, eine spezielle Version von SUBST zu schreiben, die dann, wenn der Code schon vorhanden ist, den vorhandenen mittels SUBST durch den neuen ersetzt, und die andernfalls den neuen einfach mit CONS hinten dran setzt.

Code:

---

(defun my-subst (newpair inlist / temp)
  (cond
    ((not inlist)
    (list newpair) ; inlist existiert nicht
    )
    ((setq temp (assoc (car newpair) inlist))
    (subst newpair temp inlist) ; existiert schon, ersetzen
    )
    ('T
    (reverse (cons newpair (reverse inlist))) ; hinten dran
    )
  )
)

---

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

---

naja ... immer nur einfach hintenranhängen klappt auch nicht immer ...  manchmal kommt es auch auf die Position des GC in der GC-Liste an .. aber das nur am Rande ... die Idee, für sowas ne extra Funktion zu machen ist schon richtig

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo,
das mit der korrekten Position hatten wir doch schon mal: http://ww3.cad.de/foren/ubb/Forum145/HTML/002776.shtml#000005

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

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

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