[编程交流] 选择多个图形-hel

(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