---

Hallo,

ich möchte über CATScript folgendes automatisieren:

Der Anwender soll interaktiv zwei Ebenen selektieren. Zwischen diesen Ebenen soll ein Assembly-Constraint des Typs "Coincidence" erzeugt werden.

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product
Set selection_Planes = productDocument1.Selection

Dim sFilter_Plane(0) As Variant
sFilter_Plane(0) = "Plane"
selection_Planes.SelectElement (sFilter_Plane) ,"Selektieren Sie die erste Ebene.", True
Dim Ebene1 as Reference
Set Ebene1 = selection_Planes.Item(1).Reference
selection_Planes.Clear

Dim sFilter_Plane2(0)As Variant
sFilter_Plane2(0) = "Plane"
selection_Planes.SelectElement (sFilter_Plane2) ,"Selektieren Sie die zweite Ebene.", True
Dim Ebene2 as Reference
Set Ebene2 = selection_Planes.Item(1).Reference
selection_Planes.Clear

Dim ref1 As Reference
Set ref1 = Ebene1

Dim ref2 As Reference
Set ref2 = Ebene2

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

Dim constraint1 As Constraint
Set constraint1 = constraints1.AddBiEltCst(2,  ref1, ref2)

constraint1.Orientation = catCstOrientSame

product1.Update

End Sub

Mit diesem Script erhalte ich die Fehlermeldung: Verfahren AddBiEltCst fehlgeschlagen. Es handelt sich hierbei nur um zwei Parts in einem Product:

Product
----Part1
----Part2

Danke für Mithilfe

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

---

Servus!

ich wollte Dich fragen, ob du ne Lösung auf das Problem gefunden hast. Denn ich hab sowas ähnliches erstellt, und bin gerade am Verzweifeln, weil ich den Fehler nicht finde.

Alles funzt, nur das "Verfahren schlägt immer fehl bei AddBiEltCst", hab auch schon versucht integer und enum wert zu verwenden, keine Chance

Hoffe bald von Dir zu hören
viele liebe Grüsse und Danke

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