社区 › 编程申请 › 怎样用lisp在CAD的搜索路径中添加新的路径

ylzhaosjz 发表于 2013-4-11 09:46:56

院长的程序总是又简单,又快捷,又实用.

726613 发表于 2013-5-21 07:38:40

(defun c:tes (/ a pa lst ls1 path)
(setq a    (getenv "ACAD")
      pa   (getstring "\n盘符:")
      lst(list "c:\\xzh"    "c:\\xzh\\dwg"    "c:\\xzh\\bmp")
      ls1(car lst)
path (strcat ";" pa ls1)
lst(vl-remove ls1 lst)
)
(while lst
    (setq ls1(car lst)
   path (strcat path (strcat ";" pa ls1))
   lst(vl-remove ls1 lst)
    )
)
(setenv "ACAD" (strcat a path))
(getenv "ACAD")
)


图一


图二


图三
   没在用上面程序时如图一，用了程序如图二，如何修改程序才能实现图三，请高手指点谢谢

davide888 发表于 2013-11-5 16:34:22

学习了有读注册表的不？

894560869 发表于 2015-6-5 06:49:32

WIN7 "C:\\Windows\\Fonts" 上不了，重起CAD也不变化

qmqyqj 发表于 2019-8-3 09:19:13

怎么自动识别当前lisp文件所在的路径，然后添加该路径和子目录

love_cq 发表于 2020-6-21 11:53:33

非常好的帖子，学习了。

zhangkui9070 发表于 2020-7-31 08:36:34

非常好，添加成功，感谢院长

870447782孤星 发表于 2020-8-11 15:22:55

大佬的命令简单好用

查看完整版本: 怎样用lisp在CAD的搜索路径中添加新的路径