---

Hallo geehrte freaks !
Der Masseschwerpunkt wird für ein Teil oder auch Baugruppe sehr gut ermittelt, existiert aber auch eine Möglichkeit, bei einem Kurvengetriebe mit sich ändernden Masseverhältnissen eine bestimmte Anzahl Masseschwerpunkte zu ermitteln und gegebenenfalls durch ein Makro Ausgleichskörper anzupassen ???

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

---

Hallo Spanimauge,

nein, solche speziellen Anforderungen werden nicht durch ein Standardprogramm abgedeckt. Ob es so etwas in COSMOS Motion gibt weiß ich nicht, du kannst dir vielleicht dadurch behelfen, dass du dir mit einem Makro (z.B. http://solidworks.cad.de/mm_12.htm  ) einen dauerhaften Massenmittelpunkt für verschiedene Lagen erstellst und damit dann weiter arbeitest.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

Vielleicht hilft Dir das weiter:

Original Makro von Stafan, dann aber, dass jede Konfig durgegangen und Dir eine neue Skizze mit Punkt erstellen wird.

Code:

---

' **********************************************************************
' * Makro ermittelt im aktiven Dokument (sollte Baugruppe oder Part
' * sein) den Massenmittelpunkt und erzeugt in einer 3D-Skizze einen
' * Punkt, der dem entspricht. Dies ist NICHT assoziativ, deswegen
' * wird auch als Name Datum und Uhrzeit angegeben
' *
' * 12.12.2001 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' **********************************************************************

' Abgeändert, dass jede Konfiguration einen eigenen Punkt erhält
' von Gilbert Fürer -> http://ww3.cad.de/foren/ubb/Forum2/HTML/015260.shtml

' zunächst mal ein paar Deklarartionen die gebraucht werden

Dim swApp As Object
Dim ModelDoc As Object
Dim Point As Object
Dim Sketch As Object
Dim status As Long
Dim vConfNameArr          As Variant
Dim sConfigName            As String

Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc = swApp.ActiveDoc

    vConfNameArr = ModelDoc.GetConfigurationNames

    'Alle Konfis durchlaufen
    For i = 0 To UBound(vConfNameArr)
        sConfigName = vConfNameArr(i)
        bShowConfig = ModelDoc.ShowConfiguration2(sConfigName)
       
        ' die Masseeigenschaften holen
        MassProp = ModelDoc.GetMassProperties2(status)
        ' und einen neuen 3D-Skizze mit genau einem Punkt
        ' (dem Masse-Mittelpunkt) erzeugen
        ModelDoc.Insert3DSketch2 (True)
        Set Sketch = ModelDoc.GetActiveSketch2
        ModelDoc.SetAddToDB (True)
        Set Point = ModelDoc.CreatePoint2(MassProp(0), MassProp(1), MassProp(2))
        ModelDoc.SetAddToDB (False)
        ModelDoc.Insert3DSketch2 (True)
   
        ' und dem Sketch noch einen Namen geben
        Sketch.Name = "Massemittelpunkt - " & sConfigName
        ModelDoc.EditRebuild
    Next i

End Sub

---

------------------

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

---

Hallo Stefan,

vielen Dank für Deine freundliche Antwort.
Ich hab´s mir eigentlich schon fast gedacht obwohl ja die Hauptaufgabe die Ermittelung des Schwerpunktes vom Programm gemacht wird....

MfG

A.Hille

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

---

Hallo und vielen Dank !  Sag mal bist Du von diesem Stern ?
Ein Erdenbürger kann doch fast nicht auf so was kommen !?
Also nochmal danke und ich werds pobieren.

MfG

Andre´

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

---

Hallo G.Dawg,

dein (bzw. ursprünglich Stefans  ) Makro könnte ich sehr gut gebrauchen.
Allerdings bekomme ich für die Variable "i" die Fehlermeldung

Fehler beim Kompilieren
Projekt oder Bibliothek nicht gefunden

Weiß jemand woran das liegt?
Gruß Kay

------------------
Geht nicht gibt's nicht.

www.myspace.com/divinetotheend
www.divine-to-the-end.de

[Diese Nachricht wurde von Kayyy am 10. Feb. 2010 editiert.]

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

---

Hast Du die Verweise kontrolliert?

------------------

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

---

Du meinst Verweise im Makro?

Mein Wissen bzgl. Makros ist ähnlich dem der altrömischen Häkelkunst.
Ich bediene mich trotzdem gerne euren Makros

Ich spiele ja schon im Debugger herum, aber bitte eine kleine Hilfe zu Verweisen.

Danke!

------------------
Geht nicht gibt's nicht.

www.myspace.com/divinetotheend
www.divine-to-the-end.de

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

---

Hallo Kayyy,

versuch doch mal die folgende Zeile unter die ganzen DIM-Anweisungen zu setzen:

Dim I As Long

Dann sollte es schnabeln...

------------------
==========
Gruß
Andreas
==========

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

---

Der Schnabel bleibt leider geschlossen.

Gleiche Meldung und

"bShowConfig" wird hervorgehoben

------------------
Geht nicht gibt's nicht.

www.myspace.com/divinetotheend
www.divine-to-the-end.de

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

---

Hallo Kayyy,

noch einmal DIM bShowConfig As Boolean in den DIM-Block packen,
dann müsste es aber jetzt schnabeln...

------------------
==========
Gruß
Andreas
==========

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

---

Zitat:

---

Original erstellt von Kayyy:
Du meinst Verweise im Makro?

Mein Wissen bzgl. Makros ist ähnlich dem der altrömischen Häkelkunst.
Ich bediene mich trotzdem gerne euren Makros 

Ich spiele ja schon im Debugger herum, aber bitte eine kleine Hilfe zu Verweisen.

---

Römer habe gehäkelt?! Hmm! Mann lernt nie aus! ;-)

