Hallo!
Antwort laut: flexible Unterbaugruppe kann nicht fixieren.
Hier ist ein Beispiel:
Sub CATMain()
Set oProd = CATIA.ActiveDocument.Product
Set Constrs = oProd.Connections("CATIAConstraints")
For i = 1 To oProd.Products.Count
sVaterName = oProd.Name
sUnterProdName = oProd.Products.Item(i).Name
sRefName = sVaterName & "/" & sUnterProdName & "/!" & sVaterName & "/" & sUnterProdName & "/"
Set oRef = oProd.CreateReferenceFromName(sRefName)
On Error Resume Next
Set Constr = Constrs.AddMonoEltCst(catCstTypeReference, oRef)
If Err.Number <> 0 Then
MsgBox "flexible Unterbaugruppe"
Else
MsgBox "rigid Unterbaugruppe"
Set osel = CATIA.ActiveDocument.Selection
osel.Clear
osel.Add Constr
osel.Delete
End If
On Error GoTo 0
Next
End Sub
------------------
Mit freundlichen Grüßen,
JuPaV
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP