用法
评论
建议
取 消
确 定
(defun std:removesupportpath (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)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新