文件夹批量处理·pldir（测试版）

yaokui25

楼主，这个功能有没有最新版的可以共享一下吗？谢谢

masterlong

点击“添加路径”没反应的具体原因
我也不知道
因为我这里一切正常

解决的办法有一个
见21楼
跳过函数中的第1句即可

;;添加路径没反应时，用下面函数代替（不懂lisp的，直接粘贴到lisp最末尾，重新加载即可）
(defun addpath( / lastpath thispath )
(setq thispath (dos_getdir "指定文件夹" "" "选择要批量操作的文件夹" Nil))
(if thispath
  (if (assoc thispath alldwg)
   (if (= 6 (dos_msgbox "已添加此路径。\n\n是否重新搜索？" "提示" 4 3))
    (addpath_main thispath)
   )
   (addpath_main thispath)
  )
  (mode_tile "cancel" 2)
)
(princ)
)

jh3030912

这个不错呀。试一试