---

Moin !

Blockattribute kann ich, wenn nicht gerade gesperrt, über Griffe verschieben.

Wenn man jetzt mit Blöcken arbeitet, die eine Vielzahl von Attributen beinhalten, dann ist es ziemlich lästig alle anzupicken.

Kennt einer von euch einen anderen Weg - oder muss ich zum LISP-Editor greifen ?

Gruß Jan :-)

------------------
jan :-)

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

---

Du arbeitest im Blockeditor oder mit refedit oder?
Dort gibt es doch ebenfalls die SAuswahl -> Attribute definieren -> alle wählen

Oder versteh ich's mal wieder falsch?

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

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

---

hallo runkelruebe,

vielen dank für deinen beitrag.

... ja, da hast du etwas falsch verstanden ! ich arbeit in der "normalen" autocad-oberfläche.

------------------
jan :-)

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

---

Hallo,

da gabs vor kurzem schon mal einen Beitrag zu dem Thema.
Ich finde ihn aber gerade nicht.

Wenn die Attribute bei allen gleichen Blöcken gleich verschoben werden sollen, dann kannst Du den Block ja neu definieren, einmal einfügen und mit attsync die Attibute aller gleichen vorhandenen Blöcke anpassen.

Ansonsten gab es ein Tool.
Aber wie gesagt, ich finds grade nicht.

Gruss Frederik

---

hallo Frederik,

haben wir uns richtig verstanden - ich möchte nur die attribute eines bestimmten blockes verschieben. damit entfällt die neudefinition.

gruß Jan :-)

------------------
jan :-)

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

---

Hallo Jan,
versuche es mal mit folgendem LISP (nur im WKS und es werden nur die GC 10's der Attribute berücksichtigt), kannst ja noch ein bißchen zurechtbasteln.

Code:

---

(defun c:attmove ( / A ATT_LISTE OBJ PKT1 PKT2)
  (if (and(setq obj (car (entsel "\nBitte Block auswählen:")))
  (=(cdr(assoc 0 (entget obj)))"INSERT")
  (setq att_liste(attmove:att obj))
  (setq pkt1 (getpoint "\nVerschieben von Punkt:"))
  (setq pkt2 (getpoint pkt1 "\nVerschieben nach Punkt:")))
    (progn
    (mapcar '(lambda(A)
      (entmod (subst (cons 10
    (mapcar '+(cdr(assoc 10 A))
    (mapcar '- pkt2 pkt1)))
      (assoc 10 A)
      A)))att_liste)
    (entupd obj))))

(defun attmove:att (obj / list_att)
  (if (and (entnext obj)(=(cdr(assoc 0(entget (entnext obj))))"ATTRIB"))
    (while (and(setq obj (entnext obj))
      (/= "SEQEND" (cdr(assoc 0(entget obj)))))
      (if (=(cdr(assoc 0(entget obj)))"ATTRIB")
(setq list_att (cons (entget obj)list_att)))))
  (if list_att
    (reverse list_att)
    nil))

---

PS: Ich bin dieses Jahr wieder auf der Intergeo in Bremen, kannst mich ja wieder besuchen

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

Jörn

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

---

@Jan
"...oder muss ich zum LISP-Editor greifen ?"

das hat vor Dir schon jemand getan ->
amove von ASMI
-> http://www.cadtutor.net/forum/archive/index.php/t-14580.html

(hab Variante 2 probiert, funktioniert, ist glaube ich, was Du suchst)

Gruß Claudio

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

---

Moin !

der Link von Claudio war genau der gesuchte !!

... und es funktioniert - und derjenige hat sogar mit der internationalen englischen befehlsform geschrieben. das ist selten !!!

gruß Jan :-)

------------------
jan :-)

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