| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PLM und ERP fest zusammengeschweißt - IDEAL-Werk , ein Anwenderbericht
|
Autor
|
Thema: Attributsaufzählung von Blöcken (980 mal gelesen)
|
revox2 Mitglied CAD-Konstrukteur
Beiträge: 18 Registriert: 24.08.2005 HPxw4400 MS XP ACAD 2007 mit Elektroapplikation (kein Markenprodukt, sondern besser)
|
erstellt am: 24. Aug. 2005 12:37 <-- editieren / zitieren --> Unities abgeben:
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 |
Bernhard GSD Mitglied
Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 24. Aug. 2005 12:44 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
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 |
revox2 Mitglied CAD-Konstrukteur
Beiträge: 18 Registriert: 24.08.2005 HPxw4400 MS XP ACAD 2007 mit Elektroapplikation (kein Markenprodukt, sondern besser)
|
erstellt am: 24. Aug. 2005 13:14 <-- editieren / zitieren --> Unities abgeben:
|
Alex-77 Mitglied Wasserbauingenieur
Beiträge: 12 Registriert: 02.04.2007
|
erstellt am: 03. Apr. 2007 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
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 |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM ATI FirePro V (FireGL V) Graphics Adapter Treiberversion: 15.201.1151.1008
|
erstellt am: 03. Apr. 2007 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 03. Apr. 2007 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
|
Alex-77 Mitglied Wasserbauingenieur
Beiträge: 12 Registriert: 02.04.2007
|
erstellt am: 03. Apr. 2007 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM ATI FirePro V (FireGL V) Graphics Adapter Treiberversion: 15.201.1151.1008
|
erstellt am: 03. Apr. 2007 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
|
Alex-77 Mitglied Wasserbauingenieur
Beiträge: 12 Registriert: 02.04.2007
|
erstellt am: 03. Apr. 2007 12:42 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 03. Apr. 2007 12:46 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
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 |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM ATI FirePro V (FireGL V) Graphics Adapter Treiberversion: 15.201.1151.1008
|
erstellt am: 03. Apr. 2007 13:28 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
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 |
Alex-77 Mitglied Wasserbauingenieur
Beiträge: 12 Registriert: 02.04.2007
|
erstellt am: 03. Apr. 2007 16:08 <-- editieren / zitieren --> Unities abgeben: Nur für revox2
|