选择集排序8式

magicheno

感谢大佬分享~~

qazxswk

韩飞翔 发表于 2023-12-4 12:03
程序不缺函数，只是函数写在排序函数内，然后子函数作为可变变量清空了，鉴于初学者不会改代码，直接给你改 ...

可以用激情换明经币的呀

韩飞翔

qazxswk 发表于 2023-12-6 17:23
可以用激情换明经币的呀

哦，知道了

Noangler

还是谢谢分享了。

bonny

                                   牛
                         牛       牛
                      牛 牛 牛 牛 牛 牛
                   牛             牛
                         牛 牛 牛 牛 牛
牛

bonny

老师，教我

e2002

当初写批量创建 Layouts 工具的时候，也是需要这么个 左右上下 共8种排序方式（实际上是4种，另外四种是其他4种的倒序而已），为了简化代码，所以用了一点办法。大家共同学习提高，代码没有任何限制没有任何保证（包括商用），完全公开，无币可下载：

1. ;; 边界列表的2次排序函数
   
2.   (defun _lkpt_Layout_CreateByTitleBlocks_Sort ( / i1 sym1 i2 sym2 l_sort u v lReturn)
   
3.     (cond
   
4.       ( (= sSort "1") (setq i1 1 sym1 '> i2 0 sym2 '<) );;左到右，上到下
   
5.       ( (= sSort "2") (setq i1 1 sym1 '< i2 0 sym2 '<) );;左到右，下到上
   
6.       ( (= sSort "3") (setq i1 1 sym1 '> i2 0 sym2 '>) );;右到左，上到下
   
7.       ( (= sSort "4") (setq i1 1 sym1 '< i2 0 sym2 '>) );;右到左，下到上
   
8.       ( (= sSort "5") (setq i1 0 sym1 '< i2 1 sym2 '>) );;上到下，左到右
   
9.       ( (= sSort "6") (setq i1 0 sym1 '> i2 1 sym2 '>) );;上到下，右到左
   
10.       ( (= sSort "7") (setq i1 0 sym1 '< i2 1 sym2 '<) );;下到上，左到右
    
11.       ( (= sSort "8") (setq i1 0 sym1 '> i2 1 sym2 '<) );;下到上，右到左
    
12.     );_cond
    
13.     (setq l_sort (vl-sort lBoundarys (function (lambda (u v) ((vl-symbol-value sym1) (nth i1 (car u)) (nth i1 (car v)))))) );_第一次排序
    
14.     (setq l_sort (vl-sort l_sort (function (lambda (u v)
    
15.                                              (if (< (abs (- (nth i1 (car u)) (nth i1 (car v)))) rFuzzy)
    
16.                                                ((vl-symbol-value sym2) (nth i2 (car u)) (nth i2 (car v)))
    
17.                                                nil
    
18.                                              );_fi
    
19.                                            );_lam
    
20.                                  );_fun
    
21.                  )
    
22.     );_第二次排序
    
23.     (setq lReturn l_sort)
    
24.   );_defun _lkpt_Layout_CreateByTitleBlocks_Sort
    

;; 边界列表的2次排序函数<br />   (defun _lkpt_Layout_CreateByTitleBlocks_Sort ( / i1 sym1 i2 sym2 l_sort u v lReturn)<br />     (cond<br />       ( (= sSort "1") (setq i1 1 sym1 '> i2 0 sym2 '<) );;左到右，上到下<br />       ( (= sSort "2") (setq i1 1 sym1 '< i2 0 sym2 '<) );;左到右，下到上<br />       ( (= sSort "3") (setq i1 1 sym1 '> i2 0 sym2 '>) );;右到左，上到下<br />       ( (= sSort "4") (setq i1 1 sym1 '< i2 0 sym2 '>) );;右到左，下到上<br />       ( (= sSort "5") (setq i1 0 sym1 '< i2 1 sym2 '>) );;上到下，左到右<br />       ( (= sSort "6") (setq i1 0 sym1 '> i2 1 sym2 '>) );;上到下，右到左<br />       ( (= sSort "7") (setq i1 0 sym1 '< i2 1 sym2 '<) );;下到上，左到右<br />       ( (= sSort "8") (setq i1 0 sym1 '> i2 1 sym2 '<) );;下到上，右到左<br />     );_cond<br />     (setq l_sort (vl-sort lBoundarys (function (lambda (u v) ((vl-symbol-value sym1) (nth i1 (car u)) (nth i1 (car v)))))) );_第一次排序<br />     (setq l_sort (vl-sort l_sort (function (lambda (u v)<br />                                              (if (< (abs (- (nth i1 (car u)) (nth i1 (car v)))) rFuzzy)<br />                                                ((vl-symbol-value sym2) (nth i2 (car u)) (nth i2 (car v)))<br />                                                nil<br />                                              );_fi<br />                                            );_lam<br />                                  );_fun<br />                  )<br />     );_第二次排序 <br />     (setq lReturn l_sort)<br />   );_defun _lkpt_Layout_CreateByTitleBlocks_Sort<br />

