[讨论]：intersectWit函数存在Bug？

zf9568

具体内容请参照下面的帖子：
http://p4.xdcad.net/forum/showth ... 2641701#post2641701
下面是我的测试代码：
Public Sub test()
    On Error GoTo LAST
   
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("Exapmle")
    sset.SelectOnScreen
   
    If sset.Count = 2 Then
        Dim ent1 As AcadEntity, ent2 As AcadEntity
        Set ent1 = sset.Item(0)
        Set ent2 = sset.Item(1)
        Dim pt As Variant
        pt = ent1.IntersectWith(ent2, acExtendNone)
        
        If UBound(pt) < 0 Then
            MsgBox "无交点"
        Else
            MsgBox "有交点"
        End If
    End If
   
LAST:
    sset.Delete
End Sub

dgp000

长见识了！
不过，
CAD大观园第1期发布！欢迎下载－－
http://www.cadhelp.net/bbs
域名改了！

macula55

intersectWit函数本来就是不很好用的。会经常出错