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

热烈祝贺明经恢复正常！

热烈祝贺明经恢复正常！

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

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

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))
    )
)
)

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

终于修好了,给坛友们拜个晚年 身体健康 事业如意
页: [1] 2 3 4
查看完整版本: 热烈祝贺明经恢复正常！