求将符合条件的圆半径变成一半，不符合条件的圆变红色

品茗新秀

求将符合条件的圆半径变成一半，不符合条件的圆变红色
这个条件就是当两圆相交或重合是条件

夏生生

这个条件图也太让人看不懂了，以自己的理解写了一个
圆内圆的时候可能会将内圆变红

2. (defun x_ssn (ss / n lst)
   
3.   (repeat (setq N (sslength ss))
   
4.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
   
5.   )
   
6. )
   
7. (defun circle_lst (en n / ent pt ptc dist ang lst tmp)
   
8.   (setq        ent  (entget en)
   
9.         pt   (cdr (assoc 10 ent))
   
10.         dist (cdr (assoc 40 ent))
    
11.         tmp  0
    
12.         ang  (/ pi n 0.5)
    
13.         lst  nil
    
14.   )
    
15.   (repeat n
    
16.     (setq ptc (polar pt tmp dist)
    
17.           tmp (+ tmp ang)
    
18.           lst (cons ptc lst)
    
19.     )
    
20.   )
    
21.   lst
    
22. )
    
23. (defun c:test1 (/ ss lst en)
    
24.   (setq ss (ssget '((0 . "circle"))))
    
25.   (setq lst (x_ssn ss))
    
26.   (while lst
    
27.     (setq en (car lst))
    
28.     (setq
    
29.       ss (ssdel en (ssget "cp" (circle_lst en 64) '((0 . "circle"))))
    
30.     )
    
31.     (if        (> (sslength ss) 0)
    
32.       (progn
    
33.         (mapcar        '(lambda (cir)
    
34.                    (vla-put-Diameter
    
35.                      (vlax-ename->vla-object cir)
    
36.                      (cdr (assoc 40 (entget cir)))
    
37.                    )
    
38.                  )
    
39.                 (x_ssn ss)
    
40.         )
    
41.         (vla-put-Diameter
    
42.           (vlax-ename->vla-object en)
    
43.           (cdr (assoc 40 (entget en)))
    
44.         )
    
45.         (setq
    
46.           lst (foreach n (x_ssn ss) (vl-remove n (vl-remove en lst)))
    
47.         )
    
48.       )
    
49.       (progn
    
50.         (vla-put-color (vlax-ename->vla-object en) 1)
    
51.         (setq lst (cdr lst))
    
52.       )
    
53.     )
    
54.   )
    
55.   (princ)
    
56. )

(defun x_ssn (ss / n lst)<br />   (repeat (setq N (sslength ss))<br />     (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />   )<br /> )<br /> (defun circle_lst (en n / ent pt ptc dist ang lst tmp)<br />   (setq        ent  (entget en)<br />         pt   (cdr (assoc 10 ent))<br />         dist (cdr (assoc 40 ent))<br />         tmp  0<br />         ang  (/ pi n 0.5)<br />         lst  nil<br />   )<br />   (repeat n<br />     (setq ptc (polar pt tmp dist)<br />           tmp (+ tmp ang)<br />           lst (cons ptc lst)<br />     )<br />   )<br />   lst<br /> )<br /> (defun c:test1 (/ ss lst en)<br />   (setq ss (ssget '((0 . "circle"))))<br />   (setq lst (x_ssn ss))<br />   (while lst<br />     (setq en (car lst))<br />     (setq<br />       ss (ssdel en (ssget "cp" (circle_lst en 64) '((0 . "circle"))))<br />     )<br />     (if        (> (sslength ss) 0)<br />       (progn<br />         (mapcar        '(lambda (cir)<br />                    (vla-put-Diameter<br />                      (vlax-ename->vla-object cir)<br />                      (cdr (assoc 40 (entget cir)))<br />                    )<br />                  )<br />                 (x_ssn ss)<br />         )<br />         (vla-put-Diameter<br />           (vlax-ename->vla-object en)<br />           (cdr (assoc 40 (entget en)))<br />         )<br />         (setq<br />           lst (foreach n (x_ssn ss) (vl-remove n (vl-remove en lst)))<br />         )<br />       )<br />       (progn<br />         (vla-put-color (vlax-ename->vla-object en) 1)<br />         (setq lst (cdr lst))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

天意今天

用arx 调用intersectWith接口就解决问题了

zyhandw

请提供dwg测试图，并详细说明通过什么操作达到什么结果