CheckInfiniteLineNormalIntersection

From scripting
Revision as of 05:11, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function CheckInfiniteLineNormalIntersection(PtObj As Variant, SurfObj As Variant, ConstSet As HybridBody) As Boolean On Error GoTo blast Dim TestInt As HybridShapeLineNorm...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function CheckInfiniteLineNormalIntersection(PtObj As Variant, SurfObj As Variant, ConstSet As HybridBody) As Boolean
On Error GoTo blast
Dim TestInt As HybridShapeLineNormal
Set TestInt = MyHSFactory.AddNewLineNormal(SurfObj, PtObj, 0, 5, True)
TestInt.SetLengthType 1
ConstSet.AppendHybridShape TestInt
CATIA.ActiveDocument.Part.UpdateObject TestInt
If CheckIntersection(TestInt, SurfObj) Then
    CheckInfiniteLineNormalIntersection = True
Else
    CheckInfiniteLineNormalIntersection = False
End If
MyHSFactory.DeleteObjectForDatum TestInt
Exit Function
blast:
MyHSFactory.DeleteObjectForDatum TestInt
CheckInfiniteLineNormalIntersection = False
End Function