Hallo Bernd,
danke füe Deine Antwort,
hat mir sehr weitergeholfen.
Code:
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim constraints1 As Collection
Set constraints1 = product1.Connections("CATIAConstraints")
Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Product2/Part7.1/!Absolutes Achsensystem")
Dim reference2 As Reference
Set reference2 = product1.CreateReferenceFromName("Product2/Part8.1/!Absolutes Achsensystem")
Dim constraint1 As Constraint
Set newCst = constraints1.AddBiEltCst(catCstTypeOn, reference1, reference2)
newCst.Name = "Bauteil XY"
product1.Update
End Sub
Gruß Peter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP