社区 › Auto Lisp › 多排序列表

handasa 发表于 2022-7-5 16:18:14

多排序列表

大家好
我有一个由子列表组成的列表
每个子列表在图形“itm”中包含一个实体名称，其中
itm=（setq itm（ssname i ss1））和距离
假设子列表如下所示：
 
（（）（x1））
 
 
因此，如何先按entityname对包含多个子列表的较大列表进行排序，然后再按距离（x1，x2，…）对列表进行排序
 
最后一个列表如下所示
（（）（x1））
（（）（x2））
（（）（x3））
（（）（x4））
（（）（x5））
（（）（x6））
 
 
谢谢

marko_ribar 发表于 2022-7-5 16:31:14

itm=（setq itm（ssname ss1 i））
 

(defun _sort_byenames_bydists ( lst / l a g gg r )
(setq l (vl-sort lst (function (lambda ( a b ) (< (vl-prin1-to-string (caar a)) (vl-prin1-to-string (caar b)))))))
(while (setq a (car l))
   (setq l (cdr l))
   (if (null g)
   (setq g (cons a g))
   )
   (if (eq (caar a) (caaar l))
   (setq g (cons (car l) g))
   (setq gg (cons g gg) g nil)
   )
)
(foreach g gg
   (setq r (cons (vl-sort g (function (lambda ( a b ) (< (caadr a) (caadr b))))) r))
)
(apply (function append) r)
)
M.R。

Lee Mac 发表于 2022-7-5 16:31:48

我建议：
然而，您的列表似乎不必要地嵌套了一个额外的级别-为什么不呢：
(
   (<Entity name: name1> x1)
   (<Entity name: name1> x2)
   (<Entity name: name1> x3)
   (<Entity name: name2> x4)
   (<Entity name: name2> x5)
   (<Entity name: name2> x6)
)

marko_ribar 发表于 2022-7-5 16:39:23

@李，如果列表包含完全相等的元素，两个代码都可能失败。。。
 
这是修订版。。。
 

(defun _s_b_b ( lst / l a g gg r )
(setq l (mapcar (function (lambda ( x ) (nth x lst))) (vl-sort-i lst (function (lambda ( a b ) (< (vl-prin1-to-string (caar a)) (vl-prin1-to-string (caar b))))))))
(while (setq a (car l))
   (setq l (cdr l))
   (if (null g)
   (setq g (cons a g))
   )
   (if (eq (caar a) (caaar l))
   (setq g (cons (car l) g))
   (setq gg (cons g gg) g nil)
   )
)
(foreach g gg
   (setq r (cons (mapcar (function (lambda ( x ) (nth x g))) (vl-sort-i g (function (lambda ( a b ) (< (caadr a) (caadr b)))))) r))
)
(apply (function append) r)
)

 
和李的变体：
 

(defun mysort ( l )
(mapcar
   (function
   (lambda ( x )
       (nth x l)
   )
   )
   (vl-sort-i l
   (function
       (lambda ( a b )
         (if (eq (caar a) (caarb))
         (< (caadr a) (caadr b))
         (< (vl-prin1-to-string (caar a)) (vl-prin1-to-string (caar b)))
         )
       )
   )
   )
)
)

Lee Mac 发表于 2022-7-5 16:48:50

 
为什么呢vl sort仅删除重复整数。
_$ (vl-sort '("a" "c" "f" "a" "h" "b" "e" "d" "g" "h") '<)
("a" "a" "b" "c" "d" "e" "f" "g" "h" "h")

_$ (vl-sort '(3.5 1.5 6.5 1.5 4.5 3.5) '<)
(1.5 1.5 3.5 3.5 4.5 6.5)

_$ (vl-sort '((2 1) (1 1) (1 2) (2 1) (1 1) (4 5) (5 4)) '(lambda ( a b ) (if (= (car a) (car b)) (< (cadr a) (cadr b)) (< (car a) (car b)))))
((1 1) (1 1) (1 2) (2 1) (2 1) (4 5) (5 4))

_$ (vl-sort '(4 5 3 2 1 6 4 2 1 1 2) '<)
(1 2 3 4 5 6)

marko_ribar 发表于 2022-7-5 16:54:10

此外，如果我可以得出结论-如果元素是列表类型，那么它们的行为就像整数，而（vl排序）。。。
 
以下是点列表示例。。。当我们绘制点时，我们很少选择完全相同的坐标，所以（vl排序）通常效果很好。。。
 

Command: (setq l '(((1.0) (1.0)) ((1.0) (2.0)) ((3.0) (1.0)) ((3.0) (0.5))))
(((1.0) (1.0)) ((1.0) (2.0)) ((3.0) (1.0)) ((3.0) (0.5)))

Command: (setq l (cons (car l) l))
(((1.0) (1.0)) ((1.0) (1.0)) ((1.0) (2.0)) ((3.0) (1.0)) ((3.0) (0.5)))

Command: (setq l (cons (car l) l))
(((1.0) (1.0)) ((1.0) (1.0)) ((1.0) (1.0)) ((1.0) (2.0)) ((3.0) (1.0)) ((3.0) (0.5)))

Command: (vl-sort l '(lambda ( a b ) (< (caadr a) (caadr b))))
(((3.0) (0.5)) ((1.0) (1.0)) ((3.0) (1.0)) ((1.0) (2.0)))

 
希望这能解释一切。。。

marko_ribar 发表于 2022-7-5 17:02:42

两者都很好。。。谢谢Marko先生，谢谢lee先生

marko_ribar 发表于 2022-7-5 17:11:12

如果vl sort有删除重复元素的风险，为什么不确保其安全：
 
7
 
通过使用上述经典方法。
至少我偏执于只使用（vl排序）而不测试其在某些项目类型上的返回。

handasa 发表于 2022-7-5 17:16:05

Grrr 发表于 2022-7-5 17:22:53

if theres a risk that vl-sort removes duplicate elements, why not keep it safe:
 

(defun mysort ( f L ) (mapcar (function (lambda (x) (nth x L))) (vl-sort-i L (function f))) )_$ (mysort(lambda (a b) (< (cadr a) (cadr b)))'((0.0 1.0 2.0) (0.0 1.0 2.0) (0.0 1.0 2.0) (1.0 2.0 3.0) (2.0 3.0 4.0)) )((0.0 1.0 2.0) (0.0 1.0 2.0) (0.0 1.0 2.0) (1.0 2.0 3.0) (2.0 3.0 4.0))_$
 
by using the above classical approach.
Atleast I'm paranoid on just using (vl-sort) without testing its return on certain item types.

查看完整版本: 多排序列表