高手帮忙把这个小问题解决一下！不会的也顶一下贴，到时候发程序源码给你们绝对有用！

328302216

(setq ss7 '((907.98 571.959 0.0) (907.98 -226.468 0.0) (986.544 -226.468 0.0) (1818.41 -226.468 0.0)
(1818.41 -226.468 0.0) (1818.41 479.655 0.0) (1818.41 479.655 0.0) (672.285 479.655 0.0))
)
(setq ss8 (length ss7))
(setq q 0 p 0 d 0 b 0)
  (repeat ss8 ;循环ss8等于ss7列表中的元素个数
    (setq ss9 (nth q ss7))
    (repeat ss8
      (setq ss10 (nth p ss7))
      (if (= ss9 ss10)
(setq d (+ 1 d))
) ;if
      (setq p (+ 1 p))
      ) ;repeat
    (if (/= d 2)
      (command "CIRCLE" ss9 50) ;
      )
    (setq q (+ 1 q))
    ) ;repeat
  (princ)
)
为什么执行结果是用所有的坐标值都当圆心画出圆了
我想用ss7中单一的（没有与其相同）的坐标画圆而已要怎么改呢？
d 的值怎么都是等于1？

dunkel

2. (setq ss7 '((907.98 571.959 0.0)
   
3.       (907.98 -226.468 0.0)
   
4.       (986.544 -226.468 0.0)
   
5.       (1818.41 -226.468 0.0)
   
6.       (1818.41 -226.468 0.0)
   
7.       (1818.41 479.655 0.0)
   
8.       (1818.41 479.655 0.0)
   
9.       (672.285 479.655 0.0)
   
10.      )
    
11. )
    
12. (setq ss8 (length ss7))
    
13. (setq q  0
    
14.       p  0
    
15.       d  0
    
16.       b  0
    
17. )
    
18. (repeat  ss8        ;循环ss8等于ss7列表中的元素个数
    
19.   (setq ss9 (nth q ss7))
    
20.   (repeat (- ss8 q)      ;* 向后比较的话，越后面的数据比较次数递减
    
21.     (setq ss10 (nth p ss7))
    
22.     (if  (< (distance ss9 ss10) 1e-8)  ;* (= ss9 ss10) 这样的比较对浮点数不妥
    
23.       (setq d (+ 1 d))
    
24.     )          ;if
    
25.     (setq p (+ 1 p))
    
26.   )          ;repeat
    
27.   (if (< d 2)        ;* 多于 1 个的即为有重复数据，暂时不绘制
    
28.     (command "CIRCLE" ss9 50)    ;
    
29.   )
    
30.   (setq  q (+ 1 q)
    
31.   p q
    
32.   d 0
    
33.   )          ;* 每个数据的查询，p 和 d 都须重置
    
34. )          ;repeat
    
35. (princ)

