怎样用lisp在CAD打开时自定加载vlx、lsp插件

tjp4

将常用的插件较多，所以想知道怎么用lisp在CAD打开时自定加载vlx、lsp插件

creatorzxz

llsheng_73 发表于 2013-12-1 01:45
(defun S::autoloadall()
  (mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文 ...

谢谢分享，试试

lostbalance

最简单的是，输入appload，在启动组里面添加相应插件

tjp4

lostbalance 发表于 2013-12-1 00:46
最简单的是，输入appload，在启动组里面添加相应插件

我知道这个，可是我不想用这个，要是重新安装CAD还得一个一个加载

llsheng_73

(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)


;;它们都能在把给定的插件给一一加载进去

xyp1964

在路径下的acad.lsp中添加 (load"1.lsp") (load"2.lsp") (load"3.lsp")  等

spp_wall

把全部放到一个lsp里不就可以了    或者自己组装个工具箱  论坛有源码

illcyt

在acad.lsp 或者 以一个菜单文件在准，建一个同名的mnl文件，里面添加

(load"1.lsp") (load"2.lsp") (load"3.lsp")  等

这样再启动的时候就会自动添加了，还有一个办法，将全部插件放置在一个文件夹，并添加至搜索路径下，用caoyin版主的自动加载一个文件夹内*.lsp *.vlx  *.fas的函数就可以实现

tjp4

llsheng_73 发表于 2013-12-1 01:45
(defun S::autoloadall()
  (mapcar 'vl-load-all '(file1 file2 ... filen));;;file为带上扩展名的插件文 ...

那要是再为这些插件自定义命令呢？那该怎么弄啊，大神

tjp4

spp_wall 发表于 2013-12-1 09:48
把全部放到一个lsp里不就可以了    或者自己组装个工具箱  论坛有源码

代码在哪呢？

llsheng_73

tjp4 发表于 2013-12-1 19:40
那要是再为这些插件自定义命令呢？那该怎么弄啊，大神

为这些插件自定义命令么那个很简单的了
比如原来命令是ABC想改成A1
你再写个(defun c:A1()
                (C:ABC))