robbin840311 发表于 2008-12-4 10:27:00

[请明总与兰州人关注下]多段线间竟然无交点。

本帖最后由 作者 于 2008-12-4 11:10:56 编辑 <br /><br /> <p></p><p>求交点的代码如下：</p><p>Sub tt()<br/>&nbsp; Dim p1 As AcadLWPolyline<br/>&nbsp; Dim p2 As AcadLWPolyline<br/>&nbsp; Dim pBasePt As Variant<br/>&nbsp; <br/>&nbsp; ThisDrawing.Utility.GetEntity p1, pBasePt<br/>&nbsp; ThisDrawing.Utility.GetEntity p2, pBasePt<br/>&nbsp; <br/>&nbsp; Dim varInsPt As Variant<br/>&nbsp; varInsPt = p1.IntersectWith(p2, acExtendNone)<br/>&nbsp; <br/>&nbsp; Dim i As Integer<br/>&nbsp; i = UBound(varInsPt)<br/>&nbsp; <br/>&nbsp; MsgBox i<br/>&nbsp; <br/>End Sub</p><p></p><p>为什么红色的多段线与矩形多段线间没有交点呢？</p><p></p><p>罗简单</p><p>2008年12月</p>

wylong 发表于 2008-12-4 13:41:00

红色的多段线的标高(18)和矩形多段线的标高（0）不相等，两者不再一个平面上，当然会没有交点

wylong 发表于 2008-12-4 13:46:00

<p>你用三维观察器一看便知</p><p>动态</p>

robbin840311 发表于 2008-12-4 14:32:00

谢谢楼上的，正如你说。
页: [1]
查看完整版本: [请明总与兰州人关注下]多段线间竟然无交点。