Question

用Autocad VBA如何判断整个界面内是否存在图形(多段线)相交情况？求大神解答！

Answer 1

;求交点，
(vla-intersectwith VLA对象 VLA对象 延伸模式）
;延伸模式为 0~3 的整型（0--不延伸,1--延伸基本对象,2--延伸参数传递的对象,3--延伸)

思路1：

1. 选择多段线。

2. 循环函数while或repeat来检查。

3. 如果数量少的话没有问题，如果数量多的话不适合。

思路2：

1. 选择多段线

2. 提取多段线包围盒两个点。

   (vla-GetBoundingBox &ob1 'pt1 'pt2)

   (setq pt1 (vlax-safearray->list pt1));转换坐标【右下角点】

3. 函数(ssget "c" pt1 pt2 '((0 . "LWPOLYLINE")))搜索多段线，while函数检查是否有交点。