如何求得多个矩形框坐标

ssyfeng

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

烟盒迷唇

ssyfeng 发表于 2021-10-27 15:12
如果外框矩形和里面的矩形有不同之处：比如矩形面积、边长等等，再进行判断得到；如果外框矩形和里面的矩形 ...

最终目的获得大小不一样的矩形最外框，然后进行批量打印，不用图层、颜色区分筛选。

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 /> ;;------------------------------------------------------------------------

烟盒迷唇

lee50310 发表于 2021-10-27 16:31

不在SSGET里面过滤颜色，因为实际情况比这个复杂，不能靠过滤颜色、封闭、图层之类的来区分。

wzg356

;函数：inorout
;功能：判断一点是否在多边形内
;函数代码：
;;By Xiao_longxin 明经通道
(defun inorout (pt_list pt / e1 n i j va va_count)
  (setq i  0
          va_count 0
          n  (length pt_list)
          pt_list  (append pt_list (list (car pt_list)))
  )
  (repeat n
    (setq va (- (angle pt (nth i pt_list))
            (angle pt (nth (1+ i) pt_list))
      )
    )
    (cond ((> va pi) (setq va (- va pi)))
          ((< va (* -1 pi)) (setq va (+ va pi)))
    )
    (setq va_count (+ va_count va)
            i    (1+ i)
    )
  )
  (if (< (abs (- (abs va_count) pi)) 0.000001) 't  'nil)
)

lee50310

烟盒迷唇 发表于 2021-10-27 16:36
不在SSGET里面过滤颜色，因为实际情况比这个复杂，不能靠过滤颜色、封闭、图层之类的来区分。

顏色,封閉,圖層,這些都不能拿來做過濾的依據.....

那就 指剩下 面積 了  若紅色矩形外框都相等 或是 他們都是圖檔內最大的面積

只能用這個 面積 當過濾條件 應可找出這些外圍框   
假設這些紅色矩形框 面積都是已知定值 例  Rec_area = 719040.24
那麼就可從ssget裏面去 比對 物體面積 >=  Rec_area  面積符合就將物體加入另一個新選集中

wzg356

接15楼
多个不自交多边形lst==(list 点集1 点集2.....)
排除包含或相交的多边形
返回剩余的多边形lst1

(defun getpl( / ss lst lst1)
(if(setq ss (ssget '((0 . "*POLYLINE"))));矩形选择集
        (progn
                (setq ss(vl-remove-if '(lambda(x)(/= (type x) 'ENAME))(mapcar 'cadr (ssnamex ss))))
                ;矩形图元名表
                (setq lst(mapcar '(lambda(l)(mapcar 'cdr(vl-remove-if '(lambda(x)(/= 10 (car x)))(entget l))))ss))
                ;一子表一点集组成的表
                (setq lst1 nil)
                (foreach l0 lst
                        (if  (apply 'or(mapcar '(lambda(p)(vl-every 'not (mapcar '(lambda(l)(inorout l p))lst)))l0))
                        (setq lst1(cons l0 lst1));互不相交或包含的点集组成的表
                        )
                )
        )
)lst1)

貌似满足要求

烟盒迷唇

wzg356 发表于 2021-10-27 17:29
接15楼
多个不自交多边形lst==(list 点集1 点集2.....)
排除包含或相交的多边形

谢谢，有空我试试看

烟盒迷唇

lee50310 发表于 2021-10-27 17:03
顏色,封閉,圖層,這些都不能拿來做過濾的依據.....

那就 指剩下 面積 了  若紅色矩形外框都相等 或是  ...

面积更不是不确定

wzg356

面积+长度最简单，为什么不可以