---

Hallihallo!

Ich hab in meiner Zeichnung mehrere Blöcke, in denen mehrere Daten wie z.B. eine bestimmte Fläche genannt werden. Zum Erstellen der Blöcke habe ich im Laufe eines Lisps einfach die Fläche abgefahren, anschliessend wurde der gerundete Wert der Systemvariablen "Area" als Attributwert in den neuen Block eingefügt. Wenn ich jetzt eine Änderung des Wertes (eines einzelnen Blockes) habe, ändere ich ihn jetzt üblicherweise mit "attedit". Ich würde aber viel lieber einfach wieder die neue Fläche abfahren, anschliessend gefragt werden in welchem der bereits eingefügten Blöcke der Wert editiert werden soll, anklicken und fertig. Im Archiv konnte ich leider nichts dementsprechendes finden. Irgend eine Idee?

wölfin

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

---

Hallo Wölfin,

wie ermittelst du denn die Fläche?
Ein Bsp für 'ne Lisp könnte dann so aussehen:

Code:

---

(defun area->attrib (fl / ATT ATTD blk)
  ;;;fl = Fläche als String
  (prompt "\nAttribut wählen:")
  (setq ATT(nentsel))
  (if (and ATT
  (= "ATTRIB" (cdr(assoc 0 (setq ATTD (entget(car ATT))))))
  )
    (progn
      (setq blk (cdr(assoc 330 ATTD)))
      (entmod (subst
(cons 1 fl)
(assoc 1 ATTD)
ATTD)
      )
      (entupd blk)
      )
    )
  )
(defun c:aktArea ()
  (command "_.AREA")
  (while (/= (getvar "CMDACTIVE") 0)
    (command pause)
    )
  (area->attrib (rtos (getvar "AREA")2 2))
  )

---

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!

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