---

Ich habe in einer Zeichnung viele Blöcke, die ein Attribut "Datenblatt" enthalten. Jetzt soll dem Wert aller Attribute, also der Datenblattnummer, noch eine Null vorangestellt werden. Lässt sich das irgendwie global ändern?

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

---

das würde sich gut mit einem Programm durchführen lassen, man könnte da sicherlich ertwas basteln, das alle Blöcke nach diesem Attribut durchsucht und den Wert um den gewünschtenstring ergänzt.

------------------
Gruß
CADwiesel

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

---

Hallo TM13,

ich weiß nun nicht wieviele Blöcke du hast, und ob das betroffene Attribut immer den gleichen Wert hat. Wenn überall also das gleiche drinnensteht, dann kannst du dass auch mit Attribute editieren machen. Befehl: _attedit

Ansonsten ist's so wie CADwiesel schreibt.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?

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

---

Ich glaube das ganze geht mit suchen auch recht gut.
Heinz

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

---

Hallo tm13,

da war doch mal...

ich hab was bei mir gefunden, mit dem Tool habe ich bestimmte Textstellen in Attributen gesucht und durch andere getauscht - global versteht sich.

Kannste mal ausprobieren

Hier der Code:

(defun c:mae (/)
  (setq chgabpos  (getint  "Geben Sie die Startposition an:    ")
textalt (getstring "Geben Sie die alte Zeichenfolge an: ")
textneu (getstring "Geben Sie die neue Zeichenfolge an: ")
attname (getstring "Geben Sie den Attributnamen an:    "))
  (setq chganzpos (strlen textalt)
entity (entnext))
  (while (/= entity nil)
    (setq obj (entget entity))
    (setq objtype (cdr ( assoc 0 obj)))
    (if (= objtype "ATTRIB")
      (progn
(setq objname (cdr (assoc 2 obj)))
(if (= objname attname)
  (progn
    (setq atttext (cdr (assoc 1 obj)))
    (setq testtext (substr atttext chgabpos chganzpos))
    (if (= testtext textalt)
      (progn
(if (> chgabpos 1)
  (progn
    (setq hilfe1 (- chgabpos 1))
    (setq hilfe2 (+ chgabpos chganzpos))
    (setq vorsilbe (substr atttext 1 hilfe1)
  nachsilbe (substr atttext hilfe2))
    (setq neutext (strcat vorsilbe textneu nachsilbe)))
  (progn
    (setq hilfe1 (+ chganzpos 1))
    (setq nachsilbe (substr atttext hilfe1))
    (setq neutext (strcat textneu nachsilbe))))
(setq obj (subst (cons 1 neutext) (assoc 1 obj) obj))
(entmod obj))
      )
    ))
))
    (setq entity (entnext entity))
    )
  )

Den Code einfach in eine Textdatei kopieren, umbenennen auf .LSP und in Acad laden. Aufruf über MAE.

Gruss

Marco

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

---

Hi

Müsste doch ohne zusatz Lsp funken.

Mit "Attin" u. "Attout". und ein bisschen Excel dürfte das schon zu bewerkställigen sein

------------------
mfG Bernd P.

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

---

das Programm ist m.E nichts anderes als das, was -attedit macht. aber man kann keine Texte an vorhandene anknüpfen (verketten), nur ganz ersetzen.

Aber grundsätzlich ist das schon der richtige weg.

------------------
Gruß
CADwiesel

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

---

Vielen Dank erstmal, nur hat es noch nicht richtig funktioniert. Die Routine läuft, aber die Werte sind nicht geändert. Am Anfang werde ich zur Eingabe eines Startpunktes aufgefordert. Was muss ich da angeben?

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

---

Attblk.zip

Ich hab's gefunden. Die entsprechende Datei ist im Anhang. Funktioniert super.

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

---

@ CADwiesel / tm13:

Das Prog macht ein wenig mehr: Es durchsucht Attribute ab einer Position (-> erste Eingabe) nach einem bestimmten Text und tauscht diesen gegen den neuen aus. Danach muss man die ganze Zeichnung regenerieren um die Änderungen zu sehen. Hab das Prog genutzt um MSR-Nummern von Lüftungskomponenten umzuschreiben. Z.B. aus 013_RLT_01 mach 013_MSR_01. Eine Besonderheit - Nachteil oder Vorteil ist Ansichtssache - daran, man muss wissen, wie das Attribut heisst das man ändern will.

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