点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22

434939575

好资料，学习了

crazylsp

看看黄老师的排序成果

zhqdh

学习学习，正需要这方面的知识

cnks

tjuzkj

听说这个很好使

awd37

支持源码。。。。。支持共享

zzmm

支持源码  顶起

jeffe1984

学习中，崇拜大神

twsyzx

相当的nice!!

xyp1964

2. 
   
3. ;; tt1 “xyz”和tt2"xYz"的不同效果示意
   
4. (defun c:tt1 ()
   
5.   (setq ss  (ssget '((0 . "*CIRCLE")))
   
6.         lst (HH:ssPts:Sort ss "xyz" 0.5)
   
7.         i   0
   
8.   )
   
9.   (mapcar '(lambda (x)
   
10.              (setq i (1+ i))
    
11.              (xyp-Text 5 (xyp-9pt x 5) (itoa i))
    
12.            )
    
13.           lst
    
14.   )
    
15.   (princ)
    
16. )
    
17. 
    
18. (defun c:tt2 ()
    
19.   (setq ss  (ssget '((0 . "*CIRCLE")))
    
20.         lst (HH:ssPts:Sort ss "xYz" 0.5)
    
21.         i   0
    
22.   )
    
23.   (mapcar '(lambda (x)
    
24.              (setq i (1+ i))
    
25.              (xyp-Text 5 (xyp-9pt x 5) (itoa i))
    
26.            )
    
27.           lst
    
28.   )
    
29.   (princ)
    
30. )

<br /> ;; tt1 “xyz”和tt2"xYz"的不同效果示意<br /> (defun c:tt1 ()<br />   (setq ss  (ssget '((0 . "*CIRCLE")))<br />         lst (HH:ssPts:Sort ss "xyz" 0.5)<br />         i   0<br />   )<br />   (mapcar '(lambda (x)<br />              (setq i (1+ i))<br />              (xyp-Text 5 (xyp-9pt x 5) (itoa i))<br />            )<br />           lst<br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:tt2 ()<br />   (setq ss  (ssget '((0 . "*CIRCLE")))<br />         lst (HH:ssPts:Sort ss "xYz" 0.5)<br />         i   0<br />   )<br />   (mapcar '(lambda (x)<br />              (setq i (1+ i))<br />              (xyp-Text 5 (xyp-9pt x 5) (itoa i))<br />            )<br />           lst<br />   )<br />   (princ)<br /> )