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

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月

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

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