---

Hallo,
ich habe folgenden Code mit dem Makrorecorder aufgezeichnet:

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim constraints1 As Constraints
Set constraints1 = product1.Connections("CATIAConstraints")

Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Zusammenbau/ZSB Formrahmen AS.1/Formrahmen AS.1/!xy-Ebene")

Dim reference2 As Reference
Set reference2 = product1.CreateReferenceFromName("Zusammenbau/Formeinsatz AS.1/!xy-Ebene")

Dim constraint1 As Constraint
Set constraint1 = constraints1.AddBiEltCst(catCstTypeOn, reference1, reference2)

constraint1.Orientation = catCstOrientSame

End Sub

---

Wenn ich jetzt "ZSB Formrahmen AS.1/Formrahmen AS.1" im Zusammenbau ersetze mit einer Komponente die genauso heißt, bekomme ich die Fehlermeldung CreateReferenceFromName ist fehlgeschlagen. Wenn ich aber vor dem Ausführen des Codes alles speicher und dann neu wieder öffne, funktioniert es. Kann mir jemand sagen, woran das liegt?

Schönen Gruß
Stefan

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

---

Hi,

Idee 1: Versuch mal vorm End Sub ein:
"product1.Update"
Idee 2: Verwende:
"Set constraint1 = constraints1.AddBiEltCst(catCstTypeDistance, reference1, reference2)
Set length1 = constraint1.Dimension
length1.Value = 0"

I hope it funzt!

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

---

Hallo Stefan,

konnte das Problem auch nur mit "Save&Reload" umgehen.
Das ganze wurde hier schon mal besprochen.

Vorschlag:
Forsche weiter und poste die Lösung...

Gruß
CAMiCADse

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