社区 › AutoLISP/Visual LISP 编程技术 › 点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22

434939575 发表于 2013-12-15 16:37:39

好资料，学习了

crazylsp 发表于 2013-12-16 16:05:29

看看黄老师的排序成果

zhqdh 发表于 2013-12-16 22:00:24

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

cnks 发表于 2013-12-17 19:07:16

tjuzkj 发表于 2013-12-18 12:22:09

听说这个很好使

awd37 发表于 2013-12-18 21:56:06

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

zzmm 发表于 2013-12-19 09:36:16

支持源码顶起

jeffe1984 发表于 2013-12-19 11:51:52

学习中，崇拜大神

twsyzx 发表于 2013-12-20 00:34:26

相当的nice!!

xyp1964 发表于 2013-12-20 09:27:53

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

(defun c:tt2 ()
(setq ss(ssget '((0 . "*CIRCLE")))
        lst (HH:ssPts:Sort ss "xYz" 0.5)
        i   0
)
(mapcar '(lambda (x)
             (setq i (1+ i))
             (xyp-Text 5 (xyp-9pt x 5) (itoa i))
           )
          lst
)
(princ)
)

查看完整版本: 点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22