热烈祝贺明经恢复正常！

xyp1964

热烈祝贺明经恢复正常！

alwtyp

xiabin68

[em14

xyp1964

;; 发个新的自定义函数以示祝贺

2. ;; xyp-SsSort-Dxf 选择集依据dxf码值分类 (xyp-SsSort-Dxf ss dxfmode)
   
3. (defun xyp-SsSort-Dxf (ss dxfmode / lst-dxf i s1 lst-num a b lst)
   
4.   (if (and ss (= (type ss) 'PICKSET) (> (sslength ss) 0))
   
5.     (progn
   
6.       (setq lst-dxf '()
   
7.             i -1
   
8.       )
   
9.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.         (setq lst-dxf (cons (list (xyp-dxf dxfmode s1) s1) lst-dxf))
    
11.       )
    
12.       (setq lst-dxf (vl-sort lst-dxf '(lambda (x y) (< (car x) (car y))))
    
13.             lst-num '()
    
14.             a            (car lst-dxf)
    
15.             lst-dxf (cdr lst-dxf)
    
16.             lst            (list (cadr a))
    
17.       )
    
18.       (while (setq b (car lst-dxf))
    
19.         (setq lst-dxf (cdr lst-dxf))
    
20.         (if (equal (car a) (car b))
    
21.           (setq lst (cons (cadr b) lst))
    
22.           (setq        lst-num        (cons (list (car a) (reverse lst)) lst-num)
    
23.                 lst        (list (cadr b))
    
24.                 a        b
    
25.           )
    
26.         )
    
27.       )
    
28.       (reverse (cons (list (car a) (reverse lst)) lst-num))
    
29.     )
    
30.   )
    
31. )

;; xyp-SsSort-Dxf 选择集依据dxf码值分类 (xyp-SsSort-Dxf ss dxfmode)<br /> (defun xyp-SsSort-Dxf (ss dxfmode / lst-dxf i s1 lst-num a b lst)<br />   (if (and ss (= (type ss) 'PICKSET) (> (sslength ss) 0))<br />     (progn<br />       (setq lst-dxf '()<br />             i -1<br />       )<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq lst-dxf (cons (list (xyp-dxf dxfmode s1) s1) lst-dxf))<br />       )<br />       (setq lst-dxf (vl-sort lst-dxf '(lambda (x y) (< (car x) (car y))))<br />             lst-num '()<br />             a            (car lst-dxf)<br />             lst-dxf (cdr lst-dxf)<br />             lst            (list (cadr a))<br />       )<br />       (while (setq b (car lst-dxf))<br />         (setq lst-dxf (cdr lst-dxf))<br />         (if (equal (car a) (car b))<br />           (setq lst (cons (cadr b) lst))<br />           (setq        lst-num        (cons (list (car a) (reverse lst)) lst-num)<br />                 lst        (list (cadr b))<br />                 a        b<br />           )<br />         )<br />       )<br />       (reverse (cons (list (car a) (reverse lst)) lst-num))<br />     )<br />   )<br /> )

weiqi

坐等院长再次放码~~

sunny20102

终于修好了，好多天上去不了，急死个人啦

haoryh

修好了哈！

poople

终于修好了，真不容易啊，给坛友们拜个晚年了，祝大家心想事成，财源广进!

龙城飞将36

老大辛苦了。等的我们也好着急，不过现在终于ok了。

spp_wall

终于修好了,给坛友们拜个晚年 身体健康 事业如意