请教多段线相交问题

arden

假设图内有大量的多段落线,任取其中一根,如何快速确定其它的多段线是否与所选这根相交？当然不能采用一根根试的办法

雪山飞狐_lzh

先用GetBoundingBox返回对象边框的最大和最小点，再。。。

arden

"先用GetBoundingBox返回对象边框的最大和最小点，再。。。"

是用最大和最小点做框选，然后再一根根与框选到的实体比较吗？这样做只是缩小了范围，还有没有其它办法

zhuxuhong

用这种方法可以做到的

Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")
    
    ' Add all the entities that lie within a fence to the selection set
    Dim mode As Integer
    Dim pointsArray(0 To 11) As Double
    mode = acSelectionSetFence
    pointsArray(0) = 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0
    pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0
    pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0
    pointsArray(9) = 28: pointsArray(10) = -3: pointsArray(11) = 0
   
    ssetObj.SelectByPolygon mode, pointsArray

arden

没看明白,好象回答的不是我的问题