e2002

关于为什么要分开两次排序：
最初是写为一次排序，在条件中判断x，y两个值，然而结果就是会出现问题，按理应该是不会出现错误的，后来我怀疑是vl-sort的问题，然后自己重写了一个专门针对这个x，y坐标值两个条件来排序的函数，就不会出错了，因此，应该是 vl-sort的问题。记得当时和Qf还讨论过vl-sort的这个bug。

moshouhot

e2002 发表于 2023-12-11 16:00
关于为什么要分开两次排序：
最初是写为一次排序，在条件中判断x，y两个值，然而结果就是会出现问题，按理 ...

翻了您的回复记录没找到您提到的vl-sort的问题。
能帮我看看 这个代码是有什么问题吗，问了chatgpt也没给我解决。
TT1函数是正常的“123” TT2函数的顺序就不正常了“321654”，会颠倒嵌套内部的选择集顺序

1. (defun c:TT1 ()
   
2.   (setq SS (ssget)) ; 获取用户选择的选择集
   
3.         (setq SS2 (SORT-RIGHT2LEFT SS 0 nil))
   
4.         ;(setq SS2 (SORT-DOWN2UP (SORT-RIGHT2LEFT SS 0 nil) 0 nil))
   
5.         ;(setq SS2 (SORT-SE SS 10 0 0 nil) )
   
6.         (printSelectionSetText SS2)
   
7.   (princ)
   
8. )
   
9. (defun c:TT2 ()
   
10.   (setq SS (ssget)) ; 获取用户选择的选择集
    
11.         ;(setq SS2 (SORT-RIGHT2LEFT SS 0 nil))
    
12.         (setq SS2 (SORT-DOWN2UP (SORT-RIGHT2LEFT SS 0 nil) 0 nil))
    
13.         ;(setq SS2 (SORT-SE SS 10 0 0 nil) )
    
14.         (printSelectionSetText SS2)
    
15.   (princ)
    
16. )
    
17. 
    
18. 
    
19. (defun printSelectionSetText (ss / len i ent data text)
    
20.   (setq len (sslength ss)) ; 获取选择集中对象的数量
    
21.   (setq i 0)
    
22.   (repeat len
    
23.     (setq ent (ssname ss i)) ; 获取选择集中的下一个对象
    
24.     (setq data (entget ent)) ; 获取对象的数据
    
25.     (setq text (cdr (assoc 1 data))) ; 获取文本内容，假设对象是文本实体
    
26.     (princ text) ; 输出文本内容
    
27.     (setq i (1+ i))
    
28.   )
    
29.   (princ)       
    
30. )
    
