Thema "Betreff: iLogic - Zugriff auf Bauteil-Trägheitsmomente innerhalb einer Baugruppe" in Inventor - Deutsches Forum

iLogic - Zugriff auf Bauteil-Trägheitsmomente innerhalb einer Baugruppe

Anonymous — Tue, 27 Jun 2017 15:19:37 GMT

Hallo zusammen,

ich würde gerne eine Regel in iLogic innerhalb einer Baugruppe erstellen, die mir zu jedem Bauteil der Baugruppe das Gewicht und die Trägheitsmomente ausgibt. Anschließend würde ich die Werte gerne in eine Excel-Datei exportieren.

Der Export der Werte nach Excel und die Ausgabe der Massen funktioniert bereits. Allerdings schaffe ich es nicht, an die Trägheitsmomente der einzelnen Bauteile heranzukommen, lediglich an die der gesamten Baugruppe.

Das liegt wahrscheinlich an dem "ThisDoc. Document"-Ausdruck, der sich auf die Baugruppe bezieht.

Ich habe leider keine Erfahrung mit iLogic. Ich würde gerne wissen, wie ich den folgenden Code ändern muss, um an die einzelnen Trägheitsmomente der Bauteile zu kommen.

Bauteile: "Bauteil1" und "Bauteil2"
Baugruppe: "Baugruppe1"

Code in Regel:

____________________________________________________________________________

InventorVb. DocumentUpdate()

Dim massProps as MassProperties

Dim partDoc as PartDocument = TryCast(ThisDoc. Document, PartDocument)
If (partDoc IsNot Nothing) Then massProps = partDoc. ComponentDefinition. MassProperties
Dim assemDoc as AssemblyDocument = TryCast(ThisDoc. Document, AssemblyDocument)
If (assemDoc IsNot Nothing) Then massProps = assemDoc. ComponentDefinition. MassProperties

Dim TrMomente(5) As Double
massProps. XYZMomentsOfInertia(TrMomente(0), TrMomente(1), TrMomente(2), TrMomente(3), TrMomente(4), TrMomente(5))

For i = 0 To 5
TrMomente(i) = ThisDoc. Document. UnitsOfMeasure. ConvertUnits(TrMomente(i), "kg cm^2", "kg mm^2")
Next
Ixx = TrMomente(0)
Iyy = TrMomente(1)
Izz = TrMomente(2)
Ixy = TrMomente(3)
Iyz = TrMomente(4)
Ixz = TrMomente(5)

MasseBT1 = iProperties. Mass("Bauteil1. ipt")
MasseBT2 = iProperties. Mass("Bauteil2. ipt")

__________________________________________________________________________________

Vielen Dank im Voraus

Freundliche Grüße

Max Bleicher

Betreff: iLogic - Zugriff auf Bauteil-Trägheitsmomente innerhalb einer Baugruppe

Anonymous — Fri, 30 Jun 2017 07:24:44 GMT

Hallo zusammen,

Problem konnte mitHilfe folgender Posts gelöst werden:

Exporting Mass Moments to Excel
https://forums.autodesk.com/t5/inventor-forum/exporting-mass-moments-to-excel-using-ilogic/td-p/6904182

Run sub-assembly rule from assembly
https://forums.autodesk.com/t5/inventor-customization/ilogic-run-sub-assembly-rule-from-top-assembly/td-p/6363850

Betreff: iLogic - Zugriff auf Bauteil-Trägheitsmomente innerhalb einer Baugruppe

S_May — Fri, 30 Jun 2017 09:57:21 GMT

Hi @Anonymous,

super das Du Euer Problem mit den Post lösen konntest, wie sieht denn jetzt das Ergebnis in dem Excel File aus, wie habt Ihr das mit der ilogic gelöst?

MFG

Sascha May

Betreff: iLogic - Zugriff auf Bauteil-Trägheitsmomente innerhalb einer Baugruppe

Anonymous — Sat, 01 Jul 2017 10:31:47 GMT

Hallo zusammen,

Die Idee war es eigentlich, aus der Baugruppe eine Regel zu erstellen, die zu jeden Bauteil Masse und Trägheit exportiert.

Imgesetzt worden ist es jetzt so, dass jedes Bauteil eine eigene Regel hat, die Masse und Trägheit exportiert.
Aus der Baugruppe werden dann alle Regeln der beinhalteten Bauteile mit dem Namen rulename aufgerufen.
Ergebnis ist dann das gleiche.

Code aus Bauteil:

________________________________________________________________________________________________

InventorVb.DocumentUpdate()

Masse = iProperties.Mass

Dim massProps as MassProperties
Dim partDoc as PartDocument = TryCast(ThisDoc.Document, PartDocument)
massProps = partDoc.ComponentDefinition.MassProperties
massProps.XYZMomentsOfInertia(Ixx, Iyy, Izz, Ixy, Iyz, Ixz)
Iyy = ThisDoc.Document.UnitsOfMeasure.ConvertUnits(Iyy, "kg cm^2", "kg mm^2")

'Export nach Excel

oMyFile = "C:\Users\...\Massen und Trägheiten.xlsx"
GoExcel.CellValue(oMyFile, "Tabelle1", "D8") = Round(Masse,3)
GoExcel.CellValue(oMyFile, "Tabelle1", "F8") = Round(Iyy,3)
GoExcel.Save
GoExcel.Close

Code aud Baugruppe:

_______________________________________________________________________________________________________

Sub Main
auto = iLogicVb.Automation

' Set Rule name
Dim ruleName As String
ruleName = "Export"

' Get active assembly
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument

' Get all of the referenced documents.
Dim oRefDocs As DocumentsEnumerator
oRefDocs = oAsmDoc.AllReferencedDocuments

' Iterate through the list of documents.
Dim oRefDoc As Document

For Each oRefDoc In oRefDocs
   Dim rule As Object
   rule = auto.GetRule(oRefDoc, ruleName)
   If (rule Is Nothing) Then
   'Call MsgBox("No rule named " & ruleName & " was found in the document.")
   Else
   'MessageBox.Show(rule.Name, oRefdoc.displayname)

   Dim i As Integer
   i = auto.RunRuleDirect(rule)

   End If

Next
End Sub

Betreff: iLogic - Zugriff auf Bauteil-Trägheitsmomente innerhalb einer Baugruppe

S_May — Sat, 01 Jul 2017 11:27:08 GMT

Hallo @Anonymous,

danke für die Lösung, damit können bestimmt noch weitere User etwas anfangen in Zukunft.

MFG

S_May