Difference between revisions of "FilletCheck"

Latest revision as of 05:31, 22 April 2017

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