---

Hallo zusammen,
dies ist meine erste Frage in diesem Forum.
Ich bin auf der Suche nach einem Lisp-Programm was Attribute von Blöcken hochzählen kann. Im Moment habe ich sehr viel
mit Elektrounterverteilungen zu tun und dabei fallen eine Menge
Sicherungen mit Stromkreisnummern an. Diese einzel mit Hand zu-
editieren ist sehr Zeitaufwendig und mühsam.
Gibt es vielleicht jemanden der ein Lisp-Programm hat oder kennt
das mir diese Arbeit abnehmen kann.
Besten Dank im Vorraus

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

---

Erst mal willkommen im Forum!

Hab das vor Jahren auch mal benötigt:
Einmal zum Hochzählen, einmal runter...

(DEFUN C:ATT+  ()
  (SETQ wert (GETINT "Startwert: "))
  (SETQ attribut T)
  (WHILE attribut
    (SETQ attribut (NENTSEL))
    (IF attribut
      (PROGN
(SETQ text (ITOA wert))
(COMMAND "_-attedit" "_Y" "*" "*" "*" attribut "_value" "_replace" text "_Next")
(SETQ wert (1+ wert))))
    )
  )

(DEFUN C:ATT-  ()
  (SETQ wert (GETINT "Startwert: "))
  (SETQ attribut T)
  (WHILE attribut
    (SETQ attribut (NENTSEL))
    (IF attribut
      (PROGN
(SETQ text (ITOA wert))
(COMMAND "_-attedit" "_Y" "*" "*" "*" attribut "_value" "_replace" text "_Next")
(SETQ wert (1- wert))))
    )
  )

------------------
Gruß aus Wien
Bernhard

[Diese Nachricht wurde von Bernhard GSD am 24. Aug. 2005 editiert.]

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

---

Hallo Bernhard,
erst mal vielen Dank für die Lisp-Programme.
Sie funktionieren einwandfrei.
Damit hast Du mir sehr geholfen.
Es grüßt Dich aus den heute sonnigen Roßbach v.d.H.

Guido

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

---

Hallo Bernhard GSD,

ist es möglich, irgendwo in diesem schnönen script einen immer wiederkehrenden text einzufügen. Zum Beispiel soll immer "Station" hinter der Zahl stehen. Ich stehe erst am Anfang meiner Scriptkenntnisse 

Danke für Hilfe.

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

---

Wenn Du dich an den Tip von cadffm in Deinem ursprünglichen Eintrag hälts(Suche nach hochzählen), wirst Du auf einen Beitrag von RoSiNiNo(Blocknumm) stoßen, wo Du das Attribut sowohl mit frei wählbarem Präfix, als auch Suffix versehen kannst. Ein bißchen Arbeit zum Suchen und Kennenlernen dieser Routine wirst Du Dir machen müssen, aber dann hast Du wirklich alles, was Du brauchst

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

---

Das ist LISP !

(SETQ text (ITOA wert))
durch zb.
(SETQ text (strcat"Station"(ITOA wert)))
ersetzen

"strcat" kannst du im Menü Hilfe/Zusätzliche Ressourcen/Entwicklerhilfe  nachlesen.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hallo cad4fun,

Um alle Funktionen in BLOCKNUMM nutztn zu können benötigt man "AcadX.arx". Leider gibt es diese arx nicht mehr....

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

---

Ich habe bei mir die AcadX.arx jetzt vergeblich gesucht und bei mir arbeitet die von Dir gewünschte Funktion von Blocknumm auch ohne dieser ARX-Datei einwandfrei.Probier es doch mal aus.Lade die Blocknumm.zip von diesem beitrag: http://ww3.cad.de/foren/ubb/Forum54/HTML/002434.shtml#000000

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

---

habe es versucht.
leider ohne erfolg.
habe die acaddoc.lsp und die BlockNumm.dvb über appload geladen.
wenn ich dann den befehl ausführe kommt immer
"Unbekannter Befehl "BLOCKNUMM"."

Wo kann mein Fehler liegen?

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

---

also .. die acaddoc.lsp wird automatisch in jede Zeichnung geladen, die brauch man nicht mit _appload nochmals anfassen und was zu VBA-Projekten findest du hier

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

---

Zitat:

---

Original erstellt von Alex-77:

wenn ich dann den befehl ausführe

---

Du musst zum Ausführen der Routine "vbarun" eingeben und dann lässt Du diese Routine
..........\BlockNumm.dvb!Koordinaten.BlockNumeriert
ausführen

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

---

ja, so funktioniert es (zumindest teilweise)
wenn ich den massstab einstellen will, stürzt mein ACAD immer ab 

danke für deine hilfe  )

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