图元排序问题

ynhh

zml84 发表于 2012-11-13 19:22
网友 ynhh 在6楼评论所言“容差”问题，请细看equal函数。

大师指点的对，是我自己没看这个函数的说明，你太伟大了。
你这程序真神。但无法选择先对Y方向再对X方向的竖排啊，能不能再优化可选择X或Y优先？

zml84

原文：
                                (if (equal (cadr e1) (cadr e2) 1e1)
                                    (< (car e1) (car e2))
                                    (< (cadr e1) (cadr e2))

car   cadr  互换即可。

wjl1014

zml84 发表于 2012-10-9 13:04
本帖最后由 zml84 于 2012-10-9 13:05 编辑 (defun c:tt ()
    (princ "\n请选择要排序的实体...")
    ...

能加个前后缀就更好了。

xiaomm250

不错,感谢代码分享

清风明月名字

谢谢众位坛友代码分享！

zfsaaa

缺点是无法按点选顺序编号

Gu_xl

zfsaaa 发表于 2013-6-24 14:51
缺点是无法按点选顺序编号

点选顺序还需要排序吗？

zwf100

真的是太牛了，学习了

winerfjy

代码简明学习了

start4444