Verweise: Sollte ungefähr so aussehen, je nach Version SolidWorks die entsprechenden Einträge. http://ww3.cad.de/foren/ubb/uploads/G.+Dawg/Verweise_Drucken.jpg

Die findest Du unter Makro bearbeiten -> Extras -> Verweise

Wichtig: Es sollten keine "Nicht vorhanden" angekreuzt sein!
Plus, es sollten schon alle Hauptverweise von SolidWorks ausgewählt sein. (SolidWorks 20XX Constant Type Library, SolidWorks 20XX Commands Type Library und SldWorks 20XX Type Library)

Hoffe doch, dass es jetzt für Dich doch noch funktioniert.

------------------

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

---

Juckuhu, es funktioniert!

Es war einmal "Nicht vorhanden" angehakt...Haken weg und das Makro rennt!
Danke an alle!

------------------
Geht nicht gibt's nicht.

www.myspace.com/divinetotheend
www.divine-to-the-end.de

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

---

CM_FEHLER.jpg

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo Freunde,

ich brauche wieder mal Eure Hilfe...

Ade 2007 und vieles (gutes, nutzliches) geht nicht mehr - wie z.B Stefan's  Macro Centermass

Was muss ich da Ändern, damit es wiede laüft?

Vielen Dank im Voraus.

G.  thomas

------------------

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

---

Hallo,

immer ist die neue Version Schuld...

Wo genau ist denn massProp dimensioniert? So wie ich das sehe hat das Makro noch nie funkioniert.

PS: Code bitte als Text einfügen, Bilder lassen sich so schlecht im VBE ausführen.

[Diese Nachricht wurde von R3vo am 08. Sep. 2022 editiert.]

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

---

Hallo Thomas,
dass ich das noch einmal erleben darf, du wechselst deine SW-Version. 

Das Makro ist ganz schön alt und darin sind veraltete Befehle enthalten.

Nachdem ich diese Zeile

Code:

---

Set swApp = CreateObject("SldWorks.Application")

---

zu dieser Zeile geändert hatte, hat es bei mir funktioniert.

Code:

---

Set swApp = Application.SldWorks

---

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

---

CM_FEHLER_1.jpg

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

ZURÜCK!!!! Editor nicht resettet!!

ÜS kommen! Danke

G.   thomas

Hallo Andi! 

Ja, Sachen gibts.. 

Dankend für Deine Hilfe, habe Dein Vorschlag jetzt umgesetzt aber scheinbar ist da noch was drinn ->>> Bild

G.   thomas

------------------

[Diese Nachricht wurde von myca am 08. Sep. 2022 editiert.]

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

---

centerofmass-AB-SW2021.png

Hallo Thomas,
ich habe kein SW2018 mehr, sondern nur SW2021 und SW2022.

Schau dir mal das Bild an und gehe in die Verweise.
Bei mir funktioniert das so, ohne Fehler in einem Part.

Bei dir müsste die SolidWorks 2018 Extensibility Type Library ausgewählt sein.

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

---

Hi Andi,

Siehe OBEN!

G.  thomas

------------------

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

---

Zitat:

---

Original erstellt von myca:
...wie z.B Stefan's   Macro Centermass

---

Die neue Funktion von 2013 hat Dir aber noch keiner verraten: Hinzufügen von Massenmittelpunkten

HTH
Ralf

------------------

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

---

Hi Ralf,

richtig, hat es keiner. Die habe ich selbst gefunden aber zu doof den Punkt sichtbar zu machen

Werde beide nutzen - Dein Vorschlag beinhaltet die wichtige Information wegen Aktualisierung!

G.  thomas

------------------

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

---

015260_Massemittelpunkt-SWX2018.mp4

Zitat:

---

Original erstellt von myca:
den Punkt sichtbar zu machen 

---

Auch das kannst Du 
Anbei ein kleines Beispielvideo wie das auch bei Dir gelingen könnte...

Schönes WoE
Ralf

------------------

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

---

RMM_ASP.jpg

Hallo Massenmittelpunkt-Freaks,

es gibt auch zusätzlich den Referenz-Massenmittelpunkt.

Davon kann man im Teil viele erstellen und in der Historie an die Position schieben, an der man wissen möchte, wie sich Feature auf diesen sich auswirken.

VG
Andi

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

---

Hallo Andi,

super   - Du hast das letzte Wort - das muß man (auch) wissen!

G.  thomas

------------------

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