如何求得多个矩形框坐标

wzg356

每次打印图幅总一样，用高宽比过滤也可以

guosheyang

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

朋友  为何运行（getpl）这个后得到的是12个呢？ 谢谢！

wzg356

guosheyang 发表于 2021-10-27 21:28
朋友  为何运行（getpl）这个后得到的是12个呢？ 谢谢！

我没有用你的图测试（我版本低），运行后
剩下的是没有互相相交，没有被其他多边形包含的多边形

你把cad当前颜色改一下
运行
(foreach l (getpl)(command "pline"
(foreach p (append l(list "c"))(command p)))
)
---选择矩形
画出来的就是过滤后剩下的

guosheyang

wzg356 发表于 2021-10-27 23:14
我没有用你的图测试（我版本低），运行后
剩下的是没有互相相交，没有被其他多边形包含的多边形

谢谢你的回复   不过好像不对头

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)))
)

guosheyang

ssget  "w"   弄的  初步测试  可以

烟盒迷唇

wzg356 发表于 2021-10-27 19:51
每次打印图幅总一样，用高宽比过滤也可以

这个想法可以

烟盒迷唇

guosheyang 发表于 2021-10-27 23:57
;(qdjdzb (setq ss(ssget'((0 . "LWPOLYLINE")))) )
(defun qdjdzb(ss / DYG ENLIST E_IN GS GS2 LSS LST1 ...

这个不错，如果能添加对矩形块的支持就更好了

烟盒迷唇

块的支持我自己添加就得了，非常感谢