求帮修改一下代码，显视删除数量

wgij007

(defun c:tt (/ center center-lst dxf lst name radius ss temp)
        (if (setq ss (ssget '((0 . "CIRCLE"))))
                (progn
                        (while (setq name (ssname ss 0))
                                (setq dxf (entget name))
                                (setq Center (cdr (assoc 10 dxf)))
                                (setq radius (cdr (assoc 40 dxf)))
                                (setq lst (append lst (list (list Center radius name))))
                                (ssdel name ss)
                        )
                        (foreach x lst
                                (if (not (member (car x) Center-lst))
                                        (setq Center-lst (append Center-lst (list (car x))))
                                )
                        )
                        (foreach x Center-lst
                                (setq temp nil)
                                (foreach xx lst
                                        (if (equal (car xx) x)
                                                (setq temp (append temp (list (list (cadr xx) (caddr xx)))))
                                        )
                                )
                                (setq temp (cdr (vl-sort temp '(lambda (a b)
      (< (car a) (car b))
                        ))))
                                (foreach x temp
                                        (entdel (cadr x))
                                )
                        )
                )
        )
(princ)
)

感谢

Sonnenblumen

2. (defun c:tt1 (/ center center-lst dxf lst name radius ss temp n)
   
3.   (if (setq ss (ssget '((0 . "CIRCLE"))))
   
4.     (progn
   
5.       (while (setq name (ssname ss 0))
   
6.         (setq dxf (entget name))
   
7.         (setq Center (cdr (assoc 10 dxf)))
   
8.         (setq radius (cdr (assoc 40 dxf)))
   
9.         (setq lst (append lst (list (list Center radius name))))
   
10.         (ssdel name ss)
    
11.       )
    
12.       (foreach x lst
    
13.         (if (not (member (car x) Center-lst))
    
14.           (setq Center-lst (append Center-lst (list (car x))))
    
15.         )
    
16.       )
    
17.       (setq n 0 )
    
18.       (foreach x Center-lst
    
19.         (setq temp nil)
    
20.         (foreach xx lst
    
21.           (if (equal (car xx) x)
    
22.             (setq temp (append temp (list (list (cadr xx) (caddr xx)))))
    
23.           )
    
24.         )
    
25.         (setq temp (cdr (vl-sort temp '(lambda (a b)
    
26.                                          (< (car a) (car b))
    
27.                                        ))))
    
28.         (foreach x temp
    
29.           (entdel (cadr x))(setq n (1+ n))
    
30.         )
    
31.       )
    
32.       (princ "删了")
    
33.       (princ n )
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )

(defun c:tt1 (/ center center-lst dxf lst name radius ss temp n)<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (progn<br />       (while (setq name (ssname ss 0))<br />         (setq dxf (entget name))<br />         (setq Center (cdr (assoc 10 dxf)))<br />         (setq radius (cdr (assoc 40 dxf)))<br />         (setq lst (append lst (list (list Center radius name))))<br />         (ssdel name ss)<br />       )<br />       (foreach x lst<br />         (if (not (member (car x) Center-lst))<br />           (setq Center-lst (append Center-lst (list (car x))))<br />         )<br />       )<br />       (setq n 0 )<br />       (foreach x Center-lst<br />         (setq temp nil)<br />         (foreach xx lst<br />           (if (equal (car xx) x)<br />             (setq temp (append temp (list (list (cadr xx) (caddr xx)))))<br />           )<br />         )<br />         (setq temp (cdr (vl-sort temp '(lambda (a b)<br />                                          (< (car a) (car b))<br />                                        ))))<br />         (foreach x temp<br />           (entdel (cadr x))(setq n (1+ n))<br />         )<br />       )<br />       (princ "删了")<br />       (princ n )<br />     )<br />   )<br />   (princ)<br /> )

香远益清

选择对象: 指定对角点: 找到 ****个

wgij007

香远益清 发表于 2021-4-8 12:12
选择对象: 指定对角点: 找到 ****个

要的是要显视，删了多少个

Sonnenblumen

Sonnenblumen 发表于 2021-4-8 15:18

试一下看看

wgij007

Sonnenblumen 发表于 2021-4-8 11:58

可以了，谢谢

xj6019

wgij007 发表于 2021-4-8 18:10
可以了，谢谢

你这个代码  是删除啥情况下的圆呀，没看明白，求指教

wgij007

同心圆，只留最小的，做刀路时，处理牙孔用到。

香远益清

能加上容差就好了，因为CAD数据图上误差0.000001毫米的圆心也不是同心圆，无法删除。