Moin!
Mit einem Makro möchte ich in einem Produkt ein Part anlegen und dieses sofort fixieren.
Der entsprechende Teil des Makros ist:
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim products1 As Products
Set products1 = product1.Products
Dim product2 As Product
Set product2 = productDocument1.Product
Set product2 = products1.AddNewComponent("Part", "GitterNetz")
Dim productDocument9 As Document
Set productDocument9 = CATIA.ActiveDocument
Dim product9 As Product
Set product9 = productDocument1.Product
Dim constraints5 As Collection
Set constraints5 = product2.Connections("CATIAConstraints")
Dim reference1 As Reference
Set reference1 = product2.CreateReferenceFromName("Produkt1/GitterNetz.1/!Produkt1/GitterNetz.1/")
Dim constraint1 As Constraint
Set constraint1 = constraints5.AddMonoEltCst(0, reference1)
Als Makro für sich funktionieren diese Zeilen.
Diese Zeilen sind aber nur ein Teil des Makros und in diesem Funktioniert es nicht, dort kommt in der Zeile
Set constraints5 = product2.Connections("CATIAConstraints")
Die Fehlermeldung „Runtime error 13 Type mismatch“.
Ich bin dankbar für jeden Hinweis zur Lösung des Problems.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP