| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| myCAD 2024 Visiativ-Kundentag in Rosenheim, eine Veranstaltung am 29.10.2024
|
Autor
|
Thema: Makro z. Ändern d. Dokumenteigenschaften? (2557 mal gelesen)
|
ess-jay Mitglied Konstrukteur/ CAD-Admin/BOFH
Beiträge: 681 Registriert: 28.04.2005 Dell Precision T5500 Windows 7 64 bit 24GB RAM, NVidia Quadro 5000 SW 2010 SP4.0 ME10 17.00 3DConnexion Spaceexplorer Office 2007
|
erstellt am: 14. Nov. 2006 12:22 <-- editieren / zitieren --> Unities abgeben:
Hallo miteinander, kennt jemand ein Makro, welches mir in einem beliebigen Verzeichnis in allen 3D-Modellen in den Dokumenteigenschaften automatisch die Einheit von "Gramm" auf "Kilogramm" umstellt? Hab schon in den Foren gewühlt und gewühlt, aber was passendes war nicht dabei. Die Makroprogrammierung ist mir leider ein Buch mit jeder Menge Siegeln... Gruß, Stephan ------------------ Alles wird gut!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
u.clemens Mitglied Konstrukteur
Beiträge: 964 Registriert: 04.07.2000 engineer's law o cheap o fast o good check only two !
|
erstellt am: 14. Nov. 2006 14:26 <-- editieren / zitieren --> Unities abgeben: Nur für ess-jay
... kennen, nicht gerade - aber es ist denkbar einfach: Dim swApp As Object Dim Part As ObjectConst swUnitsMassPropMass_Kilograms = 3 Const swUnitSystem_Custom = 4 Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc retval = Part.SetUserPreferenceIntegerValue(swUnitSystem, swUnitSystem_Custom) retval = Part.SetUserPreferenceIntegerValue(swUnitsMassPropMass, swUnitsMassPropMass_Kilograms) retval = Part.Save2(0) End Sub
... und um alle gewünschten Dateien der Reihe nach zu durchlaufen, nimmst du am besten PAC4SWX oder den Taskplaner. ------------------ mfg uc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ess-jay Mitglied Konstrukteur/ CAD-Admin/BOFH
Beiträge: 681 Registriert: 28.04.2005 Dell Precision T5500 Windows 7 64 bit 24GB RAM, NVidia Quadro 5000 SW 2010 SP4.0 ME10 17.00 3DConnexion Spaceexplorer Office 2007
|
erstellt am: 14. Nov. 2006 15:13 <-- editieren / zitieren --> Unities abgeben:
Ups, das ging flott. Einfach? Manchmal beneide ich euch Makrospezis... Werds mal mit PAC4SWX testen, sobald ich den Registrierungsschlüssel dafür bekomme, kann sich nur noch um Tage handeln. Besten Dank, 10U´s4U Gruß, Stephan ------------------ Alles wird gut!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ess-jay Mitglied Konstrukteur/ CAD-Admin/BOFH
Beiträge: 681 Registriert: 28.04.2005 Dell Precision T5500 Windows 7 64 bit 24GB RAM, NVidia Quadro 5000 SW 2010 SP4.0 ME10 17.00 3DConnexion Spaceexplorer Office 2007
|
erstellt am: 24. Nov. 2006 14:50 <-- editieren / zitieren --> Unities abgeben:
Hallo nochmal u.clemens, beim Ausführen deines Makros ploppt ne Fehlermeldung hoch (s. Anhang). Kannst du damit was anfangen? Ich habs doch richtig gemacht: Neues Makro erstellt - deinen Text komplett reinkopiert - gespeichert. Oder muß ich da noch was anderes beachten? Gruß, Stephan ------------------ Alles wird gut!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VBSpawn Mitglied Programmierer
Beiträge: 514 Registriert: 23.08.2005 Sorgfältige Planung ersetzt niemals pures Glück.
|
erstellt am: 24. Nov. 2006 15:07 <-- editieren / zitieren --> Unities abgeben: Nur für ess-jay
Hi, hast wahrscheinlich keine Datei geöffnet ... Gruß Micha ------------------ Stell dir vor, es geht, und keiner kriegts hin. Zitat: Interpunktion und Orthographie des Postings sind frei erfunden. Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ess-jay Mitglied Konstrukteur/ CAD-Admin/BOFH
Beiträge: 681 Registriert: 28.04.2005 Dell Precision T5500 Windows 7 64 bit 24GB RAM, NVidia Quadro 5000 SW 2010 SP4.0 ME10 17.00 3DConnexion Spaceexplorer Office 2007
|
erstellt am: 24. Nov. 2006 15:31 <-- editieren / zitieren --> Unities abgeben:
Tja...manche Dinge könnten so einfach sein. Manchmal ist man eben selbst auch nur ein User. Hatte tatsächlich kein Teil geöffnet... Aber dennoch: die Umstellung von Gramm auf Kilogramm hat nicht geklappt. Es steht immer noch Gramm in den Dokumenteneinheiten. Eine Idee? Gruß, Stephan ------------------ Alles wird gut!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VBSpawn Mitglied Programmierer
Beiträge: 514 Registriert: 23.08.2005 Sorgfältige Planung ersetzt niemals pures Glück.
|
erstellt am: 24. Nov. 2006 15:52 <-- editieren / zitieren --> Unities abgeben: Nur für ess-jay
Füge mal oberhalb von sub Main das ein : Const swUnitSystem = 263 Const swUnitsMassPropMass = 259
dann klapps auch mit dem .... Gruß Micha ------------------ Stell dir vor, es geht, und keiner kriegts hin. Zitat: Interpunktion und Orthographie des Postings sind frei erfunden. Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
[Diese Nachricht wurde von VBSpawn am 24. Nov. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ess-jay Mitglied Konstrukteur/ CAD-Admin/BOFH
Beiträge: 681 Registriert: 28.04.2005 Dell Precision T5500 Windows 7 64 bit 24GB RAM, NVidia Quadro 5000 SW 2010 SP4.0 ME10 17.00 3DConnexion Spaceexplorer Office 2007
|
erstellt am: 24. Nov. 2006 16:11 <-- editieren / zitieren --> Unities abgeben:
Japp! Das wars. Jetzt tut er. Ich werd mal am Wochenende beigehen und bei diesem übersichtlichen Makro versuchen herauszufinden, was all die Befehle zu bedeuten haben. Vielleicht bring ich dann auch mal irgendwann ein kleines Makro zusammen, ist irgendwie alles furchtbar interessant. Leider fehlt meistens die Zeit dazu... Vielen Dank jedenfalls bis dahin, ein großartiges Wochenende wünsch ich! Gruß, Stephan ------------------ Alles wird gut!!! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VBSpawn Mitglied Programmierer
Beiträge: 514 Registriert: 23.08.2005 Sorgfältige Planung ersetzt niemals pures Glück.
|
erstellt am: 24. Nov. 2006 16:24 <-- editieren / zitieren --> Unities abgeben: Nur für ess-jay
Hi Gewöhne dir am besten an das wenn du ein Makro erstellst immer einen Verweis unter Extras -> Verweise auf die SWX Lib setzt siehe Bild :-) Gruß Micha (auch bald WE)
------------------ Stell dir vor, es geht, und keiner kriegts hin. Zitat: Interpunktion und Orthographie des Postings sind frei erfunden. Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |