如何利用vba得到与某选定直线相交的直线的集合

608

A.
    最好的办法是用selection. SelectByPolygon acSelectionSetCrossing ,PointsList 做起始直线的缓冲区，用缓冲区做选择的区域，如下图。
（1）圆心处为Conner点，可以由 直线的端点 经过几何算法得到，需要四个点都计算出来，填入pointList。
（2）绿线为你所作最tight矩形的半边长，你可以设r=0.000000000000000000001其实缓冲区就变成跟直线本身一样啦。
（3）红色矩形为你所要求的最tight外界矩形，即缓冲区。
（4）青色矩形是最小外接矩形(B方法中要用到)

这样就把99。999999999％的不相交直线排除了。其实如果r足够小，基本上就是你要的
线段选集合了！



B.
     当然如果你认为这样有点麻烦，那你就直接用line的startPoint 和endPoint做预选线段的集合，使用AcadSelectionSet.Select(Mode As AcSelect, [Point1], [Point2]）。然后用line去和预选集合中的线段进行相交测试。（要排除预选线段里的line本身）。可以加快很多速度。

608

你看看这个。
A.
    最好的办法是用selection. SelectByPolygon acSelectionSetCrossing ,PointsList 做起始直线的缓冲区，用缓冲区做选择的区域，如下图。
（1）圆心处为Conner点，可以由 直线的端点 经过几何算法得到，需要四个点都计算出来，填入pointList。
（2）绿线为你所作最tight矩形的半边长，你可以设r=0.000000000000000000001其实缓冲区就变成跟直线本身一样啦。
（3）红色矩形为你所要求的最tight外界矩形，即缓冲区。
（4）青色矩形是最小外接矩形(B方法中要用到)

这样就把99。999999999％的不相交直线排除了。其实如果r足够小，基本上就是你要的
线段选集合了！



B.
     当然如果你认为这样有点麻烦，那你就直接用line的startPoint 和endPoint做预选线段的集合，使用AcadSelectionSet.Select(Mode As AcSelect, [Point1], [Point2]）。然后用line去和预选集合中的线段进行相交测试。（要排除预选线段里的line本身）。可以加快很多速度。

608

没办法，传不上去这个图片。

做的图太丑了，也不会这样吧。：）

烦帮主把上面重复的帖子删了，谢谢先。

608

zxj_76

zxj_76

用SelectByPolygon加过滤器就可以了。

efan2000

首先用GetBoundingBox方法获取实体的包围点（左下角点和右上角点），接着通过这两点用交叉窗选和过滤的方法就可以得到可能相交的实体的集合，最后在选择集中枚举实体，判断有无交点及交点的位置。