选择集容差排序8式；上一贴是往返型，这一贴是折返型

韩飞翔

测试代码如下：
(defun c:tt(/ fuzz lay mode xyp-mklaco yyy)        
        (defun xyp-mkLaCo (la co)
                (if (= (tblsearch "layer" la) nil)
                        (if        (= (type co) 'INT)
                                (command "-layer" "m" la "c" co "" "")
                                (command "-layer" "m" la "c" "t" co "" "")
                        )
                        (command "-layer" "t" la "")
                )
                (setvar 'clayer la)
                (setvar 'cecolor "BYLAYER")
                (setvar 'celtype "ByLayer")
                (setvar 'celweight -1)
                (princ)
        )
        (defun yyy(lst / i s1)
                (setq i -1)
                (repeat (length lst)
                        (setq
                                i (1+ i)
                                s1 (nth i lst)
                        )
                        (command "text" "j" "mc" (fx-9pt s1 5) 500 0 (rtos i 2 0))
                )
        )
        (setq lay (getvar "CLAYER"))
        (xyp-mkLaCo "临时文字" 1)
        (setq fuzz 200 mode (getint "\n排序方式"))
        (yyy (fx-sortss2 (ssget) mode fuzz))
        (setvar "CLAYER" lay)
        (princ)
)

韩飞翔

有币的贡献个币，没币的下载这个；


;;说明:飞翔中心容差排序8式
;;参数:ssssget)
;;参数:mode:排序方式(前四个竖直分组，水平容差排序，后四个水平分组；竖直容差排序)
;1先下上后左右 2先下上后右左 3先上下后左右 4先上下后右左
;5先左右后下上 6先右左后下上 7先左右后下上 8先右左后上下
;;参数:fuzz:容差距离
;;返回fx-sortss2 (ssget) mode fuzz)

你有种再说一遍

这个排序在C#也就一句List<X>.OrderBy.
如果觉得麻烦还可以SortedSet<X>,我之前不知道hashcode等于浮点数精度下降...
但是Lisp就要写很多代码了...

韩飞翔

你有种再说一遍 发表于 2024-11-5 15:08
这个排序在C#也就一句List.OrderBy.
如果觉得麻烦还可以SortedSet,我之前不知道hashcode等于浮点数精度下 ...

惊老，神一样的人物，奈何不会c#;每次看惊佬发表的东西，都感觉像天书;但依然阻碍不了惊佬在我心中的地位；若有一天涉足.net了，一定好好向惊佬大神请教。

你有种再说一遍

韩飞翔 发表于 2024-11-5 15:17
惊老，神一样的人物，奈何不会c#;每次看惊佬发表的东西，都感觉像天书;但依然阻碍不了惊佬在我心中的地位 ...

早日来玩,会感觉之前学过的都崩塌了

韩飞翔

你有种再说一遍 发表于 2024-11-5 15:52
早日来玩,会感觉之前学过的都崩塌了

guankuiwu

不错！很好