---

blockattribut.zip

schönen nachmittag!

ich habe da eine frage. ich habe blöcke ohne attributinhalte. möchte aber den wert der als attribut neben dem block steht in den block einfügen. ist das möglich? es handelt so von 600 blöcken ohne werte. ich hänge ein beispiel an....
danke, raquel

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

---

noch was vergessen,
ist es vielleicht auch möglich, wenn kein attribut sondern ein einzeiliger text (mit dem wert) danebensteht? irgendwie müsste es doch gehen...

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

---

Hi,

was ist damit ? http://ww3.cad.de/foren/ubb/Forum54/HTML/009879.shtml (bzw dem Link darin ?)

------------------
Grüsse

Thomas

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

---

----------------------------
Udo Hübner schrieb:
Dann ist das mit einer kleiner Lisp-Rotine kein großen Problem
Nachaeinander alle Kreise in einer Schleife abarbeiten und dann immer den nächsten (Texteinfügepunkt oder textmittelpunkt) suchen.
----------------------------
vielleicht wäre ja dieses hier das richtige, aber keine ahnung wie...

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

---

Hallo Raquel,
ich hatte noch sowas ähnliches liegen. Ich habe den Wert für die halbe Breite des Suchfenster auf 2.50 m gesetzt, daß mußt Du vielleicht anpassen. Wenn mehrere Attribute gefunden werden, dann wirst Du aufgefordert ein Attrbut zu picken.
Also, probier es aus:

(defun c:att_to_att ( / aws aws_att n l temp)
  (setq l 2.50);;;der Wert ist die halbe Breite oder Höhe des Suchfenster für den Text
  (princ "\nDie Blöcke müssen \"kr\" heißen und auf dem LAyer \"kr\" liegen.")
  (princ "\nDie Attribute müssen auf dem Layer 0 liegen")
  (princ "\n")
  (setq aws (ssget "X"(list '(0 . "INSERT")'(2 . "kr")'(8 . "kr"))))
  (if aws
    (progn
      (setq n 0)
        (repeat (sslength aws)
  (command "_.zoom" "_w"(list(-(car(cdr(assoc 10 (entget(ssname aws n)))))l)
        (-(cadr(cdr(assoc 10 (entget(ssname aws n)))))l))
  (list(+(car(cdr(assoc 10 (entget(ssname aws n)))))l)
  (+(cadr(cdr(assoc 10 (entget(ssname aws n)))))l)))
 
  (setq aws_att (ssget "_w" (list(-(car(cdr(assoc 10 (entget(ssname aws n)))))l)
        (-(cadr(cdr(assoc 10 (entget(ssname aws n)))))l))
  (list(+(car(cdr(assoc 10 (entget(ssname aws n)))))l)
  (+(cadr(cdr(assoc 10 (entget(ssname aws n)))))l))
(list '(0 . "ATTDEF")'(8 . "0"))))
  (if aws_att
    (if (>(sslength aws_att)1)
      (progn
(setq aws_att nil)
(redraw (ssname aws  n) 3)
(if (setq temp (entsel "\Mehrere Attribute gefunden, bitte den zugehörigen anpicken:"))
  (setq aws_att (ssadd (car temp))))))
    (progn
    (redraw (ssname aws  n) 3) 
    (if (setq temp (entsel "\Kein Attribut gefunden, bitte den zugehörigen anpicken:"))
  (setq aws_att (ssadd (car temp))))))
    (if aws_att
      (progn
      (entmod(subst (cons 1 (cdr(assoc 2 (entget (ssname aws_att 0)))))
    (assoc 1(entget(JB_entnext (ssname aws n)1)))
    (entget (JB_entnext (ssname aws n)1))))
      (entupd (ssname aws n)))
    )
  (setq n (+ n 1)))
      )
    (alert "Es waren keine Blöcke \"kr\" auf dem Layer \"kr\" vorhanden."))
  )
(defun JB_entnext (element n1 / )
  (repeat n1
    (setq element (entnext element))))

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

Jörn

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