如何求得多个矩形框坐标

烟盒迷唇

各位大神，如何通过框选获得多个挨着或者不挨着的矩形框的外形框坐标列表？

(defun c:tt (/ a lst n ss)
        (setq ss (ssget '((0 . "*POLYLINE"))))
        (if ss
                (progn
                        (repeat (setq n (sslength ss))
                                (if (setq a (try-getbox (ssname ss (setq n (1- n)))))
                                        (setq lst (cons a lst))
                                )
                        )
                        ;接下来该怎么写？
                       
                       
                                               
                )
        )
        (princ)
)

guosheyang

;(qdjdzb (setq ss(ssget'((0 . "LWPOLYLINE")))) )
(defun qdjdzb(ss / DYG ENLIST E_IN GS GS2 LSS LST12 LST23 SS2 TYMB TYMB2 TYMB2_CP)
  (setq tymb(ss2tym ss)tymb2 tymb)
(repeat(setq gs(length tymb))
   (setq enlist (entget (setq dyg(car tymb)))
         lss (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) enlist)));提取多边形节点
   (if(and (setq ss2(ssget "W" (last lss)(cadr lss) ))(>(sslength ss2)1))
      (progn
        (setq e_in(ss2tym ss2))
        (repeat(setq gs2(length e_in))
          (if(not(equal(car e_in)(car tymb)))
             (setq tymb2(vl-remove(car e_in)tymb2))
          )
          (setq e_in(cdr e_in))
        )
       )
   )
    (setq tymb(cdr tymb))
)
  (setq tymb2_cp tymb2)
  (while(car tymb2)
    (setq lst12(mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget (car tymb2))))
          lst23(cons (list(last lst12)(cadr lst12))lst23)
          tymb2(cdr tymb2))
  )
  (list tymb2_cp lst23)
)
;;;自定义函数功能：选择集转图元名表
(defun ss2tym (ss)
  (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
)

ssyfeng

如果外框矩形和里面的矩形有不同之处：比如矩形面积、边长等等，再进行判断得到；如果外框矩形和里面的矩形都没有特殊的地方，很难确定哪些是你需要的包围盒角点。
或者直接说出你的最终目的

lee50310

烟盒迷唇 发表于 2021-10-27 14:53
框选怎么获得呢？不用图层、颜色筛选的。

2. ;by lee50310
   
3. ;--------------------------------------------------------------------------
   
4. (defun c:tt2( / ss lst oLL oUR)
   
5.      (setq wel nil)
   
6.      (setq ss(ssget (list (cons 62 1)(cons 70 1)))) ;過濾封閉紅色框
   
7.      (setq lst (change_list ss))                    
   
8.          (foreach  x lst         
   
9.                        (obb x)
   
10.                        (setq wel (cons (list oLL oUR) wel))         
    
11.          )
    
12. )
    
13. ;;------------------------------------------------------------------------
    
14. ;;物體最小邊界框
    
15. (defun obb (ent); = Object's Bounding Box corners
    
16.     (vla-getboundingbox (vlax-ename->vla-object ent) 'minpt 'maxpt)
    
17.     (setq
    
18.       oLL (vlax-safearray->list minpt); Object's Lower Left
    
19.       oUR (vlax-safearray->list maxpt); Object's Upper Right
    
20.     ); setq
    
21.   ); defun -- obb
    
22. 
    
23. ;;------------------------------------------------------------------------
    
24. ;將集合物轉圖元名稱表
    
25. (defun change_list (ss)
    
26.   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    
27. )
    
28. ;;------------------------------------------------------------------------

;by lee50310 <br /> ;--------------------------------------------------------------------------<br /> (defun c:tt2( / ss lst oLL oUR)<br />      (setq wel nil)<br />      (setq ss(ssget (list (cons 62 1)(cons 70 1)))) ;過濾封閉紅色框<br />      (setq lst (change_list ss))                    <br />          (foreach  x lst         <br />                        (obb x)<br />                        (setq wel (cons (list oLL oUR) wel))         <br />          )<br /> ) <br /> ;;------------------------------------------------------------------------<br /> ;;物體最小邊界框<br /> (defun obb (ent); = Object's Bounding Box corners<br />     (vla-getboundingbox (vlax-ename->vla-object ent) 'minpt 'maxpt)<br />     (setq<br />       oLL (vlax-safearray->list minpt); Object's Lower Left<br />       oUR (vlax-safearray->list maxpt); Object's Upper Right<br />     ); setq<br />   ); defun -- obb<br /> <br /> ;;------------------------------------------------------------------------<br /> ;將集合物轉圖元名稱表<br /> (defun change_list (ss)<br />   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))<br /> )<br /> ;;------------------------------------------------------------------------

guosheyang

红色矩形的对角坐标吗   ssget  w    和ssget wp 都可以

cghdy

接下来你要干嘛，不是已经获取了矩形坐标了吗

烟盒迷唇

cghdy 发表于 2021-10-27 09:28
接下来你要干嘛，不是已经获取了矩形坐标了吗

我想排除掉不合格的坐标，只保留最外层矩形的坐标

ssyfeng

如果是最外面红色框的坐标，直接加个过滤就可以只选中红色框了。
(setq ss (ssget '((0 . "*POLYLINE") (62 . 1))))

lee50310

；   wel = 最外層矩形框 點串列
;例:wel=(((1844.57 1003.68 0.0) (2914.55 1675.69 0.0))
               ((2914.55 1003.68 0.0)  (3984.53 1675.69 0.0))
               ((3984.53 1003.68 0.0)  (5054.52 1675.69 0.0))
               ((1844.57 -22.7736 0.0) (2914.55 649.238 0.0))
               ((3028.82 -22.7736 0.0) (4098.8 649.238 0.0))
               ((4447.96 -22.7736 0.0) (5517.94 649.238 0.0)))

cghdy

烟盒迷唇 发表于 2021-10-27 10:05
我想排除掉不合格的坐标，只保留最外层矩形的坐标

有现成的函数，获取选择集包围盒

烟盒迷唇

ssyfeng 发表于 2021-10-27 10:21
如果是最外面红色框的坐标，直接加个过滤就可以只选中红色框了。
(setq ss (ssget '((0 . "*POLYLINE") (6 ...

不一定是红色的，红色只是为了突出而已。

烟盒迷唇

cghdy 发表于 2021-10-27 11:50
有现成的函数，获取选择集包围盒

看过了，没找到合适的。

烟盒迷唇

lee50310 发表于 2021-10-27 11:10
；   wel = 最外層矩形框 點串列
;例:wel=(((1844.57 1003.68 0.0) (2914.55 1675.69 0.0))
         ...

框选怎么获得呢？不用图层、颜色筛选的。