---

MASS_UNITS.swp.txt

Moin zusammen,

ich benutze ein Makro, dass mir bei Bauteilen das Gewicht mit Einheit in die Eigenschaften schreibt und je nach Gewicht das ganze in gramm oder kilogramm umrechrechnet.
Dieses Makro funktioniert leider nur für Bauteile, ist es möglich das Makro so anzupassen, dass man es auch für Baugruppen nutzen kann?

------------------
Mit freundlichen Grüßen

Guido

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

---

Hallo Guido.

In der .asmdot in den Eigenschaften die Masse eintragen. => SWX interne Variable die die Masse einer Baugruppe ausgibt.
Den wert mittels Makro abfragen und weiter verarbeiten und in eine 2te Eigenschaft eintragen.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen -
Nettiquette - Konstruktionshilfen - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Moin ThoMay,

ich muss gestehen, dass ich nicht wirklich viel Ahnung von Makros/programmieren habe, aber aus eigenem Interesse werde ich mich mal mit der SWX API und VBA auseinandersetzen.

Ich habe aber eine kleine Frage vorweg:
Kann man nich auch direkt die SWX interne Variable für Masse auslesen ohne das sie in den Eigenschaften steht?

------------------
Mit freundlichen Grüßen

Guido

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

---

Zitat:

---

Original erstellt von Knoeti:

Kann man nich auch direkt die SWX interne Variable für Masse auslesen ohne das sie in den Eigenschaften steht?

---

Hallo,
das geht schon. Schau dir mal diesen Code-Schnipsel an.

Code:

---

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim MassProp As Variant      'zum Gewicht auslesen
Dim Masse As Double          'Gewicht

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

'und die MassProperties auslesen und Gewicht ermitteln
MassProp = swModel.GetMassProperties()
'die Reihenfolge der MassProps im Variant ist:
'CenterOfMassX, CenterOfMassY, CenterOfMassZ, Volume, Area, Mass, MomXX, MomYY, MomZZ, MomXY, MomZX, MomYZ
'Masse ist die 6. Eigenschaft, also Index 5
If Not IsEmpty(MassProp) Then
    Masse = Round(MassProp(5), 3)
End If

---

Viel Spaß beim rumprobieren.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo,

es gibt noch eine weitere Zugriffsmöglichkeit, wo man dann auch abfragen kann, ob der Wert ein überschriebener ist.

Code:

---

dim oMassProp as object
set oMassProp = swModelDoc.Extension.createMassProperty
debug.print oMassProp.mass
debug.print oMassProp.OverrideMass

---

Gruß, Christian

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

---

Hallo,

ich möchte noch einen kurzen Hinweis geben. Ich verwende eine Gleichung um die Nachkommastellen je nach Gewicht zu reduzieren. Unter 1 kg drei Nachkommastellen, unter 50 kg eine und alles darüber ohne Nachkommastelle. Das ganze wird dann in eine neue Eigenschaft geschrieben und bei jedem Neuaufbau automatisch aktualisiert. Mit einem Makro wird es nur aktualisiert wenn ich es aufrufe!

mfg Christian

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

---

Zitat:

---

Original erstellt von ckoring:
... Mit einem Makro wird es nur aktualisiert wenn ich es aufrufe!

---

Hallo Namensvetter,

guter Einwand, dafür müsste man es sonst als Makrofeature einbinden …

Gruß, Christian

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