我想尝试的是在acad中添加一些代码。lsp收件人:
1、删除企业和主要定制文件路径
2.将其添加回
就像Lee Mac的代码一样
http://www.lee-mac.com/addremovesupportpaths.html
- ;; Remove Support File Search Paths - Lee Mac
- ;; Removes a list of Support File Search Paths if present.
- ;; lst - [lst] list of paths to remove (case-insensitive), e.g. '("C:\\Folder1" "C:\\Folder2" ... )
- ;; Returns: [str] "ACAD" Environment String following modification
- (defun LM:sfsp- ( lst / del str tmp )
- (defun del ( old str / pos )
- (if (setq pos (vl-string-search (strcase old) (strcase str)))
- (strcat (substr str 1 pos) (del old (substr str (+ 1 pos (strlen old)))))
- str
- )
- )
- (setq str (strcat (vl-string-right-trim ";" (getenv "ACAD")) ";")
- tmp str
- )
- (foreach pth lst
- (setq str (del (strcat (vl-string-right-trim "\" (vl-string-translate "/" "\" pth)) ";") str))
- )
- (if (/= tmp str) (setenv "ACAD" str))
- )
是否可以对其进行修改以删除企业和主要定制文件路径,而不是SFSP? |