| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Makro erstellen? Geht das so wie in Excel?? (1017 mal gelesen)
|
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 29. Jun. 2004 15:32 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, besteht in ACAD(2000) die Möglichkeit, Makros aufzuzeichnen, so wie ich das aus Excel kenne: also Makro starten, diverse Befehle ausführen, Makro stoppen??? Und das dann in anderen Plänen ablaufen lassen. Ich hab nämlich ca 700 Pläne, in denen ich immer wieder die Layerfarben ändern muß, etc, und dann als PDF drucken muß. Es ist in jedem Plan immer derselbe Vorgang. Falls das mit dem Makro nicht so einfach geht, wie ich es oben gechrieben hab und falls mir jemand ein Makro stricken könnte, hier die Befehle, die ich in jedem Plan ausführen muß: 1. Layerfarben aller Layer, die mit "AC-1" bis "AC-8" anfangen, auf schwarz setzen - es sind allerdings in manchen Plänen z.B. nur "AC-1" bis "AC-5" Layer da (dieser Schritt ist aber nicht so schlimm, könnte ich auch manuell machen) 2. Es gibt immer zwei verschiedene Bemassungsstile, in denen ich immer die Textfarbe und die Linienfarbe auf "von Layer" setzen muss. 3. Plan Drucken; d.h. AcrobatDistiller als Drucker wählen, A3 als Blattgröße wählen Fertig Mit ctb-Dateien kann ich nicht arbeiten (obwohl es die wohl schnellste Lösung wäre, was das Ändern der Farben angeht), u.a. deshalb, weil die weiteren Bearbeiter dieser Pläne nicht so gut mit ACAD umgehen können. Tausen Dank !!!!!!!!!!!!!!
------------------ Gruß, Khatinka -------- ACAD 2000, Windows 2000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 29. Jun. 2004 15:51 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
Servus Das in eine Script Datei wie man diese auf meherer DWG anwendet findest du im Forum. (command "_-Layer" "_Co" "7" "AC-*" "") (command "_-dimstyle" "_S" "Bemassungstilname1") (setvar "dimclrt" "7") (setvar "DIMCLRD" "7") (setvar "DIMCLRE" "7") (setvar "DIMCLRT " "7") (command "_-dimstyle" "_S" "Bemassungstilname2") (setvar "dimclrt" "7") (setvar "DIMCLRD" "7") (setvar "DIMCLRE" "7") (setvar "DIMCLRT" "7") Das mit dem Drucken ist ein bisschen schwerer da man Systeminfo braucht. (Plottername, Layoutname usw.) ------------------ Same shit, different DAU. DAU Jones schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 29. Jun. 2004 16:22 <-- editieren / zitieren --> Unities abgeben:
Bernd, tausen dank erstmal! Klappt mit den Layern, aber nicht mit den Bemassungsstielen: Ich hab 2 Stile (AUSSEN und AUSSEN_FLIP) und hab die beiden namen in Deinem script auch ausgetauscht (statt "Bemassungsstilname1 und 2" oder???), aber er ändert bei keinem von beiden die Farben, sondern es kommt diese Meldung: Enter a dimension style option [Save/Restore/STatus/Variables/Apply/?] <Restore>: _S Enter name for new dimension style or [?]: AUSSEN That name is already in use, redefine it? <N>:nil That name is already in use, redefine it? <N>:(setvar "dimclrt" "7") ; error: AutoCAD variable setting rejected: "dimclrt" "7" That name is already in use, redefine it? <N>:(setvar "DIMCLRD" "7") ; error: AutoCAD variable setting rejected: "DIMCLRD" "7" That name is already in use, redefine it? <N>:(setvar "DIMCLRE" "7") ; error: AutoCAD variable setting rejected: "DIMCLRE" "7" That name is already in use, redefine it? <N>:(setvar "DIMCLRT " "7") ; error: AutoCAD variable setting rejected: "DIMCLRT " "7" That name is already in use, redefine it? <N>:(command "_-dimstyle" "_S" "AUSSEN_FLIP") _-dimstyle Invalid option keyword. ; error: Function cancelled weiß nicht, was das bedeutet... hilfe!!! Danke!!! (er macht bei der vorschau smilies an bestimmte stellen, obwohl ic die option "Smilies in diesem Beitrag deaktivieren" angeklickt hab...)
------------------ Gruß, Khatinka -------- ACAD 2000, Windows 2000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 29. Jun. 2004 17:04 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
OOPS Englisch Deutsch Versionen Statt "_S" gehört "_R" (command "_-dimstyle" "_R" "Bemassungstilname1") (setvar "dimclrt" "7") (setvar "DIMCLRD" "7") (setvar "DIMCLRE" "7") (setvar "DIMCLRT " "7") (command "_-dimstyle" "_R" "Bemassungstilname2") (setvar "dimclrt" "7") (setvar "DIMCLRD" "7") (setvar "DIMCLRE" "7") (setvar "DIMCLRT" "7") ------------------ Same shit, different DAU. DAU Jones schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 29. Jun. 2004 17:13 <-- editieren / zitieren --> Unities abgeben:
Jetzt sagt er folgendes: [?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: Command: nil
Command: (command "_-dimstyle" "_R" "AUSSEN") _-dimstyle Current dimension style: AUSSEN Enter a dimension style option [Save/Restore/STatus/Variables/Apply/?] <Restore>: _R Current dimension style: AUSSEN Enter a dimension style name, [?] or <select dimension>: AUSSEN Command: nil Command: (setvar "dimclrt" "7") ; error: AutoCAD variable setting rejected: "dimclrt" "7" Command: (setvar "DIMCLRD" "7") ; error: AutoCAD variable setting rejected: "DIMCLRD" "7" Command: (setvar "DIMCLRE" "7") ; error: AutoCAD variable setting rejected: "DIMCLRE" "7" Command: (setvar "DIMCLRT " "7") ; error: AutoCAD variable setting rejected: "DIMCLRT " "7" Command: (command "_-dimstyle" "_R" "AUSSEN_FLIP") _-dimstyle Current dimension style: AUSSEN Enter a dimension style option [Save/Restore/STatus/Variables/Apply/?] <Restore>: _R Current dimension style: AUSSEN Enter a dimension style name, [?] or <select dimension>: AUSSEN_FLIP Command: nil Command: (setvar "dimclrt" "7") ; error: AutoCAD variable setting rejected: "dimclrt" "7" Command: (setvar "DIMCLRD" "7") ; error: AutoCAD variable setting rejected: "DIMCLRD" "7" Command: (setvar "DIMCLRE" "7") ; error: AutoCAD variable setting rejected: "DIMCLRE" "7" Command: (setvar "DIMCLRT" "7") ; error: AutoCAD variable setting rejected: "DIMCLRT" "7" ...aber er ändert nicht die Farben auf von Layer.....
???? ------------------ Gruß, Khatinka -------- ACAD 2000, Windows 2000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 30. Jun. 2004 10:57 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
(command "_-dimstyle" "_R" "Bemassungstilname1") (command "dimclrt" "7") (command "DIMCLRD" "7") (command "DIMCLRE" "7") (command "DIMCLRT " "7") (command "_-dimstyle" "_R" "Bemassungstilname2") (command "dimclrt" "7") (command "DIMCLRD" "7") (command "DIMCLRE" "7") (command "DIMCLRT" "7") ------------------ Same shit, different DAU. DAU Jones schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 07. Jul. 2004 13:48 <-- editieren / zitieren --> Unities abgeben:
das funktioniert auch nicht: ---------------------------- Command: '_script Command: (command "_-dimstyle" "_R" "AUSSEN") _-dimstyle Current dimension style: AUSSEN_FLIP Enter a dimension style option [Save/Restore/STatus/Variables/Apply/?] <Restore>: _R Current dimension style: AUSSEN_FLIP Enter a dimension style name, [?] or <select dimension>: AUSSEN Command: nil Command: (command "dimclrt" "7") dimclrt Enter new value for DIMCLRT <4>: 7 Command: nil Command: (command "DIMCLRD" "7") DIMCLRD Enter new value for DIMCLRD <4>: 7 Command: nil Command: (command "DIMCLRE" "7") DIMCLRE Enter new value for DIMCLRE <1>: 7 Command: nil Command: (command "DIMCLRT " "7") DIMCLRT Unknown command "DIMCLRT ". Press F1 for help. Command: 7 Unknown command "7". Press F1 for help. Command: nil Command: ------------------ Gruß, Khatinka -------- ACAD 2000 (englisch), Windows 2000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 07. Jul. 2004 13:55 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
zum Makro "mitschreiben" vielleicht noch ein Hinweis: Schau mal in der ACAD-Hilfe unter LOGFILEMODE LOGFILENAME usw... Bis hin zum Fertigen Script ist es zwar dann immer noch ein Stück, aber vielleicht hilft es .. ?! ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 07. Jul. 2004 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
|
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 07. Jul. 2004 14:27 <-- editieren / zitieren --> Unities abgeben:
Aaaaaaaah!!!!! Ja jetzt klappts! Tausend Dank! Kannst Du mir auch noch sagen, wie ich zu meinem script den Befehl "alle Bemaßungen aktualisieren/updaten" hinzufügen kann, weil ohne diesen Befehl bleiben die Farben der Bemaßungen wie sie vorher waren... Mein script: (command "_-dimstyle" "_R" "AUSSEN") (command "dimclrt" "7") (command "DIMCLRD" "7") (command "DIMCLRE" "7") (command "DIMCLRT" "7") (command "_-dimstyle" "_R" "AUSSEN_FLIP") (command "dimclrt" "7") (command "DIMCLRD" "7") (command "DIMCLRE" "7") (command "DIMCLRT" "7") --------------------- @CADmium: LOGFILEMODE LOGFILENAME aus der ACAD-Hilfe sagen mir nicht so viel-weiß nicht was das mit meinem Problem zu tun haben soll (aus der Hilfe: "Displays the user's name as configured or as input when AutoCAD is loaded. The maximum length for a login name is 30 characters.").... kenn mich nicht so gut aus... ------------------ Gruß, Khatinka -------- ACAD 2000 (englisch), Windows 2000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 07. Jul. 2004 16:30 <-- editieren / zitieren --> Unities abgeben:
Habs eben alleine hingekriegt, mit dieser Zeile: (command "_-dimstyle" "_apply" "all") Das ist ja schon ne feine Sache, muß ich sagen! Hab echt Lust mehr darüber zu lernen - wenn ich mal wieder Zeit habe.... Danke an alle!!!!! ------------------ Gruß, Khatinka -------- ACAD 2000 (englisch), Windows 2000 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 09. Jul. 2004 11:22 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
Servus !VORSICHT! (command "_-dimstyle" "_apply" "_all") Dieser Befehl wendet den aktuellen Bemassungstil auf alle Beemassungen an.
------------------ Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Khatinka Mitglied
Beiträge: 64 Registriert: 10.07.2003 ACAD 2000 Windows 2000
|
erstellt am: 12. Jul. 2004 08:50 <-- editieren / zitieren --> Unities abgeben:
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Jul. 2004 10:16 <-- editieren / zitieren --> Unities abgeben: Nur für Khatinka
Servus Funktioniert doch (command "_-dimstyle" "_R" "BEMASSUNGSSTIL") (command "_-dimstyle" "_apply" (ssget "X" '((0 . "DIMENSION") (3 . "BEMASSUNGSSTIL"))) "") ------------------ Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark Bernd P. [Diese Nachricht wurde von Bernd P am 12. Jul. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |