---

Hallo Gemeinde,

in einer Baugruppe sind alle Teile mit einer "falschen" Vorlage gezeichnet wurden.

Kann man nachträglich Dokumenteneigenschaften (Masse: von g in kg) von ALLER Teile in der Baugruppen mit einmal ändern? 

Oder doch alle einzeln ändern? 

Vielen Dank und Grüsse

A.Schmidt

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

---

Hallo Caipi,

mir war doch so als hätte ich das Problem auch schonmal gehabt...  

Schau mal hier

Das Makro ändert die Einheit des geöffneten Dokumentes von g in kg und speichert es ab.

Wenn du eine ganze Handvoll Dateien hast, kannst du dieses Makro vielleicht zusammen mit dem Batchtool von Stefan über deine Dateien laufen lassen.

Edit: Das Makro ist schon ein paar Jährchen alt, ich weiß grad nicht, ob es mit der aktuellen Version von Solid Works auch noch funktioniert, die Bibliotheken ändern sich ja auch ab und zu zwischen den Versionen. Einfach mal ausprobieren.
------------------
Gruß,
Stephan

"Optimismus ist lediglich ein Mangel an Informationen"

BOFH

[Diese Nachricht wurde von ess-jay am 12. Jan. 2010 editiert.]

[Diese Nachricht wurde von ess-jay am 12. Jan. 2010 editiert.]

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

---

Danke

Ist das Makro so richtig?

Dim swApp As Object
Dim Part As Object

Const swUnitSystem = 263
Const swUnitsMassPropMass = 259

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

Kann ich das Makro auch in SWX starten? Muss nur die Baugruppe geöffnet sein?

Danke

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

---

Wie heißt der Parameter um bei der Länge die Dezimale einzustellen? 

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

---

Zitat:

---

Original erstellt von caipi:
Wie heißt der Parameter um bei der Länge die Dezimale einzustellen?  

---

habe es mit folgendem Eintrag versucht, aber leider ohne erfolg!
So werden alle Dezimalstellen weggeschnitten.
Kennt jemand den korrekte Befehl?
-----------------------------------------
Dim swApp As Object
Dim Part As Object

Const swUnitSystem = 263
Const swUnitsMassPropMass = 259

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
retval = Part.SetUserPreferenceIntegerValue(swUnitSystem, swUnitSystem_Custom)
retval = Part.SetUserPreferenceIntegerValue(swUnitsMassPropMass, swUnitsMassPropMass_Kilograms)
retval = Part.SetUserPreferenceIntegerValue(swUnitsMassPropDecimalPlaces, swUnitsMassPropDecimalPlaces_3)
retval = Part.Save2(0)
End Sub
-----------------------------------------

------------------
mfg Ernst

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