(setq ss7 '((907.98 571.959 0.0)<br />       (907.98 -226.468 0.0)<br />       (986.544 -226.468 0.0)<br />       (1818.41 -226.468 0.0)<br />       (1818.41 -226.468 0.0)<br />       (1818.41 479.655 0.0)<br />       (1818.41 479.655 0.0)<br />       (672.285 479.655 0.0)<br />      )<br /> )<br /> (setq ss8 (length ss7))<br /> (setq q  0<br />       p  0<br />       d  0<br />       b  0<br /> )<br /> (repeat  ss8        ;循环ss8等于ss7列表中的元素个数<br />   (setq ss9 (nth q ss7))<br />   (repeat (- ss8 q)      ;* 向后比较的话，越后面的数据比较次数递减<br />     (setq ss10 (nth p ss7))<br />     (if  (< (distance ss9 ss10) 1e-8)  ;* (= ss9 ss10) 这样的比较对浮点数不妥<br />       (setq d (+ 1 d))<br />     )          ;if<br />     (setq p (+ 1 p))<br />   )          ;repeat<br />   (if (< d 2)        ;* 多于 1 个的即为有重复数据，暂时不绘制<br />     (command "CIRCLE" ss9 50)    ;<br />   )<br />   (setq  q (+ 1 q)<br />   p q<br />   d 0<br />   )          ;* 每个数据的查询，p 和 d 都须重置<br /> )          ;repeat<br /> (princ)

328302216

dunkel 发表于 2011-11-21 12:55

高手  好像还是达不到最理想的目标我把代码发上来你再帮我看看可以吗？

2. 
   
3. (defun c:qt33 ()
   
4.   (setq ss (ssget))              
   
5.   (setq i 0)
   
6.   (setq ss7 '())
   
7.   (repeat (sslength ss)                       
   
8.     (setq ss1 (ssname ss i))               
   
9.     (setq ss2 (entget ss1))               
   
10.     (setq ss3 (cdr (assoc 0 ss2)))   
    
11.     (setq ss4 (cdr (assoc 8 ss2)))      
    
12.     (if        (and (= ss3 "LINE") (= ss4 "0"))
    
13.                                     
    
14.       (progn
    
15.         (setq ss5 (cdr (assoc 10 ss2)))
    
16.         (setq ss6 (cdr (assoc 11 ss2)))
    
17.       )
    
18.     )
    
19.     (setq ss6_1 (list ss5 ss6))              
    
20.     (setq ss7 (append ss6_1 ss7))   
    
21.     (setq ss6_1 nil)                       
    
22.     (setq i (+ 1 i))
    
23.   )
    
24.   (setq ss8 (length ss7))
    
25.   (setq        q 0
    
26.         p 0
    
27.         d 0
    
28.         b 0
    
29.   )
    
30.   (repeat ss8                             
    
31.     (setq ss9 (nth q ss7))
    
32.     (repeat (- ss8 q)                       
    
33.       (setq ss10 (nth p ss7))
    
34.       (if (< (distance ss9 ss10) 1e-8)        
    
35.         (setq d (+ 1 d))
    
36.       )                                        ;if
    
37.       (setq p (+ 1 p))
    
38.     )                                        ;repeat
    
39.     (if        (/= d 2)                     
    
40.       (command "CIRCLE" ss9 50)                ;
    
41.     )
    
42.     (setq q (+ 1 q)
    
43.           p q
    
44.           d 0
    
45.     )                                       
    
46.   )                                        ;repeat
    
47.   (princ)
    
48. )

<br /> (defun c:qt33 ()<br />   (setq ss (ssget))              <br />   (setq i 0)<br />   (setq ss7 '())<br />   (repeat (sslength ss)                       <br />     (setq ss1 (ssname ss i))               <br />     (setq ss2 (entget ss1))               <br />     (setq ss3 (cdr (assoc 0 ss2)))    <br />     (setq ss4 (cdr (assoc 8 ss2)))       <br />     (if        (and (= ss3 "LINE") (= ss4 "0"))<br />                                      <br />       (progn<br />         (setq ss5 (cdr (assoc 10 ss2)))<br />         (setq ss6 (cdr (assoc 11 ss2)))<br />       )<br />     )<br />     (setq ss6_1 (list ss5 ss6))              <br />     (setq ss7 (append ss6_1 ss7))    <br />     (setq ss6_1 nil)                       <br />     (setq i (+ 1 i))<br />   )<br />   (setq ss8 (length ss7))<br />   (setq        q 0<br />         p 0<br />         d 0<br />         b 0<br />   )<br />   (repeat ss8                             <br />     (setq ss9 (nth q ss7))<br />     (repeat (- ss8 q)                       <br />       (setq ss10 (nth p ss7))<br />       (if (< (distance ss9 ss10) 1e-8)        <br />         (setq d (+ 1 d))<br />       )                                        ;if<br />       (setq p (+ 1 p))<br />     )                                        ;repeat<br />     (if        (/= d 2)                      <br />       (command "CIRCLE" ss9 50)                ;<br />     )<br />     (setq q (+ 1 q)<br />           p q<br />           d 0<br />     )                                        <br />   )                                        ;repeat<br />   (princ)<br /> )

328302216

如这图所示的结果！

328302216

顺便我把我原来自己编的也发上来！

2. 
   
3. 
   
4. (defun c:qt3 ()
   
5.   (setq ss (ssget))     
   
6.   (setq i 0)
   
7.   (setq ss7 '())
   
8.   (repeat (sslength ss)   
   
9.     (setq ss1 (ssname ss i))  
   
10.     (setq ss2 (entget ss1))   
    
11.     (setq ss3 (cdr (assoc 0 ss2)))
    
12.     (setq ss4 (cdr (assoc 8 ss2)))  
    
13.     (if  (and (= ss3 "LINE") (= ss4 "06"))
    
14.               (progn
    
15.   (setq ss5 (cdr (assoc 10 ss2)))
    
16.   (setq ss6 (cdr (assoc 11 ss2)))
    
17.       )
    
18.     )
    
19.     (setq ss6_1 (list ss5 ss6))   
    
20.     (setq ss7 (append ss6_1 ss7))
    
21.     (setq ss6_1 nil)   
    
22.     (setq i (+ 1 i))
    
23.   )
    
24.   (setq ss8 (length ss7))  
    
25.   )
    
26. (princ )
    
27. )  
    
28.   

<br /> <br /> (defun c:qt3 ()<br />   (setq ss (ssget))     <br />   (setq i 0)<br />   (setq ss7 '())<br />   (repeat (sslength ss)    <br />     (setq ss1 (ssname ss i))  <br />     (setq ss2 (entget ss1))    <br />     (setq ss3 (cdr (assoc 0 ss2))) <br />     (setq ss4 (cdr (assoc 8 ss2)))  <br />     (if  (and (= ss3 "LINE") (= ss4 "06"))<br />               (progn<br />   (setq ss5 (cdr (assoc 10 ss2)))<br />   (setq ss6 (cdr (assoc 11 ss2)))<br />       )<br />     )<br />     (setq ss6_1 (list ss5 ss6))   <br />     (setq ss7 (append ss6_1 ss7))<br />     (setq ss6_1 nil)   <br />     (setq i (+ 1 i))<br />   )<br />   (setq ss8 (length ss7))  <br />   )<br /> (princ )<br /> )  <br />   

328302216

我原来整这个在刚好相加的地方会画出两个重叠的圆！你的这种比我的那种少画了一个圆，就是在两条线刚好连接的地方少画了一个！！！

dunkel

你的意思是只要有重复的，就一个也不绘制？即顶楼的那组坐标只绘制 4 个圆？上面那个动画的图示，只绘制 6 个圆？这样的话，就需要每次都全表进行比较了。

2.   ; 前面不变
   
3.   (repeat ss8                                ;循环ss8等于ss7列表中的元素个数
   
4.     (setq ss9 (nth q ss7))
   
5.     (repeat ss8  ; 每个元素都要比较下  (- ss8 q)
   
6.       (setq ss10 (nth p ss7))
   
7.       (if (< (distance ss9 ss10) 1e-8)        ;* (= ss9 ss10) 这样的比较对浮点数不妥
   
8.         (setq d (+ 1 d))
   
9.       )                                        ;if
   
10.       (setq p (+ 1 p))
    
11.     )                                        ;repeat
    
12.     (if        (/= d 2)                        ;* 多于 1 个的即为有重复数据，暂时不绘制
    
13.       (command "CIRCLE" ss9 50)                ;
    
14.     )
    
15.     (setq q (+ 1 q)
    
16.           p 0    ;* 从头开始比较
    
17.           d 0
    
18.     )                                        ;* 每个数据的查询，p 和 d 都须重置
    
19.   )                                        ;repeat
    
20.   (princ)

  ; 前面不变<br />   (repeat ss8                                ;循环ss8等于ss7列表中的元素个数<br />     (setq ss9 (nth q ss7))<br />     (repeat ss8  ; 每个元素都要比较下  (- ss8 q) <br />       (setq ss10 (nth p ss7))<br />       (if (< (distance ss9 ss10) 1e-8)        ;* (= ss9 ss10) 这样的比较对浮点数不妥<br />         (setq d (+ 1 d))<br />       )                                        ;if<br />       (setq p (+ 1 p))<br />     )                                        ;repeat<br />     (if        (/= d 2)                        ;* 多于 1 个的即为有重复数据，暂时不绘制<br />       (command "CIRCLE" ss9 50)                ;<br />     )<br />     (setq q (+ 1 q)<br />           p 0    ;* 从头开始比较<br />           d 0<br />     )                                        ;* 每个数据的查询，p 和 d 都须重置<br />   )                                        ;repeat<br />   (princ)

328302216

dunkel 发表于 2011-11-22 13:00
你的意思是只要有重复的，就一个也不绘制？即顶楼的那组坐标只绘制 4 个圆？上面那个动画的图示，只绘制 6  ...

  OK了  呵呵  谢谢前辈的指导！

mokson

看来你们都是高手呀,我真是感觉到望尘莫及了.

328302216

我菜得很呢，我是新手 CAD都还不怎么熟，现在两门同时学，一边学CAD又学lisp，而且学了两个多月了，现在感觉还是什么都不会……