获取当前CAD的信任目录或目录lst
本帖最后由 jpg102329 于 2017-8-21 08:09 编辑;11:08 2017/7/15
【唐僧】晗子轩(515357067) 11:06:37
;;;函数名称:SW-Trustcatalogfolder
;;;函数说明:获取当前CAD的信任目录或目录lst
;;;参 数:num:
; nil-----------------返回信任目录lst，list格式
; 值(0、1、2……)-----返回list中的一个路径,string格式
;;;示 例:(Trustcatalogfolder 2)
(defun Trustcatalogfolder(num / allfolders bf-str->lst bf-str-parsebylst)
(defun BF-str->lst(str del / pos);by落魄山人
(if(setq pos (vl-string-search del str))
(cons (substr str 1 pos)
(BF-str->lst (substr str (+ pos 1 (strlen del))) del)
)
(list str)
)
)
(defun BF-Str-ParseByLst (lstr DelimLst);by落魄山人
(setq lstr (list lstr))
(foreach del DelimLst
(setq lstr (apply 'append (mapcar '(lambda (x) (BF-str->lst x del)) lstr)))
)
(if (member " " DelimLst)
(vl-remove "" lstr)
lstr
)
)
;-----start
(setq allfolders (BF-Str-ParseByLst (getenv "ACAD") '(";")))
(cond
((= num nil)
(reverse(cdr(reverse allfolders)))
)
((and
(/= num nil)
(>= num 0)
(< num (length allfolders))
)
(nth num allfolders)
)
(t (princ "\nTrustcatalogfolder函数参数有误"))
)
)
<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！
路过,支持楼主 liunian0524 发表于 2017-8-17 09:17
路过,支持楼主
感谢支持:lol 那个是支持路径吧
(getvar "TRUSTEDPATHS")这个才是信任路径 路过,支持楼主 路过，支持，你把我在群里发的给发着来了，反正我懒，不想发帖子 路过，支持。 支持支持，顶一下
页:
[1]