排列所选项目

wimal · 发表于 2022-7-5 19:52:15

实际上，我有一套文本选择。
我需要按文本插入点的X坐标升序排列。

hanhphuc · 发表于 2022-7-5 20:09:27


(defun c:demo (/ ss i lst [color="red"]en[/color])
 (if (setq ss (ssget ":L" '((0 . "TEXT"))))
   (progn (repeat (setq i (sslength ss))
    [color="red"](setq en[/color] (ssname ss (setq i (1- i))[color="red"])[/color]
     lst (cons [color="red"](cons en[/color] (cdr (assoc 10 (entget [color="red"]en[/color])))[color="red"]) [/color]lst))
     )
   (mapcar 'print ([color="blue"]vl-sort[/color] lst ''((a b) (< ([color="red"]cadr[/color] a) ([color="red"]cadr[/color] b)))))
   )
   ) 
 (princ)
 )

编辑：红色

wimal · 发表于 2022-7-5 20:30:57

非常感谢您的代码。
是的，它工作得很好。我需要更多的设施。添加到选择集的实体也要重新排列
根据lst。

hanhphuc · 发表于 2022-7-5 20:38:57

像这样的？

copy


[color="green"];(<Entity name: 7eff6968> 349.007 -619.006 0.0) ? [/color]

代码更新帖子#2（红色）

wimal · 发表于 2022-7-5 20:56:12

谢谢，代码正在运行。接下来，我需要保留一个具有相同插入点的项，并过滤其他项。
请你帮忙。

[编程交流] 排列所选项目

发表回复

精选推荐