[编程申请]：自动寻找和直线相交的对象(polyline)？？？

ironwill2004

想通过画一条直线求出相交的那些Polyline,
但是又不能遍历图上所有的PolyLine因为太多了，花费时间可能太多。*-*3

雪山飞狐(lzh)

以直线的起点到终点的矩形范围构建选择集，再判断是否相交
Sub tt()
On Error Resume Next
Dim objLine As AcadLine
Dim ss As AcadSelectionSet
ThisDrawing.Utility.GetEntity objLine, pnt
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
ss.Select acSelectionSetCrossing, objLine.StartPoint, objLine.EndPoint
MsgBox ss.Count
End Sub