对选择集筛选和排序的问题

mmh1

2. (defun tj (ss)
   
3.   (setq n 0 ss1 nil)
   
4.   (repeat (sslength ss)
   
5.     (setq en (ssname ss n))
   
6.     (setq endata (entget en))
   
7.     (setq p1 (cdr (assoc 10 endata)))
   
8.     (setq p2 (cdr (assoc 11 endata)))
   
9.     (if(> (abs (sin (angle p1 p2))) 0.1)
   
10.       (progn
    
11.       (setq ss (ssdel en ss))
    
12.       (setq n (- n 1))
    
13.     )
    
14.       (setq ss1 (cons en ss1))
    
15.       )
    
16.     (setq n (1+ n))
    
17.   )
    
18.   (vl-sort ss1
    
19.      (function (lambda (e1 e2)
    
20.            (< (car (cdr (assoc 10 (entget e1))))
    
21.         (car (cdr (assoc 10 (entget e2))))
    
22.            )
    
23.          )
    
24.      )
    
25.   )
    
26.   (setq ss2 (ssadd))
    
27.   (reverse ss1)
    
28.   (repeat (vl-list-length ss1)
    
29.     (setq en2 (car ss1))
    
30.     (setq ss1 (cdr ss1))
    
31.     (setq ss2 (ssadd en2 ss2))
    
32.     )
    
33.   (setq ss ss2)
    
34. )

(defun tj (ss)<br />   (setq n 0 ss1 nil)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq endata (entget en))<br />     (setq p1 (cdr (assoc 10 endata)))<br />     (setq p2 (cdr (assoc 11 endata)))<br />     (if(> (abs (sin (angle p1 p2))) 0.1)<br />       (progn<br />       (setq ss (ssdel en ss))<br />       (setq n (- n 1))<br />     )<br />       (setq ss1 (cons en ss1))<br />       )<br />     (setq n (1+ n))<br />   )<br />   (vl-sort ss1<br />      (function (lambda (e1 e2)<br />            (< (car (cdr (assoc 10 (entget e1))))<br />         (car (cdr (assoc 10 (entget e2))))<br />            )<br />          )<br />      )<br />   )<br />   (setq ss2 (ssadd))<br />   (reverse ss1)<br />   (repeat (vl-list-length ss1)<br />     (setq en2 (car ss1))<br />     (setq ss1 (cdr ss1))<br />     (setq ss2 (ssadd en2 ss2))<br />     )<br />   (setq ss ss2)<br /> )

大神们帮忙看下，此程序是筛选出角度小于5度左右的线，然后排序
结果却不对，几个集合，和表为空

Andyhon

建设楼主上传相应的 Dwg 以利调试