Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen

Anonymous — Fri, 07 May 2021 08:14:01 GMT

Hallo,

Ich bin noch recht neu hier und auch bei Inventor und vor allem in VBA.

Ich suche einen Code, der mir den Aktuellen Versatz (Translation und Rotation) in Excel ausgeben kann.

Sub Export_xyz_excel()

Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

Dim sDocName As String
Dim i As Long
Dim iRow As Long

Dim XL As Object
Dim xlWB As Object
Dim xlWS As Object

If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject And ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
MsgBox "Only Part or Assymbly document ", vbCritical
Exit Sub
End If

Set XL = CreateObject("Excel.Application")
Set xlWB = XL.Workbooks.Add
Set xlWS = xlWB.ActiveSheet
XL.Visible = True

iRow = 1
xlWS.Cells(iRow, 1).value = "Name"
xlWS.Cells(iRow, 2).value = "Type"
xlWS.Cells(iRow, 3).value = "Child"
xlWS.Cells(iRow, 4).value = "Length"
xlWS.Cells(iRow, 5).value = "Width"
xlWS.Cells(iRow, 6).value = "WidthOfLift"
xlWS.Cells(iRow, 7).value = "LiftRelPosX"
xlWS.Cells(iRow, 8).value = "Height"
xlWS.Cells(iRow, 9).value = "PosX"
xlWS.Cells(iRow, 10).value = "PosY"
xlWS.Cells(iRow, 11).value = "PosZ"
xlWS.Cells(iRow, 12).value = "RotX "
xlWS.Cells(iRow, 13).value = "RotY "
xlWS.Cells(iRow, 14).value = "RotZ "

xlWS.Rows("1:1").Select
XL.Selection.Font.Bold = True

With XL.Selection.Font
.name = " Arial"
.Size = 11
.Bold = False
End With

On Error Resume Next

For i = 1 To ThisApplication.ActiveDocument.ComponentDefinition.Occurrences.Count

Dim oOcc As ComponentOccurrence
Set oOcc = ThisApplication.ActiveDocument.ComponentDefinition.Occurrences(i)

Dim oOL As Vector
Dim oT As Matrix

Set oT = oOcc.Transformation
Set oOL = oT.Translation

Dim oMatrix1 As Matrix
Set oMatrix1 = oOcc.Transformation

Dim oOrigin1 As Point
Dim oX1 As Vector
Dim oY1 As Vector
Dim oZ1 As Vector

Call oMatrix1.GetCoordinateSystem(oOrigin1, oX1, oY1, oZ1)

Dim oMatrix2 As Matrix
Set oMatrix2 = ThisApplication.TransientGeometry.CreateMatrix

Dim oOrigin2 As Point
Dim oX2 As Vector
Dim oY2 As Vector
Dim oZ2 As Vector

Call oMatrix2.GetCoordinateSystem(oOrigin2, oX2, oY2, oZ2)

Dim paraLänge As Object
Dim paraAbstand As Object
Dim paraQuer As Object
Dim paraFuss As Object
Dim paraHöhe As Object
Dim oParameter As Object
Dim paraType As Object
Dim k As Long

Set paraLänge = oAsmDoc.ComponentDefinition.Occurrences.Item(i).Definition.Parameters.Item("Segmentlänge")
Set paraQuer = oAsmDoc.ComponentDefinition.Occurrences.Item(i).Definition.Parameters.Item("Anzahl_Querstreben")
Set paraFuss = oAsmDoc.ComponentDefinition.Occurrences.Item(i).Definition.Parameters.Item("Anzahl_Standfüße")
Set paraHöhe = oAsmDoc.ComponentDefinition.Occurrences.Item(i).Definition.Parameters.Item("Eingabe_Höhe")
Set paraAbstand = oAsmDoc.ComponentDefinition.Occurrences.Item(i).Definition.Parameters.Item("Abstand_Kettenmitte")

iRow = iRow + 1

Debug.Print

xlWS.Cells(iRow, 1).value = oOcc.name

xlWS.Cells(iRow, 3).value = 0

xlWS.Cells(iRow, 4).value = paraLänge.value
xlWS.Cells(iRow, 4).value = Round(xlWS.Cells(iRow, 4).value / 100, 3)

xlWS.Cells(iRow, 5).value = paraAbstand.value
xlWS.Cells(iRow, 5).value = Round(xlWS.Cells(iRow, 5).value / 100, 3)

xlWS.Cells(iRow, 6).value = 0

xlWS.Cells(iRow, 7).value = 0

xlWS.Cells(iRow, 8).value = paraHöhe.value
xlWS.Cells(iRow, 8).value = Round(xlWS.Cells(iRow, 8).value / 100, 3)

xlWS.Cells(iRow, 9).value = oOL.x
xlWS.Cells(iRow, 9).value = Round(xlWS.Cells(iRow, 9).value / 100 * -1, 3)

