用法
评论
建议
取 消
确 定
(defun std:addsupportpath (lst) ((lambda (str lst) (if (setq lst (vl-remove-if (quote (lambda (x) (or (vl-string-search (strcase x) (strcase str)) (not (findfile x))))) lst)) (setenv "acad" (strcat str ";" (apply (quote strcat) (mapcar (quote (lambda (x) (strcat x ";"))) lst)))))) (vl-string-right-trim ";" (getenv "acad")) (mapcar (quote (lambda (x) (vl-string-right-trim "\\" (vl-string-translate "/" "\\" x)))) lst)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 772 个
函数库类别: 54 种
上传记录
刷新