31. (defun SORT-RIGHT2LEFT (SE FUZZ K / ENT INDEX LST NEWLST NEWSE TMP X)
    
32.         (setq DXF 10)
    
33.         (SETQ INT 0)
    
34.   (setq LST   '() ;; 初始化空列表LST
    
35.                 INDEX 0 ;; 初始化索引INDEX为0
    
36.   )
    
37.   (repeat (sslength SE)  ;; 根据SE的长度进行循环
    
38.     (setq ENT (entget (ssname SE INDEX)) ;; 获取SE中指定索引处的实体信息，并赋值给ENT
    
39.                         TMP (cdr (assoc DXF ENT)) ;; 从实体信息中提取DXF对应的值，并赋值给TMP
    
40.     )
    
41.     (if
    
42.       (and
    
43.         INT ;; 如果INT存在且不为nil
    
44.         (= (type INT) 'INT) ;; 且INT的类型为INT
    
45.         (= (type TMP) 'list) ;; 且TMP的类型为列表
    
46.         (< INT (length TMP)) ;; 且INT小于TMP列表的长度
    
47.       )
    
48.       (setq TMP (nth INT TMP)) ;; 则将TMP的第INT个元素赋值给TMP
    
49.     )
    
50.     (setq LST (cons  ;; 将包含TMP值和实体信息第5项值的列表作为新元素，加入到LST列表中
    
51.                 (list TMP (cdr (assoc 5 ENT)))
    
52.                 LST
    
53.               )
    
54.     )
    
55.     (setq INDEX (1+ INDEX)) ;; 索引自增1
    
56.   )
    
57.         ;; 排序操作
    
58.         (if
    
59.                 (and
    
60.                         FUZZ ;; 如果FUZZ存在且不为nil
    
61.                         (or
    
62.                                 (= (type FUZZ) 'INT) ;; 且FUZZ的类型为INT
    
63.                                 (= (type FUZZ) 'REAL) ;; 或FUZZ的类型为REAL
    
64.                         )
    
65.                         (or
    
66.                                 (= (type TMP) 'INT) ;; 且TMP的类型为INT
    
67.                                 (= (type TMP) 'REAL) ;; 或TMP的类型为REAL
    
68.                         )
    
69.                 )
    
70.                 (setq NEWLST (vl-sort  ;; 如果满足条件，则对LST列表进行排序，排序规则为加入FUZZ后比较
    
71.                                                                          LST
    
72.                                                                          (function
    
73.                                                                                  (lambda (E1 E2)
    
74.                                                                                          (> (+ (car E1) FUZZ) (car E2))
    
75.                                                                                  )
    
76.                                                                          )
    
77.                                                                  )
    
78.                 )
    
79.                 (setq NEWLST (vl-sort  ;; 否则对LST列表进行排序，按照原始值比较
    
80.                                                                          LST
    
81.                                                                          (function
    
82.                                                                                  (lambda (E1 E2)
    
83.                                                                                          (> (car E1) (car E2))
    
84.                                                                                  )
    
85.                                                                          )
    
86.                                                                  )
    
87.                 )
    
88.         )
    
89.   ;; 如果K为T，则倒置
    
90.   (if K  ;; 如果K为真
    
91.     (setq NEWLST (reverse NEWLST)) ;; 则将NEWLST列表倒置
    
92.   )
    
93.   ;; 组织排序后的选择集
    
94.   (setq NEWSE (ssadd)) ;; 初始化新的选择集NEWSE
    
95.   (foreach TMP NEWLST  ;; 遍历NEWLST
    
96.     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE)) ;; 将每个元素对应的实体添加到NEWSE中
    
97.   )
    
98.   ;; 返回值
    
99.   NEWSE ;; 返回NEWSE作为函数的返回值
    
100. )
     
101. 
     
102. 
     
103. (defun SORT-DOWN2UP (SE FUZZ K / ENT INDEX LST NEWLST NEWSE TMP Y)
     
104.         (setq DXF 10)
     
105.         (SETQ INT 1)
     
106.   (setq LST   '() ;; 初始化空列表LST
     
107.                 INDEX 0 ;; 初始化索引INDEX为0
     
108.   )
     
109.   (repeat (sslength SE)  ;; 根据SE的长度进行循环
     
110.     (setq ENT (entget (ssname SE INDEX)) ;; 获取SE中指定索引处的实体信息，并赋值给ENT
     
111.                         TMP (cdr (assoc DXF ENT)) ;; 从实体信息中提取DXF对应的值，并赋值给TMP
     
112.     )
     
113.     (if
     
114.       (and
     
115.         INT ;; 如果INT存在且不为nil
     
116.         (= (type INT) 'INT) ;; 且INT的类型为INT
     
117.         (= (type TMP) 'list) ;; 且TMP的类型为列表
     
118.         (< INT (length TMP)) ;; 且INT小于TMP列表的长度
     
119.       )
     
120.       (setq TMP (nth INT TMP)) ;; 则将TMP的第INT个元素赋值给TMP
     
121.     )
     
122.     (setq LST (cons  ;; 将包含TMP值和实体信息第5项值的列表作为新元素，加入到LST列表中
     
123.                 (list TMP (cdr (assoc 5 ENT)))
     
124.                 LST
     
125.               )
     
126.     )
     
127.     (setq INDEX (1+ INDEX)) ;; 索引自增1
     
128.   )
     
129.         ;; 排序操作
     
130.         (if
     
131.                 (and
     
132.                         FUZZ ;; 如果FUZZ存在且不为nil
     
133.                         (or
     
134.                                 (= (type FUZZ) 'INT) ;; 且FUZZ的类型为INT
     
135.                                 (= (type FUZZ) 'REAL) ;; 或FUZZ的类型为REAL
     
136.                         )
     
137.                         (or
     
138.                                 (= (type TMP) 'INT) ;; 且TMP的类型为INT
     
139.                                 (= (type TMP) 'REAL) ;; 或TMP的类型为REAL
     
140.                         )
     
141.                 )
     
142.                 (setq NEWLST (vl-sort  ;; 如果满足条件，则对LST列表进行排序，排序规则为加入FUZZ后比较
     
143.                                                                          LST
     
144.                                                                          (function
     
145.                                                                                  (lambda (E1 E2)
     
146.                                                                                          (< (+ (car E1) FUZZ) (car E2))
     
147.                                                                                  )
     
148.                                                                          )
     
149.                                                                  )
     
150.                 )
     
151.                 (setq NEWLST (vl-sort  ;; 否则对LST列表进行排序，按照原始值比较
     
152.                                                                          LST
     
153.                                                                          (function
     
154.                                                                                  (lambda (E1 E2)
     
155.                                                                                          (< (car E1) (car E2))
     
156.                                                                                  )
     
157.                                                                          )
     
158.                                                                  )
     
159.                 )
     
160.         )
     
161.   ;; 如果K为T，则倒置
     
162.   (if K  ;; 如果K为真
     
163.     (setq NEWLST (reverse NEWLST)) ;; 则将NEWLST列表倒置
     
164.   )
     
165.   ;; 组织排序后的选择集
     
166.   (setq NEWSE (ssadd)) ;; 初始化新的选择集NEWSE
     
167.   (foreach TMP NEWLST  ;; 遍历NEWLST
     
168.     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE)) ;; 将每个元素对应的实体添加到NEWSE中
     
169.   )
     
170.   ;; 返回值
     
171.   NEWSE ;; 返回NEWSE作为函数的返回值
     
172. )
     

(defun c:TT1 ()<br />   (setq SS (ssget)) ; 获取用户选择的选择集<br />         (setq SS2 (SORT-RIGHT2LEFT SS 0 nil))<br />         ;(setq SS2 (SORT-DOWN2UP (SORT-RIGHT2LEFT SS 0 nil) 0 nil))<br />         ;(setq SS2 (SORT-SE SS 10 0 0 nil) )<br />         (printSelectionSetText SS2)<br />   (princ)<br /> )<br /> (defun c:TT2 ()<br />   (setq SS (ssget)) ; 获取用户选择的选择集<br />         ;(setq SS2 (SORT-RIGHT2LEFT SS 0 nil))<br />         (setq SS2 (SORT-DOWN2UP (SORT-RIGHT2LEFT SS 0 nil) 0 nil))<br />         ;(setq SS2 (SORT-SE SS 10 0 0 nil) )<br />         (printSelectionSetText SS2)<br />   (princ)<br /> )<br /> <br /> <br /> (defun printSelectionSetText (ss / len i ent data text)<br />   (setq len (sslength ss)) ; 获取选择集中对象的数量<br />   (setq i 0)<br />   (repeat len<br />     (setq ent (ssname ss i)) ; 获取选择集中的下一个对象<br />     (setq data (entget ent)) ; 获取对象的数据<br />     (setq text (cdr (assoc 1 data))) ; 获取文本内容，假设对象是文本实体<br />     (princ text) ; 输出文本内容<br />     (setq i (1+ i))<br />   )<br />   (princ)        <br /> )<br /> (defun SORT-RIGHT2LEFT (SE FUZZ K / ENT INDEX LST NEWLST NEWSE TMP X)<br />         (setq DXF 10)<br />         (SETQ INT 0)<br />   (setq LST   '() ;; 初始化空列表LST<br />                 INDEX 0 ;; 初始化索引INDEX为0<br />   )<br />   (repeat (sslength SE)  ;; 根据SE的长度进行循环<br />     (setq ENT (entget (ssname SE INDEX)) ;; 获取SE中指定索引处的实体信息，并赋值给ENT<br />                         TMP (cdr (assoc DXF ENT)) ;; 从实体信息中提取DXF对应的值，并赋值给TMP<br />     )<br />     (if <br />       (and <br />         INT ;; 如果INT存在且不为nil<br />         (= (type INT) 'INT) ;; 且INT的类型为INT<br />         (= (type TMP) 'list) ;; 且TMP的类型为列表<br />         (< INT (length TMP)) ;; 且INT小于TMP列表的长度<br />       )<br />       (setq TMP (nth INT TMP)) ;; 则将TMP的第INT个元素赋值给TMP<br />     )<br />     (setq LST (cons  ;; 将包含TMP值和实体信息第5项值的列表作为新元素，加入到LST列表中<br />                 (list TMP (cdr (assoc 5 ENT)))<br />                 LST<br />               )<br />     )<br />     (setq INDEX (1+ INDEX)) ;; 索引自增1<br />   )<br />         ;; 排序操作<br />         (if <br />                 (and <br />                         FUZZ ;; 如果FUZZ存在且不为nil<br />                         (or <br />                                 (= (type FUZZ) 'INT) ;; 且FUZZ的类型为INT<br />                                 (= (type FUZZ) 'REAL) ;; 或FUZZ的类型为REAL<br />                         )<br />                         (or <br />                                 (= (type TMP) 'INT) ;; 且TMP的类型为INT<br />                                 (= (type TMP) 'REAL) ;; 或TMP的类型为REAL<br />                         )<br />                 )<br />                 (setq NEWLST (vl-sort  ;; 如果满足条件，则对LST列表进行排序，排序规则为加入FUZZ后比较<br />                                                                          LST<br />                                                                          (function <br />                                                                                  (lambda (E1 E2) <br />                                                                                          (> (+ (car E1) FUZZ) (car E2))<br />                                                                                  )<br />                                                                          )<br />                                                                  )<br />                 )<br />                 (setq NEWLST (vl-sort  ;; 否则对LST列表进行排序，按照原始值比较<br />                                                                          LST<br />                                                                          (function <br />                                                                                  (lambda (E1 E2) <br />                                                                                          (> (car E1) (car E2))<br />                                                                                  )<br />                                                                          )<br />                                                                  )<br />                 )<br />         )<br />   ;; 如果K为T，则倒置<br />   (if K  ;; 如果K为真<br />     (setq NEWLST (reverse NEWLST)) ;; 则将NEWLST列表倒置<br />   )<br />   ;; 组织排序后的选择集<br />   (setq NEWSE (ssadd)) ;; 初始化新的选择集NEWSE<br />   (foreach TMP NEWLST  ;; 遍历NEWLST<br />     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE)) ;; 将每个元素对应的实体添加到NEWSE中<br />   )<br />   ;; 返回值<br />   NEWSE ;; 返回NEWSE作为函数的返回值<br /> )<br /> <br /> <br /> (defun SORT-DOWN2UP (SE FUZZ K / ENT INDEX LST NEWLST NEWSE TMP Y)<br />         (setq DXF 10)<br />         (SETQ INT 1)<br />   (setq LST   '() ;; 初始化空列表LST<br />                 INDEX 0 ;; 初始化索引INDEX为0<br />   )<br />   (repeat (sslength SE)  ;; 根据SE的长度进行循环<br />     (setq ENT (entget (ssname SE INDEX)) ;; 获取SE中指定索引处的实体信息，并赋值给ENT<br />                         TMP (cdr (assoc DXF ENT)) ;; 从实体信息中提取DXF对应的值，并赋值给TMP<br />     )<br />     (if <br />       (and <br />         INT ;; 如果INT存在且不为nil<br />         (= (type INT) 'INT) ;; 且INT的类型为INT<br />         (= (type TMP) 'list) ;; 且TMP的类型为列表<br />         (< INT (length TMP)) ;; 且INT小于TMP列表的长度<br />       )<br />       (setq TMP (nth INT TMP)) ;; 则将TMP的第INT个元素赋值给TMP<br />     )<br />     (setq LST (cons  ;; 将包含TMP值和实体信息第5项值的列表作为新元素，加入到LST列表中<br />                 (list TMP (cdr (assoc 5 ENT)))<br />                 LST<br />               )<br />     )<br />     (setq INDEX (1+ INDEX)) ;; 索引自增1<br />   )<br />         ;; 排序操作<br />         (if <br />                 (and <br />                         FUZZ ;; 如果FUZZ存在且不为nil<br />                         (or <br />                                 (= (type FUZZ) 'INT) ;; 且FUZZ的类型为INT<br />                                 (= (type FUZZ) 'REAL) ;; 或FUZZ的类型为REAL<br />                         )<br />                         (or <br />                                 (= (type TMP) 'INT) ;; 且TMP的类型为INT<br />                                 (= (type TMP) 'REAL) ;; 或TMP的类型为REAL<br />                         )<br />                 )<br />                 (setq NEWLST (vl-sort  ;; 如果满足条件，则对LST列表进行排序，排序规则为加入FUZZ后比较<br />                                                                          LST<br />                                                                          (function <br />                                                                                  (lambda (E1 E2) <br />                                                                                          (< (+ (car E1) FUZZ) (car E2))<br />                                                                                  )<br />                                                                          )<br />                                                                  )<br />                 )<br />                 (setq NEWLST (vl-sort  ;; 否则对LST列表进行排序，按照原始值比较<br />                                                                          LST<br />                                                                          (function <br />                                                                                  (lambda (E1 E2) <br />                                                                                          (< (car E1) (car E2))<br />                                                                                  )<br />                                                                          )<br />                                                                  )<br />                 )<br />         )<br />   ;; 如果K为T，则倒置<br />   (if K  ;; 如果K为真<br />     (setq NEWLST (reverse NEWLST)) ;; 则将NEWLST列表倒置<br />   )<br />   ;; 组织排序后的选择集<br />   (setq NEWSE (ssadd)) ;; 初始化新的选择集NEWSE<br />   (foreach TMP NEWLST  ;; 遍历NEWLST<br />     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE)) ;; 将每个元素对应的实体添加到NEWSE中<br />   )<br />   ;; 返回值<br />   NEWSE ;; 返回NEWSE作为函数的返回值<br /> )<br />

moshouhot

e2002 发表于 2023-12-11 15:50
当初写批量创建 Layouts 工具的时候，也是需要这么个 左右上下 共8种排序方式（实际上是4种，另外四种是其 ...

根据您的代码改写了一个SORT-XY函数，版权归原作者所有。


SORT-XY函数是一个AutoLISP函数，用于对AutoCAD中的实体进行排序，并根据排序结果创建一个新的选择集。函数的参数包括SE（选择集）、sSort（排序方式）、FUZZ（模糊匹配值）等。以下是SORT-XY函数的使用说明：

功能
SORT-XY函数将AutoCAD选择集中的实体根据指定的排序方式进行排序。排序依据是实体的坐标值和图元句柄。排序完成后，函数将创建一个新的选择集，包含排序后的实体。

参数
SE: 选择集，包含需要排序的AutoCAD实体。
sSort: 字符串，指定排序方式。共有8种排序方式，分别对应不同的坐标排序策略。
FUZZ: 数值，用于模糊匹配坐标值，当两个坐标值的差值小于或等于FUZZ时，将使用第二排序标准。
排序方式
"1": 左到右，上到下
"2": 左到右，下到上
"3": 右到左，上到下
"4": 右到左，下到上
"5": 上到下，左到右
"6": 上到下，右到左
"7": 下到上，左到右
"8": 下到上，右到左
使用步骤
使用AutoCAD的选择工具选择一组实体。
调用SORT-XY函数，并传入选择集、排序方式和FUZZ值。
函数将根据提供的排序方式对实体进行排序。
函数将创建一个新的选择集，包含排序后的实体。
示例
(SORT-XY SS 1 10)
排序方式为1，FUZZ值为10

返回值
SORT-XY函数返回一个新的选择集，包含排序后的实体。

值得学习的地方：将选择集转换为列表，只需要同时存储图元句柄就能反转换回去。