Code: Select all

Public Sub TestIntersectWith()

    Dim IcadDoc As IntelliCAD.Document
    Set IcadDoc = ActiveDocument
    
    Dim my3DFace As IntelliCAD.Face3D
    Dim p1, p2, p3 As Point
    
    Dim myLine As IntelliCAD.Line
    Dim spoint, epoint As Point
    
    Set p1 = Library.CreatePoint(10, 9, 2)
    Set p2 = Library.CreatePoint(20, 20, 5)
    Set p3 = Library.CreatePoint(25, 8, 3)
    
    Set spoint = Library.CreatePoint(19, 13, 0)
    Set epoint = Library.CreatePoint(19, 13, 7)
    
    Set my3DFace = IcadDoc.ModelSpace.Add3DFace(p1, p2, p3, p3)  '<--- if I don't include the optional point 4, the
    my3DFace.Update                                              '     4th corner is drawn at 0,0 (A bug?)
    
    Set myLine = IcadDoc.ModelSpace.AddLine(spoint, epoint)
    myLine.Update

    Dim IntPoint As Points
    Set IntPoint = myLine.IntersectWith(my3DFace, vicExtendNone) '<--- This is where I get the error!!!

End Sub

Code: Select all

Run-time error '-2147467259 (80004005)':
Method 'IntersectWith' of object 'IIcadline' failed