---

Hallo zusammen,

manche Beiträge befassen sich mit Attribute.

Aber wie kann man mit einem LISP-Programm in einem bekannten Block mit attributbehafteten Texten diese ändern ?

In meinem konkreten Fall habe ich in diesem Block 2 Textelemente, deren Text ich eben über die Attribute ändern möchte.

DANKE
+
MfG
Peter N.

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

---

Hallo Peter,

hilft dir das folgende kleine LISP-Programm ?

; Ändern eines Attributwertes in einem Block
; Alle erforderlichen Angaben werden beim Aufruf übergeben
; z.B. (Att_aendern "Mein_Block" "TXT1" "Hier neuer Text")
; Ist der Block mehrmals vorhanden, wird die Änderung bei ALLEN Blöcken vorgenommen

(defun Att_aendern (Block_Name Attribut_Name Neuer_Wert / Block_Set Attribut Alter_Wert i)

  (SETVAR "CMDECHO" 0)
  (setq Block_Set (ssget "X" (list (cons 0 "INSERT") (cons 2 Block_Name)))
i 0)
  (Repeat (sslength Block_Set)
    (setq Attribut (entnext (ssname Block_Set i)))
    (While (AND Attribut (/= (cdr (assoc 2 (entget Attribut))) Attribut_Name))
      (setq Attribut (entnext Attribut))
    ) ; while
    (if Attribut
    (progn
      (setq Alter_Wert (cdr (assoc 1 (entget Attribut))))
      (entmod (subst (cons 1 Neuer_Wert) (cons 1 Alter_Wert) (entget Attribut)))
      (entupd Attribut)
    ))
    (setq i (1+ i))
  ) ; Repeat
  (princ)
) ; defun

Schönes Wochenende
Helmut

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

---

Ich habe mir das Programm angesehen, und muß sagen, dies gefällt mir - DANKE ! Es hilft weiter !!!!

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