---

Hallo

Habe ein Block mit Attributen möchte gerne ein Attribut ändern.
Kann mir jemand sagen was ich falsch mache?

Variable: a105txt1 = "Mein Text"
Attributnamen: "RAUM-NUMMER"

(defun C:TEST()
(setq OBJEKTDATEN (entget (ENTLAST)))
(while (/= (cdr (assoc 0 (entget OBJEKTDATEN))) "SEQEND")
(setq OBJEKTDATEN (entnext (cdr (assoc -1 OBJEKTDATEN))))
(if (and (= (cdr (assoc 0 (ENTGET OBJEKTDATEN))) "ATTRIB")
(= (strcase (cdr(assoc 2 (ENTGET OBJEKTDATEN))) "RAUM-NUMMER"))
)
(entmod (subst (cons 1 a105txt1)(assoc 1 OBJEKTDATEN) OBJEKTDATEN))
)
)
)

Gruss Nano

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

---

Hallo Nano,
vergleiche einfach mal Deinen Code mit dem folgenden:

Code:

---

(defun C:TEST  ()
  (setq OBJEKTDATEN (ENTLAST))
  (while
    (/=
      (cdr (assoc 0 (entget (setq OBJEKTDATEN (entnext OBJEKTDATEN)))))
      "SEQEND")
    (if
      (and (= (cdr (assoc 0 (ENTGET OBJEKTDATEN))) "ATTRIB")
    (= (strcase (cdr (assoc 2 (ENTGET OBJEKTDATEN)))) "RAUM-NUMMER"))
(progn (entmod (subst (cons 1 a105txt1)
      (assoc 1 (ENTGET OBJEKTDATEN))
      (ENTGET OBJEKTDATEN)))
      (entupd (entlast))))))

---

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

Jörn

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

---

ich habe mir dazu 2 kleine Basisroutinen erstellt.

der Aufruf schaut dann einfach so aus

(00_SchreibeAttribute (entlast) (list (cons "RAUM-NUMMER" a105txt1)))

;
; schreibt in einen Block ein Attribut
; -> ename der Elementname des INSERTS
, -> daten Attribute in form einer Assocliste
;
(defun 00_SchreibeAttribute (ename daten / edate name ename0)
  (setq ename0 ename)
  (while (and (setq ename (entnext ename))
      (setq edate (entget ename))
      (= (cdr (assoc 0 edate)) "ATTRIB")
)
        (setq name (cdr (assoc 2 edate)))
        (if (and (assoc name daten)(cdr (assoc name daten)))  (entmod (subst (cons 1 (cdr (assoc name daten))) (assoc 1 edate) edate)))
  )
  (entupd ename0)
)
;
; gibt alle Attribute eines Blockes als Assoc liste zurück
, -> ename der Elementname des INSERTS
;
(defun 00_LeseAttribute (ename / edate daten)
  (while (and (setq ename (entnext ename))
      (setq edate (entget ename))
      (= (cdr (assoc 0 edate)) "ATTRIB")
)
        (setq daten (cons (cons (cdr (assoc 2 edate)) (cdr (assoc 1 edate))) daten))
  )
  daten
)

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hallo joern bosse

Da hat sich ein Fehler eingeschlichen
(progn (entmod (subst (cons 1 "a105txt1")

------------------
Heinz 

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

---

Zitat:

---

Original erstellt von Dober Heinz:
Hallo joern bosse

Da hat sich ein Fehler eingeschlichen
(progn (entmod (subst (cons 1 "a105txt1")

---

Sehe ich aber nicht so
a105txt1 ist eine Variable (sieghe Urpsrungsposting) , die den gewünschten Text ("Mein Text") enthält !

Also ists so richtig, wies war !
(progn (entmod (subst (cons 1 a105txt1) .....

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hallo Fuchsi

Ja das Stimmt,habe ich übersehn, wenn ich es so teste ohne Variable dann bekomme ich aber einen Fehlermelung.
Befehl: test
; Fehler: Fehlerhafte DXF-Gruppe: (1)

------------------
Heinz 

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