Thema "Betreff: VBA Occurence Modellparameter auslesen" in Inventor - Deutsches Forum

VBA Occurence Modellparameter auslesen

beckerrene — Fri, 27 Jan 2023 19:05:55 GMT

Hallo zusammen,

ich versuche mit einem VBA-Skript mehrere ähnliche Bauteile, deren Reihenfolge in einer Excel-Tabelle steht, nebeneinandergereiht in eine Baugruppe einzufügen. Der Abstand der Bauteile ergibt sich durch deren Modellparameter "d0". Ich füge das Bauteil als Occurrence ein, aber wie komme ich an den Modellparameter dieser Occurrence? (Zeile 60). Mit Hilfe der API-Dokumentation habe ich das nicht hinbekommen. Wie komme ich an diesen Wert?

Grüße,

Rene

Ich nutze Inventor 2023

Public Sub Klemmleistengenerator() Dim excelApp As Excel.Application Set excelApp = CreateObject("Excel.Application") If Err Then MsgBox "Cannot access excel." Exit Sub End If ' Open the spreadsheet. Dim wb As Workbook Set wb = excelApp.Workbooks.Open("C:\xxx\Mappe1.xlsx") If Err Then MsgBox "Unable to open the Excel document." Exit Sub End If ' Access a certain sheet. Dim ws As WorkSheet Set ws = wb.Worksheets.Item("Tabelle1") If Err Then MsgBox "Unable to get the worksheet." Exit Sub End If Dim row As Integer Dim oAsmCompDef As AssemblyComponentDefinition Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition ' Set a reference to the transient geometry object. Dim oTG As TransientGeometry Set oTG = ThisApplication.TransientGeometry ' Create a matrix. A new matrix is initialized with an identity matrix. Dim oMatrix As Matrix Set oMatrix = oTG.CreateMatrix Dim oOcc As ComponentOccurrence Dim subPath As String Dim kSeries As String Dim kType As String Dim klemmenPos As Double For row = 1 To 100 If (ws.Cells(row, 1) = "") Then Exit For Else subPath = ws.Cells(row, 1) kSeries = Split(subPath, "-")(0) kType = Split(subPath, "-")(1) Call oMatrix.SetTranslation(oTG.CreateVector(0, 0, 5.2 * row / 10)) ' Add the occurrence. If IsFile("D:\xxx\" + kSeries + "\" + subPath + ".ipt") Then Set oOcc = oAsmCompDef.Occurrences.Add("D:\xxx\" + kSeries + "\" + subPath + ".ipt", oMatrix) ' Hier möchte ich den Modellparameter "d0" vpn oOcc Else MsgBox "Klemme " + subPath + " nicht gefunden" GoTo QuitAll End If End If Next row QuitAll: wb.Close excelApp.Quit

Betreff: VBA Occurence Modellparameter auslesen

etaCAD — Mon, 30 Jan 2023 08:41:13 GMT

ich habe jetzt gerade keinen Inventor zur Hand aber so kommst du weiter:

oOcc.ComponentDefition.Document.ComponentDefinition.Parameters

Betreff: VBA Occurence Modellparameter auslesen

fullevent — Mon, 30 Jan 2023 11:11:07 GMT

Hallo @beckerrene,

versuch es mal mit dieser Zeile:

oOcc.Definition.Parameters.Item("d0").Value

Du musst nur mit den Einheiten aufpassen.
Falls im Parameter d0 z.B. 125 mm gespeichert sind, wird dir 12,5 als Wert zurückgegeben. Hintergrund ist, dass Inventor intern in cm gerechnet wird.

Grüße,

Betreff: VBA Occurence Modellparameter auslesen

hazem.adel — Thu, 09 Mar 2023 16:04:15 GMT

Danke Aleksandar und Andreas für eure Mühe.

Hi @beckerrene o Hallo ,

hat dir die Tipps oben geholfen und deine Frage beantwortet?

Wenn ja, kannst du gerne auf den Button "Lösung akzeptieren" klicken, damit auch andere Anwender von der Information profitieren können.

Ansonsten kannst du uns gerne auch ein Update geben, damit man weiß was bei dir nun der Stand der Dinge ist und wie man eventuell noch helfen kann. 🙂