排列所选项目
实际上，我有一套文本选择。我需要按文本插入点的X坐标升序排列。
(defun c:demo (/ ss i lst en)
(if (setq ss (ssget ":L" '((0 . "TEXT"))))
(progn (repeat (setq i (sslength ss))
(setq en (ssname ss (setq i (1- i)))
lst (cons (cons en (cdr (assoc 10 (entget en)))) lst))
)
(mapcar 'print (vl-sort lst ''((a b) (< (cadr a) (cadr b)))))
)
)
(princ)
)
编辑：红色 非常感谢您的代码。
是的，它工作得很好。我需要更多的设施。添加到选择集的实体也要重新排列
根据lst。
像这样的？
;(<Entity name: 7eff6968> 349.007 -619.006 0.0) ?
代码更新帖子#2（红色） 谢谢，代码正在运行。接下来，我需要保留一个具有相同插入点的项，并过滤其他项。
请你帮忙。
页:
[1]