 - (defun strParse (sstring sstr)
- (setq string_list '())
- (setq n1 (strlen sstring))
- (setq n2 (strlen sstr))
- (while (setq m2 (vl-string-search sstr sstring))
- (setq str_1 (substr sstring 1 m2))
- (setq sstring (substr sstring (+ 1 m2 n2)))
- (if (/= str_1 "")
- (setq string_list (cons str_1 string_list))
- )
- )
- (if (/= sstring "")
- (setq string_list (cons sstring string_list))
- )
- (reverse string_list)
- )
- -----------------------------------------------------------------------
- (defun StrUnParse (Lst Delimiter / return)
- (setq return "")
- (foreach str Lst
- (setq return (strcat return Delimiter str))
- )
- (substr return 2)
- )
- (defun AddSupportPath (PathToAdd isFirst / supportlist)
- (if (not
- (vl-string-search
- (strcase (strcat pathToAdd ";"))
- (strcase (strcat (getenv "ACAD") ";"))
- )
- )
- (progn
- (setq supportlist (strparse (getenv "ACAD") ";"))
- (setq supportlist
- (vl-remove-if-not
- 'vl-file-directory-p
- supportlist
- )
- )
- (if isFirst
- (setq supportlist (cons PathToAdd supportlist))
- (setq supportlist (append supportlist (list PathToAdd)))
- )
- (setenv "ACAD" (strUnParse supportlist ";"))
- )
- )
- )
- (AddSupportPath "C:\\test1" " ")
- (AddSupportPath "C:\\test2" nil)
- (AddSupportPath "C:\\test3" nil)
- (AddSupportPath "C:\\test4" nil)
- (princ)
是可以添加多个目录的,前提是这些目录是真实有效的。
如:我的c盘局部截图:
我原来的文件搜索列表:
添加后:
|