---

Servus

Mit dem u.A. lisp und der Befehl (ATT_Update "x" "Attributename" "wert") kann man recht einfach Attribute ausfüllen.
Funktioniert auch hervorragend, nur nicht bei mehrzeiligen Attributen. Kann mir da wer helfen oder einen Tip geben?

Code:

---

(defun ATT_UPDATE ( INSERTNAME ATTRIBNAME  ATTRIBWERT / AUSWAHL INDEX OBJEKTDATEN)
  (if (= (type INSERTNAME) 'STR)
    (setq AUSWAHL (ssget "_x" (list '(0 . "INSERT")(cons 2 INSERTNAME))))
  )
  (if(or AUSWAHL
        (setq AUSWAHL (ssget "_x" '((0 . "INSERT"))))
    )
    (progn
      (setq INDEX -1)     
      (repeat (sslength AUSWAHL)
        (setq OBJEKTDATEN (entget (ssname AUSWAHL (setq INDEX (1+ INDEX)))))
        (if (assoc 66 OBJEKTDATEN)                   
          (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") 
            (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN)))))
            (if (and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB")                       
                    (=(strcase (cdr(assoc 2 OBJEKTDATEN))) ATTRIBNAME)
                )
              (progn               
                (entmod(subst(cons 1 ATTRIBWERT)
                            (assoc 1 OBJEKTDATEN)
                            OBJEKTDATEN
                      )
                )
              ) 
            )
          )           
        ) 
      )               
    )
  )

)

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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

---

Schau dir doch mal die Entitylist an, dann wird auch sofort klar was da faul ist und warum
ein (reverse      ) an entsprechende Stelle die Lösung sein kann.

(assoc 1 (reverse OBJEKTDATEN))

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

servus, hat funktioniert danke!

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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