llsheng_73 · 发表于 2022-5-12 17:38:00

(defun xdirectory(folder);;;好象不含隐藏目录
  (setq folder(list(list folder)))
  (while(car(setq folder(cons(apply'append(mapcar'(lambda(x)(mapcar'(lambda(y)(strcat x"\"y))(cddr(vl-directory-files X nil -1))))
             (car folder)))folder))))(apply'append folder))
(defun SubFolers(folder / folders *Fso fold xx);;;包含隐藏目录
  (defun xx(/ lst)
    (vlax-for x(vlax-get-property(vlax-invoke-method *fso 'getfolder fold)'SubFolders)
      (setq lst(cons(vlax-get-property x 'path)lst)))
    (reverse lst))
  (if(VL-FILE-DIRECTORY-P folder)
    (progn
      (setq *Fso(vlax-get-or-create-object"Scripting.FileSystemObject")
            folders(list(vlax-get-property(vlax-invoke-method *fso 'getfolder folder)'path))i 0)
      (while(setq fold(nth i folders))
        (setq folders(append folders(append(xx)))i(1+ i)))
      (vlax-release-object *Fso)
      folders)))

guosheyang · 发表于 2022-5-14 23:05:00

感谢大佬的共享！

babylon1386 · 发表于 2022-5-19 08:44:00

多谢73大佬，这个功能很实用

hh_lj007 · 发表于 2022-5-19 09:15:00

感谢大佬的共享！

ZJKUSO · 发表于 2022-7-5 22:34:00

前辈，帮忙看一下，我拼凑的这个，拖拽获取当前lsp文件所在目录并添加到CAD搜索路径，在CAD2010上完美运行，但是CAD2006上就会出问题；
;CAD2006下路径较深就会多出来一个双引号
输出结果："D:\Downloads\【办公软件】\AutoCAD
(vl-load-com)
(while (= (logand (getvar "CmdActive") 1) 1)(command)) ;结束已有命令
(princ "\n")
(setq path (getvar "lastprompt"))
(if (wcmatch (strcase path) "*(LOAD \"*")
  (setq str (vl-string-search "(LOAD \"" path)
      path (substr path
                  (+ str 8)
                  (- (vl-string-search "\")" path) str 7) ;为lastprompt提取的命令去头去尾
            )
  )
)
(setq path (vl-filename-directory (vl-string-translate "/" "\\" path))) ;转换路径，去掉文件名及扩展名，提纯路径
(setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-string-right-trim "\"" path))) ;删除多余的双引号后插入搜索目录末尾，06上未生效
(princ)
因工作需要，需要大量使用CAD2006，麻烦帮忙看一下该怎么调整？

ZJKUSO · 发表于 2022-7-5 22:36:00

还有这种方式，也是CAD2010正常，CAD2006路径较深就会提示  ; 错误: 参数类型错误: (or stringp symbolp): nil
;;添加到搜索目录，支持appload加载、命令行(load "xx")加载和直接拖拽加载
;;CAD2010正常，CAD2006没反应
(vl-load-com)
(defun set_path (/ str str1 str2 str3 n1 n2)
(while (= (logand (getvar "CmdActive") 1) 1)(command)) ;结束已有命令
(princ "\n")
   (setq str (getvar "lastprompt"))             ;lastprompt方式，获得最后一行命令，例如：(LOAD "D:/Downloads/添加路径.lsp")
      (if (wcmatch (strcase str) "*(LOAD \"*")
      (setq
      n1 (vl-string-search "(LOAD \"" str)
      str1 (substr str (+ n1 8))
      n2 (vl-string-search "\")" str1)
      str2 (substr str1 1 (1+ n2))
      str3 (vl-filename-directory (vl-string-translate "/" "\\" str2))
      )
   )
(setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-string-right-trim "\"" str3)))
)
(set_path)
(setq set_path "文件路径已添加到搜索目录!")

非递归返回指定目录下所有子目录

发表回复

精选推荐

浏览过的版块