xlWS.Cells(iRow, 10).value = paraHöhe.value
xlWS.Cells(iRow, 10).value = Round(xlWS.Cells(iRow, 10).value / 100, 3)

xlWS.Cells(iRow, 11).value = oOL.y
xlWS.Cells(iRow, 11).value = Round(xlWS.Cells(iRow, 11).value / 100, 3)

xlWS.Cells(iRow, 13).value = Round((oY1.AngleTo(oY2) * 180) / 3.14159265 - 90, 0)

Next

XL.Cells.Select
XL.Cells.EntireColumn.AutoFit
xlWS.Range("A1").Select

sDocName = ThisApplication.ActiveDocument.FullFileName
If sDocName = "" Then
sDocName = "c:\temp\x"
Else
sDocName = Mid(sDocName, 1, Len(sDocName) - 4)
End If

If Dir(sDocName & ".xls") <> "" Then
i = 1
Do While Dir(sDocName & "_" & i & ".xls") <> ""
i = i + 1
Loop
sDocName = sDocName & "_" & i
End If

xlWB.SaveAs FileName:=sDocName

Set xlWS = Nothing
Set xlWB = Nothing
Set XL = Nothing

End Sub

Das habe ich mir mal so zusammenkopiert. Es funktioniert auch Teilweise aber noch nicht komplett. Hier wird sozusagen der Winkel zwischen zwei Vektoren bestimmt. Hätte da jemand eine "schönere" Idee also ich weiß, dass Inventor mit Matrixen arbeitet aber leider weiß ich nicht wie ich mir diese ausgeben lassen kann.

Vielen Dank und freundliche Grüße

Valentin

Betreff: Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen

fullevent — Mon, 10 May 2021 08:09:15 GMT

Hallo @Anonymous,

ich habe leider versäumt hier zu antworten, aber du hast meinen Beitrag ja schon entdeckt.

Hier der Link zu dem Beitrag:

https://forums.autodesk.com/t5/inventor-deutsch/zugriff-auf-aktuellen-versatz-mit-ilogoc/m-p/10301955#M21749

Hier auch nochmal der Code um diesen Beitrag hier auch zu beantworten:

Private Sub all_angle_of_comp() 'Alle Winkel in Grad dPi = Atn(1) * 4 Dim oOcc As ComponentOccurrence Set oOcc = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Komponente auswählen..") Set oRotMat = oOcc.Transformation Dim v1 As String, v2 As String, v3 As String, w1 As String, w2 As String, w3 As String dPi = Atn(1) * 4 v1 = "X-Versatz = " & Round(oRotMat.Cell(1, 4) * 10, 3) v2 = "Y-Versatz = " & Round(oRotMat.Cell(2, 4) * 10, 3) v3 = "Z-Versatz = " & Round(oRotMat.Cell(3, 4) * 10, 3) w1 = "X-Winkel = " & Round(ArcTan2(oRotMat.Cell(2, 3), oRotMat.Cell(3, 3)) * 180 / dPi, 3) w2 = "Y-Winkel = " & Round(-ArcSin(oRotMat.Cell(1, 3)) * 180 / dPi, 3) w3 = "Z-Winkel = " & Round(ArcTan2(oRotMat.Cell(1, 2), oRotMat.Cell(1, 1)) * 180 / dPi, 3) MsgBox oOcc.Name & vbCr & vbCr & v1 & vbCr & v2 & vbCr & v3 & vbCr & vbCr & w1 & vbCr & w2 & vbCr & w3, , "KrA" End Sub Private Function ArcSin(x As Double) As Double dPi = Atn(1) * 4 If Abs(x) = 1 Then ArcSin = (Sgn(x) * dPi / 2) Else ArcSin = (Atn(x / Sqr(1 - x ^ 2))) End If End Function Private Function ArcCos(x As Double) As Double dPi = Atn(1) * 4 If Abs(x) = 1 Then ArcCos = (dPi / 2 - (Sgn(x) * dPi / 2)) Else ArcCos = (dPi / 2 - Atn(x / Sqr(1 - x ^ 2))) End If End Function Public Function ArcTan2(y As Double, x As Double) As Double If x > 0 Then ArcTan2 = Atn(y / x) ElseIf x < 0 Then ArcTan2 = Sgn(y) * (Pi - Atn(Abs(y / x))) ElseIf y = 0 Then ArcTan2 = 0 Else ArcTan2 = Sgn(y) * Pi / 2 End If End Function

Viele Grüße,

Betreff: Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen

Anonymous — Mon, 10 May 2021 08:38:18 GMT

Vielen Dank

Thema "Betreff: Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen" in Inventor - Deutsches Forum

Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen

Betreff: Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen

Betreff: Aktuellen Versatz unterschiedlicher Bauteile einer Baugruppe in Inventor auslesen