---

Hallo,

ich versuch gerade einen Block im Block aktualisieren mit entmod / entupd, geht wohl nicht ! Welche anderen Möglichkeiten gibt es ?

Gruß, Jürgen

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

---

was willst du denn ändern .. die Eingenschaften der Blockreferenz im Block, oder Elemente der Blockdefinition der Blockreferenz im Block ?

------------------
  - 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 CADmium,

ich will ein Attribut ändern Attributswert und Höhe ! Ich denke mal über vla... sollte es irgendwie gehen, ich wäre dankbar für Deine Hilfe !

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

---

Hallo Jürgen,
anbei ein Beispielcode, der für die Änderung von Attributen entmake und entupd verwendet, vielleicht hilft Dir das ja ein bißchen weiter.
Wenn Du den Code startest, dann werden von allen ausgewählten Blöcken die Attribute mit dem Namen "PNR" bezüglich der Höhe und des Anschriebes geändert.

Code:

---

(defun c:test ( / att_name neuer_wert neue_hoehe ele aws n entmod_liste)
  (setq att_name "PNR"
neuer_wert "Testanschrieb"
neue_hoehe 0.75)
  (princ "\nBitte Blöcke auswählen:")
  (if(setq aws (ssget '((0 . "INSERT"))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
(setq ele (ssname aws n))
(while (and (setq ele (entnext ele))
    (/=(cdr(assoc 0 (entget ele)))"SEQEND"))
  (if (=(cdr(assoc 2(entget ele)))att_name)
    (progn
    (setq entmod_liste (entget ele))
    (setq entmod_liste (subst (cons 40 neue_hoehe)
      (assoc 40 entmod_liste)
      entmod_liste))
    (setq entmod_liste (subst (cons 1 neuer_wert)
      (assoc 1 entmod_liste)
      entmod_liste))
    (entmod entmod_liste)
    (entupd ele)
    )))
(setq n (+ n 1))))
    (alert "\nEs wurden keine Blöcke ausgewählt."))
  (princ))

---

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

Jörn

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

---

Hallo Joern,

Danke für die Antwort, ja das entmod/entupd bei der Blockbearbeitung ist mir schon klar, aber ich wollte ja die Attribute eines Blockes der sich selber in einem Block befindet bearbeiten, ich hab mir das schon programmiert, und der Programmablauf scheint auch zu stimmen, aber ACAD übernimmt diese Änderungen nicht.

Gruß, Jürgen

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

---

was genau wird denn nicht übernommen? wie sieht denn nach dem entmod die elemliste aus?
ist es denn da geändert?
wenn ja fehlt vielleicht nut ein entupd auf das übergeordnete Element?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Jürgen,
na dann habe ich Dich etwas missverstanden. In diesem Falle kannst Du einen Attributwert über die Blockdefinition ändern.
Ich habe das Beispiel ein bißchen geändert, ich habe eine Block "ABSTPKT" in einen anderen Block gepackt. Der Block "ABSTPKT" einhält das Attribut "PNR", welches geändert werden soll.

Code:

---

(defun c:test  (/ att_name neuer_wert neue_hoehe ele aws n entmod_liste
liste)
  (setq
    blockname_im_block
    "ABSTPKT"
    att_name "PNR"
    neuer_wert
    "Testanschrieb"
    neue_hoehe 0.75)

  (if (and (setq ele (car (entsel "\nBitte Block auswählen:")))
  (= (cdr (assoc 0 (entget ele))) "INSERT"))
    (progn
      (setq ele1 (tblobjname "BLOCK" (cdr (assoc 2 (entget ele)))))

      (while
(and (setq ele1 (entnext ele1))
    (/= (cdr (assoc 0 (entget ele1))) "INSERT")
    (/= (cdr (assoc 2 (entget ele1))) blockname_im_block)))
      (if ele1

(while (and (setq ele1 (entnext ele1))
    (/= (cdr (assoc 0 (entget ele1))) "SEQEND"))
  (if (= (cdr (assoc 2 (entget ele1))) att_name)
    (progn
      (setq entmod_liste (entget ele1))
      (setq entmod_liste
    (subst (cons 40 neue_hoehe)
    (assoc 40 entmod_liste)
    entmod_liste))
      (setq entmod_liste
    (subst (cons 1 neuer_wert)
    (assoc 1 entmod_liste)
    entmod_liste))
      (entmod entmod_liste)
      (entupd ele1)
      ))))
      (entupd ele)

      )

    (alert "\nEs wurden kein Block ausgewählt."))
  (princ))

---

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

Jörn

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

---

Hallo Joern, CADwiesel,

Danke für die Antworten, vor allem so früh am morgen gebt Ihr schon so komplexe Antworten, ich hab auch festgestellt das mein Lisp noch einen Fehler enthält, hab aber im Moment echt keine Zeit !

Gruß, Jürgen

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