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

robbin840311

求交点的代码如下：

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月

wylong

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

wylong

你用三维观察器一看便知

动态

robbin840311

谢谢楼上的，正如你说。