---

Screenshot2026-07-15094026.png

Guten Morgen,

ich habe eine Werkbankplatte als IPart erstellt. Dieses Ipart ist in einer Baugruppe verbaut.
Gibt es eine Möglichkeit per ilogic/VBA eine neue Variante im Part aus der Baugruppe heraus zu erstellen.

Mein bisherigen (nicht funktionierenden Code):

Code:

---

Dim oPart As PartDocument = "Z:\Konstruktionsumgebung\X\Komponenten\Werkbankplatte.ipt"
Dim oDef As PartComponentDefinition = oPart.ComponentDefinition

Dim oFactory As iPartFactory = oDef.iPartFactory

'letzte Zeile kopieren
Dim oSourceRow As iPartTableRow = oFactory.TableRows.Item(oFactory.TableRows.Count)
Dim oNewRow As iPartTableRow = oSourceRow.Copy()

'Parameter ändern
oNewRow.Item("Länge").Value = "1250"
oNewRow.Item("Tiefe").Value = "700"
oNewRow.Item("Stärke").Value = "40"

'Name der neuen Variante
oNewRow.MemberName = "Neu"

---

Kann mir jemand helfen bzw. mir zeigen wo mein Fehler ist.

Vielen Dank
Grüße Joe

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

---

Hi,

.MemberName ist ReadOnly -> iPartTableRow_MemberName

Den Namen könnte man wohl beim .Copy() angeben -> iPartTableRow_Copy

Ob das schon alle Probleme löst, weiß ich leider nicht. Ich habe es nicht ausprobiert.

------------------
Gruß KraBBy

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

---

Hallo Krabby,
vielen Dank für den Tipp. Leider komme ich noch nicht weiter. Hab den Code modifiziert.

Code:

---

Dim oPart As PartDocument = "Z:\Konstruktionsumgebung\X\Komponenten\Werkbankplatte.ipt"
Dim oDef As PartComponentDefinition = oPart.ComponentDefinition

Dim oFactory As iPartFactory = oDef.iPartFactory

Dim oSourceRow As iPartTableRow
    oSourceRow = oFactory.TableRows.Item(1)

' Copy the source row'
Dim oNewRow As iPartTableRow
    oNewRow = oSourceRow.Copy()
     
'Parameter ändern
oNewRow.Item("Länge").Value = "1250"
oNewRow.Item("Tiefe").Value = "700"
oNewRow.Item("Stärke").Value = "40

---

Aktuell bringt er mir für die erste Zeile eine Fehlermeldung: Unable to cast object of type 'System.String' to type 'Inventor.PartDocument'.

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

---

Sorry, das habe ich überlesen.

Das PartDocument bekommt man z.B. über ThisApplication.Documents.Open
Das wäre der ganz allgemeine Fall.

Hier bist Du ja sicher, dass es bereits geöffnet ist über die aktive Baugruppe, da sollte
ThisApplication.Documents.ItemByName("Z:\K...")
funktionieren.

------------------
Gruß KraBBy

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

---

Hat geklappt.
Tausend Dank für die schnelle Hilfe.
Falls es jemand irgendwann mal benötigt...

Code:

---

Länge = Parameter("Plattenlänge")
Tiefe = Parameter("Plattentiefe")
Stärke = Parameter("Plattenstärke")

Dim oPart = ThisApplication.Documents.ItemByName("Z:\Konstruktionsumgebung\X\Komponenten\Werkbankplatte.ipt")
Dim oDef As PartComponentDefinition = oPart.ComponentDefinition

Dim oFactory As iPartFactory = oDef.iPartFactory

Dim oSourceRow As iPartTableRow
    oSourceRow = oFactory.TableRows.Item(1)

' Copy the source row'
Dim oNewRow As iPartTableRow
    oNewRow = oSourceRow.Copy()
     
'Parameter ändern
oNewRow.Item("Länge").Value = Länge
oNewRow.Item("Tiefe").Value = Tiefe
oNewRow.Item("Stärke").Value = Stärke
oNewRow.Item("Variante").Value = "Werkbankplatte " & Länge & " x " & Tiefe & " x " & Stärke

---

Gruß Joe

[Diese Nachricht wurde von Joe25 am 15. Jul. 2026 editiert.]

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