FilletCheck
From scripting
Function FilletCheck(FilletObj As Variant, Orientation1, Orientation2, TOri1, TOri2) As Boolean On Error GoTo Blast3 Dim MyPart As Part Set MyPart = CATIA.ActiveDocument.Part FilletObj.TangentOrientation1 = TOri1 FilletObj.TangentOrientation2 = TOri2 FilletObj.Orientation1 = Orientation1 FilletObj.Orientation2 = Orientation2 MyPart.UpdateObject FilletObj FilletCheck = True Exit Function Blast3: FilletCheck = False End Function