---

DocProperties.jpg

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

---

... kennen, nicht gerade - aber es ist denkbar einfach:

Dim swApp As Object
Dim Part As Object

Const 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

---

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

---

Laufzeitfehler.jpg

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

---

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

---

Kilogramm.jpg

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

---

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

---

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

---

Verweise1.jpg

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