感谢大佬分享~~
韩飞翔 发表于 2023-12-4 12:03
程序不缺函数，只是函数写在排序函数内，然后子函数作为可变变量清空了，鉴于初学者不会改代码，直接给你改 ...
可以用激情换明经币的呀
本帖最后由 韩飞翔 于 2023-12-6 18:28 编辑
qazxswk 发表于 2023-12-6 17:23
可以用激情换明经币的呀
哦，知道了
还是谢谢分享了。
牛
牛 牛
牛 牛 牛 牛 牛 牛
牛 牛
牛 牛 牛 牛 牛
牛
老师，教我
本帖最后由 e2002 于 2023-12-11 15:56 编辑
当初写批量创建 Layouts 工具的时候，也是需要这么个 左右上下 共8种排序方式（实际上是4种，另外四种是其他4种的倒序而已），为了简化代码，所以用了一点办法。大家共同学习提高，代码没有任何限制没有任何保证（包括商用），完全公开，无币可下载：
;; 边界列表的2次排序函数
(defun _lkpt_Layout_CreateByTitleBlocks_Sort ( / i1 sym1 i2 sym2 l_sort u v lReturn)
(cond
( (= sSort "1") (setq i1 1 sym1 '> i2 0 sym2 '<) );;左到右，上到下
( (= sSort "2") (setq i1 1 sym1 '< i2 0 sym2 '<) );;左到右，下到上
( (= sSort "3") (setq i1 1 sym1 '> i2 0 sym2 '>) );;右到左，上到下
( (= sSort "4") (setq i1 1 sym1 '< i2 0 sym2 '>) );;右到左，下到上
( (= sSort "5") (setq i1 0 sym1 '< i2 1 sym2 '>) );;上到下，左到右
( (= sSort "6") (setq i1 0 sym1 '> i2 1 sym2 '>) );;上到下，右到左
( (= sSort "7") (setq i1 0 sym1 '< i2 1 sym2 '<) );;下到上，左到右
( (= sSort "8") (setq i1 0 sym1 '> i2 1 sym2 '<) );;下到上，右到左
);_cond
(setq l_sort (vl-sort lBoundarys (function (lambda (u v) ((vl-symbol-value sym1) (nth i1 (car u)) (nth i1 (car v)))))) );_第一次排序
(setq l_sort (vl-sort l_sort (function (lambda (u v)
(if (< (abs (- (nth i1 (car u)) (nth i1 (car v)))) rFuzzy)
((vl-symbol-value sym2) (nth i2 (car u)) (nth i2 (car v)))
nil
);_fi
);_lam
);_fun
)
);_第二次排序
(setq lReturn l_sort)
);_defun _lkpt_Layout_CreateByTitleBlocks_Sort
关于为什么要分开两次排序：
最初是写为一次排序，在条件中判断x，y两个值，然而结果就是会出现问题，按理应该是不会出现错误的，后来我怀疑是vl-sort的问题，然后自己重写了一个专门针对这个x，y坐标值两个条件来排序的函数，就不会出错了，因此，应该是 vl-sort的问题。记得当时和Qf还讨论过vl-sort的这个bug。
e2002 发表于 2023-12-11 16:00
关于为什么要分开两次排序：
最初是写为一次排序，在条件中判断x，y两个值，然而结果就是会出现问题，按理 ...
翻了您的回复记录没找到您提到的vl-sort的问题。
能帮我看看 这个代码是有什么问题吗，问了chatgpt也没给我解决。
TT1函数是正常的“123” TT2函数的顺序就不正常了“321654”，会颠倒嵌套内部的选择集顺序
(defun c:TT1 ()
(setq SS (ssget)) ; 获取用户选择的选择集
(setq SS2 (SORT-RIGHT2LEFT SS 0 nil))
;(setq SS2 (SORT-DOWN2UP (SORT-RIGHT2LEFT SS 0 nil) 0 nil))
;(setq SS2 (SORT-SE SS 10 0 0 nil) )
(printSelectionSetText SS2)
(princ)
)
(defun c:TT2 ()
(setq SS (ssget)) ; 获取用户选择的选择集
;(setq SS2 (SORT-RIGHT2LEFT SS 0 nil))
(setq SS2 (SORT-DOWN2UP (SORT-RIGHT2LEFT SS 0 nil) 0 nil))
;(setq SS2 (SORT-SE SS 10 0 0 nil) )
(printSelectionSetText SS2)
(princ)
)
(defun printSelectionSetText (ss / len i ent data text)
(setq len (sslength ss)) ; 获取选择集中对象的数量
(setq i 0)
(repeat len
(setq ent (ssname ss i)) ; 获取选择集中的下一个对象
(setq data (entget ent)) ; 获取对象的数据
(setq text (cdr (assoc 1 data))) ; 获取文本内容，假设对象是文本实体
(princ text) ; 输出文本内容
(setq i (1+ i))
)
(princ)
)
(defun SORT-RIGHT2LEFT (SE FUZZ K / ENT INDEX LST NEWLST NEWSE TMP X)
(setq DXF 10)
(SETQ INT 0)
(setq LST '() ;; 初始化空列表LST
INDEX 0 ;; 初始化索引INDEX为0
)
(repeat (sslength SE);; 根据SE的长度进行循环
(setq ENT (entget (ssname SE INDEX)) ;; 获取SE中指定索引处的实体信息，并赋值给ENT
TMP (cdr (assoc DXF ENT)) ;; 从实体信息中提取DXF对应的值，并赋值给TMP
)
(if
(and
INT ;; 如果INT存在且不为nil
(= (type INT) 'INT) ;; 且INT的类型为INT
(= (type TMP) 'list) ;; 且TMP的类型为列表
(< INT (length TMP)) ;; 且INT小于TMP列表的长度
)
(setq TMP (nth INT TMP)) ;; 则将TMP的第INT个元素赋值给TMP
)
(setq LST (cons;; 将包含TMP值和实体信息第5项值的列表作为新元素，加入到LST列表中
(list TMP (cdr (assoc 5 ENT)))
LST
)
)
(setq INDEX (1+ INDEX)) ;; 索引自增1
)
;; 排序操作
(if
(and
FUZZ ;; 如果FUZZ存在且不为nil
(or
(= (type FUZZ) 'INT) ;; 且FUZZ的类型为INT
(= (type FUZZ) 'REAL) ;; 或FUZZ的类型为REAL
)
(or
(= (type TMP) 'INT) ;; 且TMP的类型为INT
(= (type TMP) 'REAL) ;; 或TMP的类型为REAL
)
)
(setq NEWLST (vl-sort;; 如果满足条件，则对LST列表进行排序，排序规则为加入FUZZ后比较
LST
(function
(lambda (E1 E2)
(> (+ (car E1) FUZZ) (car E2))
)
)
)
)
(setq NEWLST (vl-sort;; 否则对LST列表进行排序，按照原始值比较
LST
(function
(lambda (E1 E2)
(> (car E1) (car E2))
)
)
)
)
)
;; 如果K为T，则倒置
(if K;; 如果K为真
(setq NEWLST (reverse NEWLST)) ;; 则将NEWLST列表倒置
)
;; 组织排序后的选择集
(setq NEWSE (ssadd)) ;; 初始化新的选择集NEWSE
(foreach TMP NEWLST;; 遍历NEWLST
(setq NEWSE (ssadd (handent (cadr TMP)) NEWSE)) ;; 将每个元素对应的实体添加到NEWSE中
)
;; 返回值
NEWSE ;; 返回NEWSE作为函数的返回值
)
(defun SORT-DOWN2UP (SE FUZZ K / ENT INDEX LST NEWLST NEWSE TMP Y)
(setq DXF 10)
(SETQ INT 1)
(setq LST '() ;; 初始化空列表LST
INDEX 0 ;; 初始化索引INDEX为0
)
(repeat (sslength SE);; 根据SE的长度进行循环
(setq ENT (entget (ssname SE INDEX)) ;; 获取SE中指定索引处的实体信息，并赋值给ENT
TMP (cdr (assoc DXF ENT)) ;; 从实体信息中提取DXF对应的值，并赋值给TMP
)
(if
(and
INT ;; 如果INT存在且不为nil
(= (type INT) 'INT) ;; 且INT的类型为INT
(= (type TMP) 'list) ;; 且TMP的类型为列表
(< INT (length TMP)) ;; 且INT小于TMP列表的长度
)
(setq TMP (nth INT TMP)) ;; 则将TMP的第INT个元素赋值给TMP
)
(setq LST (cons;; 将包含TMP值和实体信息第5项值的列表作为新元素，加入到LST列表中
(list TMP (cdr (assoc 5 ENT)))
LST
)
)
(setq INDEX (1+ INDEX)) ;; 索引自增1
)
;; 排序操作
(if
(and
FUZZ ;; 如果FUZZ存在且不为nil
(or
(= (type FUZZ) 'INT) ;; 且FUZZ的类型为INT
(= (type FUZZ) 'REAL) ;; 或FUZZ的类型为REAL
)
(or
(= (type TMP) 'INT) ;; 且TMP的类型为INT
(= (type TMP) 'REAL) ;; 或TMP的类型为REAL
)
)
(setq NEWLST (vl-sort;; 如果满足条件，则对LST列表进行排序，排序规则为加入FUZZ后比较
LST
(function
(lambda (E1 E2)
(< (+ (car E1) FUZZ) (car E2))
)
)
)
)
(setq NEWLST (vl-sort;; 否则对LST列表进行排序，按照原始值比较
LST
(function
(lambda (E1 E2)
(< (car E1) (car E2))
)
)
)
)
)
;; 如果K为T，则倒置
(if K;; 如果K为真
(setq NEWLST (reverse NEWLST)) ;; 则将NEWLST列表倒置
)
;; 组织排序后的选择集
(setq NEWSE (ssadd)) ;; 初始化新的选择集NEWSE
(foreach TMP NEWLST;; 遍历NEWLST
(setq NEWSE (ssadd (handent (cadr TMP)) NEWSE)) ;; 将每个元素对应的实体添加到NEWSE中
)
;; 返回值
NEWSE ;; 返回NEWSE作为函数的返回值
)
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函数返回一个新的选择集，包含排序后的实体。
值得学习的地方：将选择集转换为列表，只需要同时存储图元句柄就能反转换回去。