（XD::Entity:SortOnCurve）实体表或者选择集沿着曲线或者点表排序

Lispboy

1. (defun XD::Entity:SortOnCurve (ents pts / ll1 ll2 x)
   
2.   (if (= (type ents) 'PICKSET)
   
3.     (setq ents (xdrx_pickset->ents ents))
   
4.   )
   
5.   (setq ll1 (mapcar
   
6.               '(lambda (x)
   
7.                  (list (XD::Geom:Get9pt x 5) x)
   
8.                )
   
9.               ents
   
10.             )
    
11.   )
    
12.   (setq ll2 (xdrx_points_sortoncurve pts (mapcar
    
13.                                            '(lambda (x)
    
14.                                               (car x)
    
15.                                             )
    
16.                                            ll1
    
17.                                          )
    
18.             )
    
19.   )
    
20.   (mapcar
    
21.     '(lambda (x)
    
22.        (cadr (assoc (cadr x) ll1))
    
23.      )
    
24.     ll2
    
25.   )
    
26. )
    
27. 
    

(defun XD::Entity:SortOnCurve (ents pts / ll1 ll2 x)<br />   (if (= (type ents) 'PICKSET)<br />     (setq ents (xdrx_pickset->ents ents))<br />   )<br />   (setq ll1 (mapcar<br />               '(lambda (x)<br />                  (list (XD::Geom:Get9pt x 5) x)<br />                )<br />               ents<br />             )<br />   )<br />   (setq ll2 (xdrx_points_sortoncurve pts (mapcar<br />                                            '(lambda (x)<br />                                               (car x)<br />                                             )<br />                                            ll1<br />                                          )<br />             )<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (cadr (assoc (cadr x) ll1))<br />      )<br />     ll2<br />   )<br /> )<br /> <br />

Bao_lai

参考嵌套的函数太多，找不到源头和完整的代码，不方便调试。