CheckIntersectionWithMoreOptions

From scripting
Jump to: navigation, search
Function CheckIntersectionWithMoreOptions(Object1 As Variant, Object2 As Variant, CurPart As Part, CurHSFactory As HybridShapeFactory) As Boolean
On Error GoTo Blast
Dim TestInt As HybridShapeIntersection
Set TestInt = CurHSFactory.AddNewIntersection(Object1, Object2)
CurPart.UpdateObject TestInt
CheckIntersectionWithMoreOptions = True
Exit Function
Blast:
CheckIntersectionWithMoreOptions = False
End Function