请教高手，关于求交点

keyzero · 发表于 2008-3-21 10:45:00

我的代码如下，(附图如附件)：
Public Sub FindIntersect()
Dim e11 As AcadEntity
Dim e22 As AcadEntity
Dim intPoints As Variant
Set e11 = ThisDrawing.ModelSpace(0)
Set e22 = ThisDrawing.ModelSpace(1)
intPoints = e11.IntersectWith(e22, acExtendNone)
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim str As String
If VarType(intPoints)  vbEmpty Then
For i = LBound(intPoints) To UBound(intPoints)
   str = "Intersection Point[" & k & "] is: " & intPoints(j) & "," & intPoints(j + 1) & "," & intPoints(j + 2)
   MsgBox str, , "IntersectWith Example"
   str = ""
   i = i + 2
   j = j + 3
   k = k + 1
Next
End If
End Sub
附图中的两个图元明明是有交点的啊，为什么显示不出交点的坐标呢？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

keyzero · 发表于 2008-3-21 10:57:00

为什么明明有交点，LBound(intPoints)与 UBound(intPoints)的值还分别为0和-1
初学的同志们请注意了，特别当你第一次使用intersectWith()时，说是用VarType(intPoints) vbEmpty 其实不能判断交点是否存在，这是autocad帮助文件中的一个小错误。
我想知道的是，既然这样，我们应该怎么样来判断两个图元是否有交点？