怎样用lisp在CAD打开时自定加载vlx、lsp插件
将常用的插件较多，所以想知道怎么用lisp在CAD打开时自定加载vlx、lsp插件llsheng_73 发表于 2013-12-1 01:45
(defun S::autoloadall()
(mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文 ...
谢谢分享，试试 最简单的是，输入appload，在启动组里面添加相应插件 lostbalance 发表于 2013-12-1 00:46 static/image/common/back.gif
最简单的是，输入appload，在启动组里面添加相应插件
我知道这个，可是我不想用这个，要是重新安装CAD还得一个一个加载 本帖最后由 llsheng_73 于 2013-12-1 01:50 编辑
(defun S::autoloadall()
(mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文件名，如果不在autocad搜索目录其前边应带上路径
)
;;;;应该把这个加入启动组就可以了，或者
(defun C:loadall()
(mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文件名，如果不在autocad搜索目录其前边应带上路径
)
;;;加载后自己运行它，当然命令名可以改简单点
;;也可以下边这样也是可以在加载后自动运行的;;;
(defun loadall()
(mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文件名，如果不在autocad搜索目录其前边应带上路径
)
(loadall)
;;它们都能在把给定的插件给一一加载进去 在路径下的acad.lsp中添加 (load"1.lsp") (load"2.lsp") (load"3.lsp")等 把全部放到一个lsp里不就可以了 或者自己组装个工具箱论坛有源码 在acad.lsp 或者 以一个菜单文件在准，建一个同名的mnl文件，里面添加(load"1.lsp") (load"2.lsp") (load"3.lsp")等这样再启动的时候就会自动添加了，还有一个办法，将全部插件放置在一个文件夹，并添加至搜索路径下，用caoyin版主的自动加载一个文件夹内*.lsp *.vlx*.fas的函数就可以实现 llsheng_73 发表于 2013-12-1 01:45 static/image/common/back.gif
(defun S::autoloadall()
(mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文 ...
那要是再为这些插件自定义命令呢？那该怎么弄啊，大神 spp_wall 发表于 2013-12-1 09:48 static/image/common/back.gif
把全部放到一个lsp里不就可以了 或者自己组装个工具箱论坛有源码
代码在哪呢？ tjp4 发表于 2013-12-1 19:40 static/image/common/back.gif
那要是再为这些插件自定义命令呢？那该怎么弄啊，大神
为这些插件自定义命令么那个很简单的了
比如原来命令是ABC想改成A1
你再写个(defun c:A1()
(C:ABC))