从最小值开始组织列表

yajis_narif · 发表于 2022-7-6 09:30:04

你好！！

我如何循环浏览一个列表并比较列表上写的数字，从而从最小到最大地组织它们？？
“这是我的列表（25164.4 25164.4 21853.4 21708.6 25678.9.12875.3）”
谢谢你

BlackBox · 发表于 2022-7-6 09:34:38

^^不确定作为列表的一部分，独立小数正在做什么^^

举个例子：


(vl-load-com)
(setq myList (list 25164.4 25164.4 21853.4 21708.6 25678.9 12875.3))
(setq myNewList (vl-sort myList '<))

yajis_narif · 发表于 2022-7-6 09:38:37

是的，你的意思是我必须指定（按x或y排序）我不能像坐标原点最近的一样组织它们吗？？？

BlackBox · 发表于 2022-7-6 09:45:56

李为什么不。。。

copy


(12875.3 21708.6 21853.4 25164.4 25164.4 25678.9)

基数0索引

yajis_narif · 发表于 2022-7-6 09:49:18

您可以使用任何谓词函数对其进行排序，该函数为所需的排序结果返回非nil：

copy


(defun SortByX ( lst )
 (vl-sort lst '(lambda ( a b ) (< (car a) (car b))))
)
(defun SortByY ( lst )
 (vl-sort lst '(lambda ( a b ) (< (cadr a) (cadr b))))
)
(defun SortByZ ( lst )
 (vl-sort lst '(lambda ( a b ) (< (caddr a) (caddr b))))
)

当然，原点可以被任何点替换。

Lee Mac · 发表于 2022-7-6 09:50:40

非常感谢你pBe和李mac你救了我两次

yajis_narif · 发表于 2022-7-6 09:54:51

但最重要的是：你了解这个方法吗？

pBe · 发表于 2022-7-6 10:00:09

是的，我刚开始学习autolisp。。。实际上是一个月前
你能再帮我一点忙吗
当我整理列表时（按y排序：

copy

 
(defun SortByN ( n lst )
 (vl-sort lst '(lambda ( a b ) (< (nth n a) (nth n b))))
)

我想在一个列表中添加相同y的所有坐标，这样我的列表就会是这样

copy

(defun SortByMagnitude ( lst )
 (vl-sort lst '(lambda ( a b ) (< (distance '(0. 0. 0.) a) (distance '(0. 0. 0.) b))))
)

非常感谢。

Lee Mac · 发表于 2022-7-6 10:04:45

不是很好的编码

copy

((25736.0 8902.08) (28627.0 8902.08) (22425.0 8902.08) (25316.0 8902.08) 
(28627.0 11781.1) (25736.0 11781.1) (25316.0 11781.1) (22425.0 11781.1) 
(25736.0 12201.1) (28627.0 12201.1) (22425.0 12201.1) (25316.0 12201.1) 
(28627.0 15080.1) (25736.0 15080.1) (25316.0 15080.1) (22425.0 15080.1))

yajis_narif · 发表于 2022-7-6 10:08:05

非常感谢你，我把这个函数叫做leeMac（l/sub）lol

[编程交流] 从最小值开始组织列表

发表回复

精选推荐