将布局按名字重新排序

marting · 发表于 2017-12-20 17:45:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun sortlayouts (/ _pad mx)
(defun _pad (string pad) (repeat pad (setq string (strcat "0" string))) string)
(setq mx (apply 'max (mapcar 'strlen (layoutlist))))
((lambda (lst)
(vlax-map-collection
(vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
'(lambda (lay / pos)
(if (setq pos (vl-position (vla-get-name lay) lst))
(vla-put-taborder lay (1+ pos))
)
)
)
)
(vl-sort (layoutlist) '(lambda (a b) (< (_pad a (- mx (strlen a))) (_pad b (- mx (strlen b))))))
)
)

fools · 发表于 2017-12-20 21:57:15

不错的函数。提点小建议供您参考。当布局名含前缀文字时排序可能会出错，比如("A-1" "B-1" "A-11" "B-2") 将得到这样的顺序("A-1" "B-1" "B-2" "A-11")，而非("A-1" "A-11" "B-1" "B-2")
所以将字符串中的数字和非数字拆分再排序，结果会更准确。
Lee Mac提供了类似的拆分函数（LM:getfiles:splitstring）和排序函数（LM:getfiles:sortlist）
http://www.lee-mac.com/lisp/html/GetFilesV1-6.html
不过Lee Mac用read函数拆分字符串，虽然英文不会出错，但对于汉字内码中第二字节在（0x40-0x7E）之间的汉字会出错，比如“璟”

kqqt6236 · 发表于 2017-12-21 00:08:00

fools 发表于 2017-12-20 21:57

不错的建议！

newer · 发表于 2017-12-21 00:09:52

fools 发表于 2017-12-20 21:57

用正则表达式就可以了。

newer · 发表于 2017-12-21 00:14:58

fools 发表于 2017-12-20 21:57

用LISP函数 acad_strlsort 就可以

命令: (acad_strlsort '("A-1" "B-1" "A-11" "B-2"))
("A-1" "A-11" "B-1" "B-2")

yjch · 发表于 2017-12-21 08:46:44

好好学习天天向上，好思路

fools · 发表于 2017-12-21 09:29:43

newer 发表于 2017-12-21 00:14

marting 用字符串前面加0的方法，就是为了避免ACAD_STRLSORT出现排序错误。
比如(ACAD_STRLSORT '("A-1" "A-2" "A-11")) --->("A-1" "A-11" "A-2")

fools · 发表于 2017-12-21 09:32:01

拆分数字和非数字的函数并不复杂，黄大师写了一堆，只是提醒下用Lee Mac写的可能会出错

账号		自动登录	找回密码
密码			立即注册

[每日一码] 将布局按名字重新排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。