---

hallo WBF
uns plagt schon Länger der Wunsch in einer Gesamtbaugruppe/Zeichnung
die einzelnen Schwerpunkte von verbauten Teilen bzw. Baugruppen
um die Gewichtsbilanz mit ihren Erzeugern zeichnerisch darstellen zu können... Gesamtschwerunkt ist kein Thema und läuft aber wir wären froh wenn die einzelnen (auswählbaren)Schwerpunkte ebenso in die Zeichnung gebracht werden könnten , Fallbeispiel Container zu Werkstatt ausgebaut mit Schränken + Maschinen und um die Position in eine Berechnung einfließen zu lassen wären die gehofften Schwerpunkte ein Gewinn...bisher über Jeden Schwerpunkt darstellen und von Hand mit Skizze in die Zeichnung einsetzten...Mühselig ernährt sich das Eichhörnchen..... gibts da eine mir/uns unbekannte Funktion die diese Einzelschwerpunkte (ausgesuchte) darstellen kann ??
 

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

---

Moin

Meines Wissens nicht. In einer Zeichnungsansicht mehrere Schwerpunkte zu haben ist verwirrend, zumal man nicht erkennen kann welcher Punkt wohin gehört. Aus diesem Grund mutmaße ich mal, das Autodesk das nicht anbietet.
Ich könnte mir aber vorstellen, dass es mit etwas Programmierung möglich ist, den Schwerpunkt eines gewählten Objektes in der Zeichnungsansicht als Mittelpunktmarkierung darzustellen. Diese dann auch bei Änderungen aktuell zu halten wird schon aufwändiger.

------------------
MfG
Ralf

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

---

Hi,

https://mcdcad.eu/2018/05/30/inventor-ilogic-so-erstellen-sie-einen-arbeitspunkt-am-schwerpunkt/

Kannst dir mit Ilogic einen Arbeitspunkt in Bauteil oder in der Baugruppe am Massenschwerpunkt erstellen lassen und denn auf der Zeichnung abrufen.

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

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

---

oh Hi McFly

das werd ich mal versuchen und melde mich wenn ich entsprechende Ergebnisse hab
Danke schon mal vorab  ist schon mal ein Lichtblick da ich versucht hab einen Arbeitspunkt z setzten weil dich der Schwerpunkt so nett anklicken läss hab ich gehofft....naja! werd das nun versuchen

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

---

das mit dem Arbeitspunkt am Schwerpunkt gabs vor Ewigkeiten als VBA-Makro von Kent Keller
kam in Vergessenheit als Autodesk die Funktion in der idw brachte

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

------------------
Es reicht nicht, sich Blödsinn nur auszudenken, wenn man ihn nicht auch bis zur letzten Konsequenz durchzieht!

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

---

Moin

Als Ergänzung, wenn man in seinen Zeichnungsressourcen ein skizziertes Symbol "Schwerpunkt" erstellt, kann man mit folgendem VBA-Code statt die Arbeitspunkte abzurufen auch das Symbol einfügen lassen. Dadurch wird es vielleicht besser erkennbar.
Falls es in iLogic gebraucht wird, kurz melden.

Code:

---

Option Explicit

Private Sub Drawing_Insert_CoMSymbols()
    Dim oApp As Inventor.Application
    Set oApp = ThisApplication
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = oApp.ActiveDocument
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
    Dim oDrawView As DrawingView
    Set oDrawView = oApp.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Bitte Ansicht auswählen...(ESC zum Beenden)")
   
    If oDrawView Is Nothing Then Exit Sub
   
    On Error Resume Next
    Dim oSSDef As SketchedSymbolDefinition
    Set oSSDef = oDrawDoc.SketchedSymbolDefinitions.Item("Schwerpunkt")
   
    If Err.Number <> 0 Then
        Call MsgBox("In den Zeichnungsressourcen existiert kein Schwerpunktsymbol.", vbCritical, "iLogic Center of Mass")
        Exit Sub
    End If
    On Error GoTo 0

    Dim oRefedDoc As Document
    Set oRefedDoc = oDrawView.ReferencedDocumentDescriptor.ReferencedDocument
   
    Dim oCompDef As AssemblyComponentDefinition
    Set oCompDef = oRefedDoc.ComponentDefinition
   
    Dim oObjColl As ObjectCollection
    Set oObjColl = ThisApplication.TransientObjects.CreateObjectCollection
   
    Set oObjColl = TraverseOccs(oCompDef.Occurrences, oObjColl)
   
    Dim oWP As WorkPoint
    For Each oWP In oCompDef.WorkPoints
        If oWP.Name = "Schwerpunkt" And oWP.Visible = True Then
            Call oObjColl.Add(oWP)
        End If
    Next
   
    Dim oObj As Object
    For Each oObj In oObjColl
        ' ruft __optional zusätzlich__ den Arbeitspunkt in die Zeichnung ab
        'Call oDrawView.SetIncludeStatus(oObj, True)
       
        Dim oPoint As Point2d
        Set oPoint = oDrawView.ModelToSheetSpace(oObj.Point)
       
        Call oSheet.SketchedSymbols.Add(oSSDef, oPoint, 0, oDrawView.Scale)
    Next
   
End Sub

Private Function TraverseOccs(ByVal oOccs As ComponentOccurrences, ByVal oObjColl As ObjectCollection) As ObjectCollection
   
    Dim oTmpObjColl As ObjectCollection
    Set oTmpObjColl = ThisApplication.TransientObjects.CreateObjectCollection
   
    Dim oOcc As ComponentOccurrence
    For Each oOcc In oOccs
        If oOcc.Suppressed = False Then
            If oOcc.SubOccurrences.Count > 0 Then Set oTmpObjColl = TraverseOccs(oOcc.SubOccurrences, oObjColl)
           
            Dim oWPProxy As WorkPointProxy
            For Each oWPProxy In oObjColl
                Call oOcc.CreateGeometryProxy(oWPProxy, oWPProxy)
                Call oTmpObjColl.Add(oWPProxy)
            Next
           
            Dim oWP As WorkPoint
            For Each oWP In oOcc.Definition.WorkPoints
                If oWP.Name = "Schwerpunkt" And oWP.Visible = True Then
                    Call oOcc.CreateGeometryProxy(oWP, oWPProxy)
                   
                    Call oTmpObjColl.Add(oWPProxy)
                End If
            Next
        End If
    Next
   
    Set TraverseOccs = oTmpObjColl
End Function

---

------------------
MfG
Ralf

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

---

hallo Ralf
nochmals Danke für die Stütze !! mega !!!!!genau diese Möglichkeit  mehrere Schwerpunkte von Unterbaugruppen in der Haupt-BGzeichnung anzeigen und Maße anziehen zu können 👍👍👍das ermöglicht uns einiges und spart mächtig Zeit gegenüber unserer bisherigen Vorgehensweise je nach Komplexität sogar bis zu 2 Tagen und das ist eine echte Hausnummer
.......nochmals DAnke und deine Schwerpunkt einfügung werd ich sofort ausprobieren

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

---

hi MacFly
auch Dir vielen Dank für den Tipp !! genau "das" was wir benötigt haben !top !!so sparen wir mächtig Zeit bei der Ausführung
👍👍👍👍👍👍👍👍

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