这种情况怎么选择指定的圆操作？

飞雪神光

找出面积最大的多段线 和其内部的圆选择集 然后把其内部的所有相对小的多段线内部的圆从选择集中删除 剩下的就是夹层中的圆

你有种再说一遍

实现方式很多的,基本选多了减去.
但是曲线选择或者排除就要费一番功夫而已.

linheyuanpcb

(defun c:tt  (/ EN I LST SS SS_C SS_PL)
  (defun ss->enamelst  (ss)
    (vl-remove-if-not
      (function (lambda (x) (= (type x) 'ename)))
      (mapcar 'cadr (ssnamex ss))))
  (setq ss_pl (ssget "x" '((0 . "*polyline") (8 . "2"))))
  (setq ss_pl (ss->enamelst ss_pl))
  (setq ss_pl (vl-sort ss_pl
         '(lambda (x y)
     (> (vla-get-area (vlax-ename->vla-object x))
        (vla-get-area (vlax-ename->vla-object y))))))
  (setq en (car ss_pl))
  (setq lst (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget en)))
  (setq lst (mapcar 'cdr lst))
  (setq ss_c (ssget "x"
      (list '(0 . "circle")
     '(8 . "1")
     '(-4 . "<or")
     (cons 40 (/ 1.23 2))
     (cons 40 (/ 1.17 2))
     '(-4 . "or>"))))
  (setq ss (ssget "cp"
    lst
    (list '(0 . "circle")
   '(8 . "1")
   '(-4 . "<or")
   (cons 40 (/ 1.23 2))
   (cons 40 (/ 1.17 2))
   '(-4 . "or>"))))
  (cond ((and ss (> (sslength ss_c) (sslength ss)))
  (setq i 0)
  (while (< i (sslength ss))
    (setq ss_c (ssdel (ssname ss i) ss_c)
   i    (1+ i)))
  (if ss_c
    (command "erase" ss_c "")))
((and ss_c (null ss))
  (command "erase" ss_c "")))
  (princ)
        )
现在是通过保留最大外形，删除在最大外形后符合的圆，但当有两个或者多个一样大的时候，就只选中一个来处理，。这样就会误删除。请老大们改下下。谢谢