热烈祝贺明经恢复正常！

xyp1964 · 发表于 2013-2-25 23:19:13

热烈祝贺明经恢复正常！

alwtyp · 发表于 2013-2-25 23:20:31

xiabin68 · 发表于 2013-2-25 23:22:14

[em14

xyp1964 · 发表于 2013-2-25 23:28:19

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

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

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

weiqi · 发表于 2013-2-25 23:45:37

坐等院长再次放码~~

sunny20102 · 发表于 2013-2-26 01:05:02

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

haoryh · 发表于 2013-2-26 07:52:58

修好了哈！

poople · 发表于 2013-2-26 07:55:52

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

龙城飞将36 · 发表于 2013-2-26 08:13:51

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

spp_wall · 发表于 2013-2-26 08:14:53

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

账号		自动登录	找回密码
密码			注册

[源码] 热烈祝贺明经恢复正常！

相关帖子