Hallo!
Ich möchte in einem Part zwei Beziehungen herstellen, dabei ist das ausgewählte Teil in einer geladenen Baugruppe.
Dazu folgende zwei Codes:
Dim MeinOParameters As Object
Dim MeinPartDoc As PartDocument
Dim MeinPart As Part
Dim Relation As Object
Dim MeinPartNummer As String
Dim PropertiesParameter As Object
Dim FormelW As Formula
Dim FormelA As Formula
1. für Beziehung zu "Abmessung/Typ" :
Set MeinPartDoc = TempProduct.ReferenceProduct.Parent
Set MeinOParameters = MeinPartDoc.Part.Parameters
MeinPartNummer = TempProduct.PartNumber
Set PropertiesParameter = MeinOParameters.Item(MeinPartNummer & "\Eigenschaften\Abmessung/Typ")
Set MeinPart = MeinPartDoc.Part
Set Relation = MeinPart.Relations
Set FormelA = Relation.CreateFormula("FormelA", "", PropertiesParameter, MeinPartNummer & "\Definition")
MeinPart.Update
Da kommt es zum Fehler, aber nur bei bereits vorhandenen Teilen. Mit Neuteil funktioniert es!?
2. Beziehung zu Parameter Material und "Werkstoff/Hersteller":
Set MeinPartDoc = TempProduct.ReferenceProduct.Parent
Set MeinOParameters = MeinPartDoc.Part.Parameters
MeinPartNummer = TempProduct.PartNumber
Set PropertiesParameter = MeinOParameters.Item(MeinPartNummer & "\Eigenschaften\Werkstoff/Hersteller")
Set MeinPart = MeinPartDoc.Part
Set Relation = MeinPart.Relations
' Alt : Set Formel = Relation.CreateFormula("Formel", "", PropertiesParameter, MeinPartNummer & "\Definition")
Set FormelW = Relation.CreateFormula("FormelW", "", PropertiesParameter, "Material")
Das funktioniert immer.
Hat jemand eine Idee für den Fehler?
Gruß
Johannes
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP