看，我已经好几个月没有查过这个的代码了，所以我忘了应该有什么。。
加上这三个，希望这样做。。。
(defun fb-dirFix(listy / )
(vl-remove-if '(lambda (x) (or (= x ".") (= x ".."))) listy)
); Get rid of the root and parent options in a passed directory
(defun fb-dirLstFix(dir / subSpa)
(setq subSpa "")
(repeat (length (vl-remove-if-not '(lambda (x) (= x 47)) (vl-string->list dir))) (setq subSpa (strcat subSpa "")))
(strcat subSpa (vl-filename-base dir) (if (vl-filename-extension dir) (vl-filename-extension dir) ""))
); Modify a directory to visually represent its hierarchy position
(defun fb-filLstFix(dir / newDir dirLst)
(setq newDir "" dirLst (fb-string-delim dir "/"))
(foreach forVar (reverse (cdr (reverse dirLst)))
(if (> (strlen forVar) 5)
(setq newDir (strcat newDir (substr forVar 1 5) " ... /"))
(setq newDir (strcat newDir forVar "/"))
)
)
(setq newDir (strcat newDir (last dirLst)))
); Modify a directory to condense its length
非常感谢你。
现在它工作得很好。 很乐意帮忙！特别是自从我第一次发布它以来，除了对布局的抱怨，我什么也没有得到。
页:
1
[2]