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

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

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

求交点的代码如下：
Sub tt()
Dim p1 As AcadLWPolyline
Dim p2 As AcadLWPolyline
Dim pBasePt As Variant

ThisDrawing.Utility.GetEntity p1, pBasePt
ThisDrawing.Utility.GetEntity p2, pBasePt

Dim varInsPt As Variant
varInsPt = p1.IntersectWith(p2, acExtendNone)

Dim i As Integer
i = UBound(varInsPt)

MsgBox i

End Sub
为什么红色的多段线与矩形多段线间没有交点呢？
罗简单
2008年12月
**** Hidden Message *****

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

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

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

你用三维观察器一看便知



动态

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

谢谢楼上的，正如你说。

查看完整版本: [请明总与兰州人关注下]多段线间竟然无交点。