计算选择集外围矩形框的函数

lijiao

近日写了一个计算选择集外围矩形框的函数,觉得有点意思,所以发上来让大家看看,如果大家有兴趣,再发源码

函数调用方式: (get-ss-side)
运行后,提示输入两点框选实体
返回值为一列表: (选择集  外框左下角坐标   外框右上角坐标)
使用条件:
1.需要ET工具支持
2.选择为单选模式,并且要选择的实体必须全部在两点拉出的矩形框内部,不能有交叉的情况
3.该函数在计算大选择集时有优势,比如成千上万个实体
4.目前只考虑了在世界坐标系下进行计算
5.计算时间与实体的分布有关系

liuhe

guosheyang 发表于 2023-12-24 15:26
选择集包围框哈  leemac 也有类似函数

2. ;; Selection Set Bounding Box  -  Lee Mac
   
3. ;; Returns a list of the lower-left and upper-right WCS coordinates of a
   
4. ;; rectangular frame bounding all objects in a supplied selection set.
   
5. ;; sel - [sel] Selection set for which to return bounding box
   
6. 
   
7. (defun LM:ssboundingbox ( sel / idx llp ls1 ls2 obj urp )
   
8.     (repeat (setq idx (sslength sel))
   
9.         (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
   
10.         (if (and (vlax-method-applicable-p obj 'getboundingbox)
    
11.                  (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp))))
    
12.             )
    
13.             (setq ls1 (cons (vlax-safearray->list llp) ls1)
    
14.                   ls2 (cons (vlax-safearray->list urp) ls2)
    
15.             )
    
16.         )
    
17.     )
    
18.     (if (and ls1 ls2)
    
19.         (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list ls1 ls2))
    
20.     )
    
21. )
    
22. 
    

;; Selection Set Bounding Box  -  Lee Mac<br /> ;; Returns a list of the lower-left and upper-right WCS coordinates of a<br /> ;; rectangular frame bounding all objects in a supplied selection set.<br /> ;; sel - [sel] Selection set for which to return bounding box<br /> <br /> (defun LM:ssboundingbox ( sel / idx llp ls1 ls2 obj urp )<br />     (repeat (setq idx (sslength sel))<br />         (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))<br />         (if (and (vlax-method-applicable-p obj 'getboundingbox)<br />                  (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp))))<br />             )<br />             (setq ls1 (cons (vlax-safearray->list llp) ls1)<br />                   ls2 (cons (vlax-safearray->list urp) ls2)<br />             )<br />         )<br />     )<br />     (if (and ls1 ls2)<br />         (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list ls1 ls2))<br />     )<br /> )<br /> <br />

guosheyang

选择集包围框哈  leemac 也有类似函数

你有种再说一遍

建议自己写一个四叉树,然后就知道其中原理了,如果懒得写,可以来ifox

lijiao

这个函数主要用在选择集中实体数量比较大的情况,数量越大,优势越大.

lijiao

liuhe 发表于 2023-12-24 18:08

这个函数也见过,但效率有点低,如果有10万个实体,估计要等上好一会才能出结果,一楼的函数估计不会超过2秒

bonny

lijiao 发表于 2023-12-25 12:29
这个函数也见过,但效率有点低,如果有10万个实体,估计要等上好一会才能出结果,一楼的函数估计不会超过2秒

前提剧情强制设定：选择范围2点，如果是空集添加的选集或角点区域无分布的情况下，那就oyymd了，使用场景有限。