Snowflying 发表于 2006-6-12 14:24:00

intersecWith()方法的一个重要bug

<P>intersecWith 方法是一个非常有用的方法，VBA手册中的给出的示例代码如下</P>
<P>在使用过程中我发现下面的代码不能够正确运行。具体说&nbsp;If VarType(intPoints) &lt;&gt; vbEmpty Then&nbsp; 这种判断方式有问题。按照手册的说法，如果有交点返回交点坐标，如果没有交点则不返回任何值，根据我的实际测试，即使是没有交点，返回的也是一个double（）变量！！此时vartype（） typename（）的值分别是 8197 和 double（）（vba语言参考中没有关于此值的说明，与此值相近的是 常数vbArry&nbsp; 值8192&nbsp; 代表数组&nbsp; ） 而此时的 ubound(变量) 的值返回的是-1&nbsp; ！！</P>
<P>也就是说如果你想使用示例代码中的方法测试对象是否有交点不能的到正确的方法 应为无论是否有交点&nbsp; vartype(交点) 的值 都不等于 vbEmpty&nbsp; 0&nbsp;&nbsp; ！！</P>
<P>我的测试环境是&nbsp;&nbsp; autoCAD 2005 简体中文版 office2003&nbsp; OS &nbsp;windows XP sp2&nbsp;&nbsp; </P>
<P>不知道我遇到的问题是否带有普遍性 或者说我上述的现象是否正确，请各位朋友验证一下。<BR></P>
<P>&nbsp;&nbsp; ' Find the intersection points between the line and the circle<BR>&nbsp;&nbsp;&nbsp; Dim intPoints As Variant<BR>&nbsp;&nbsp;&nbsp; intPoints = lineObj.IntersectWith(circleObj, acExtendNone)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Print all the intersection points<BR>&nbsp;&nbsp;&nbsp; Dim I As Integer, j As Integer, k As Integer<BR>&nbsp;&nbsp;&nbsp; Dim str As String<BR>&nbsp;&nbsp;&nbsp; If VarType(intPoints) &lt;&gt; vbEmpty Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For I = LBound(intPoints) To UBound(intPoints)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; str = "Intersection Point[" &amp; k &amp; "] is: " &amp; intPoints(j) &amp; "," &amp; intPoints(j + 1) &amp; "," &amp; intPoints(j + 2)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox str, , "IntersectWith 示例"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; str = ""<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I = I + 2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = j + 3<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k = k + 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<BR>&nbsp;&nbsp;&nbsp; End If<BR></P>

Snowflying 发表于 2006-6-12 14:28:00

<P>我上面贴的代码是 手册中的代码示例，我使用的时候 是比较两个线段是否相交，结果无论是 平行线还是 非平行线 vartype（交点 as variant）返回的都不是&nbsp; vbEmpty&nbsp;&nbsp;&nbsp; &nbsp;</P>

68651521 发表于 2006-6-14 10:54:00

<P>我也遇到这个BUG。</P>
<P>闷了很久 MSGBOX了半天 </P>
<P>最后只好把If VarType(intPoints) &lt;&gt; vbEmpty then</P>
<P>改成 If ubound(intPoints) &lt;&gt; -1 then</P>
<P>才行 。 巨闷ing。</P>

Snowflying 发表于 2006-6-19 13:49:00

haha终于遇到知音了 我也是 msgbox 半天 后来的用的方法和你的一样啊

ljq 发表于 2006-6-19 18:57:00

<P>还有多余点问题呢,明明4个交点,它确返回5个或更多个交点.所以使用IntersectWith()一定要谨慎噢!</P>
页: [1]
查看完整版本: intersecWith()方法的一个重要bug