怎么在启动CAD时自动加载Lisp的工具和插件

方法1：添加到启动组 CAD的工具插件都可以通过appload(ap)命令来加载，在d出的“加载\卸载应用程序”对话框中，可以找到“启动组”。不同CAD不一样，AutoCAD是在“启动组”下面有一个“内容”按钮，点击此按钮就可以需要启动时自动加载的程序加进去，添加到启动组后，下次启动CAD的时候这些程序就会自动加载。 这种方式比较简单易行，任何 *** 作起来都没有难度。 方法2：在启动的lisp文件加入LOAD语句。 无论是AutoCAD还是国产CAD，启动时都会有一个自动加载的LISP程序，AutoCAD加载的是acadlsp或acadxxxxlisp(xxxx为版本号)，acaddoclsp等（通常在AutoCAD的support目录下），很多CAD病毒正是利用了这一点来加载从而影响CAD的应用。 需要做的就是用记事本打开这些LSP，在里面加上类似下面的语句： (LOAD "x:\\xxxxx\\sp2pllsp") 如果觉得写路径太麻烦，你就可以将程序复制刚才哪些自动加载LISP所在的路径。

有三种方法可以实现上述功能:

1使用appload

命令，会出现对话框，点文件，找到你硬盘上的Lisp文件后，点击加载即可。

2直接在COMMAND:后面输入(load硬盘路径//lsp)即可。

你要自动加载autolisp是吧！方法如下：

打开记事本，点击保存，命名为acaddoclsp，这个命名可以使AutoCAD每次打开dwg文件都会自动搜索加载lisp。

AutoCAD要搜索到这个文件的话，需要搜索路径指定这个文件的位置：打开AutoCAD-》选项-》文件-》搜索路径添加这个文件路径。

在acaddoclsp里面写上这样的话：(load "文件名")。例：有个程序名称为：wjmlsp，那么就写：(load "wjm")。

当然wjmlsp也在同一个文件夹，否则AutoCAD会搜索不到。

同样的，其它程序加载就这样添加。

试试，是不是比启动组添加程序要方便多了？

(defun c:dqwz()

(command"-VBALOAD""F:\\安装软件\\CAD宏\\对齐与调整文字间距dvb")

(command "-vbarun" "SpaceText")

)

这里的F:\\安装软件\\CAD宏\\对齐与调整文字间距dvb 是cad宏的位置，SpaceText是sub SpaceText（），dqwz是快捷命令，新建一个lsp，用appload命令添加进启动组，输入快捷命令即可启动cad 宏

步骤如下：1使用菜单“工具\自定义\界面”，如下第一个附图所示。

2在其对话框中，如下第二个附图所示，在左下角的命令列表区域之右上角附近找到“创建新命令”按钮，点击之。

3在变化了的右侧界面中的右上方，“按钮图像”栏内，选择一个需要增加命令的按钮图像，它将显示在新增的工具栏的按钮上。接着在其下方的“特性”栏内，编写新命令的信息，本例中是新增一个et命令，可以起名叫“延长任意直线”，将其填写在“名称”一行内，这是新命令的解释名称，可应用于对话框左下方的命令搜索。在“宏”一行中已经存在的^C^C之后接着填写自编的应用程序vlx文件定义的新命令的执行名称，本例中是et。然后，点击对话框下方的“应用”按钮，即完成了新命令的添加。

4在这个对话框中的左上方的“所有自定义文件”中，将光标置于“工具栏”一项上，用右键菜单，选择"新建工具栏"菜单项。

5界面变化为在工具栏文件夹下出现“工具栏1”（此时右侧的图像未变，与本 *** 作无关，忽略之）。在界面左下方的命令列表栏下的命令搜索行内，打入新命令的解释名称“延长任意直线”，下方即出现所定义的新命令图标及解释名称文字。

6用光标按住新命令的图标及文字行，将其拖拽到上方的“工具栏1”的图标上，即实现了将此新命令增加到自定义的工具栏中的过程。最后，要点击对话框下方的确认按钮。

7这时自定义界面退出，屏幕上出现了自定义的"工具栏1"的工具栏，可以将其拖拽到任意位置，其中的一个新增按钮，就是自定义的et命令，它系由自编的vlx程序定义的自编命令。此按钮运行成功的前提，是事先加载这个自编vlx程序成功。

你好，请您试一试下面的程序：

;小程序，实现个小功能——比如cad上面有三行文字：

;第一行为：小红年龄：18

;第二行为：小明年龄：9

;第三行为：小李年龄：5

;（这三行文字里年龄都是变的）

;然后调用lisp程序，程序提示选择这三行文字，确定。

;然后程序提示指定插入点。然后点插入点。

;这时候在插入点出现两行文字：

;第一行 小红比小明大：9

;第二行 小红比小李大：13

(defun c:nl ()

(setq sss (ssget)

nm0 (nm&nl 0)

nl0 (cadr nm0)

nm0 (car nm0)

nm1 (nm&nl 1)

nl1 (cadr nm1)

nm1 (car nm1)

nm2 (nm&nl 2)

nl2 (cadr nm2)

nm2 (car nm2)

nl20 (- nl2 nl0)

nl21 (- nl2 nl1)

)

(print (list nm0 nl0 nm1 nl1 nm2 nl2 nl20 nl21))

(command "text" pause "" "" (strcat nm2 "比" nm1 "大：" (rtos nl21 2 0))

"text" "" (strcat nm2 "比" nm0 "大：" (rtos nl20 2 0))

)

)

(defun nm&nl (i / nm nl)

(setq nm (ssname sss i)

nm (entget nm)

nm (cdr (assoc 1 nm))

nl (substr nm 11)

nm (substr nm 1 4)

nl (read nl)

)

(list nm nl)

)

以上就是关于怎么在启动CAD时自动加载Lisp的工具和插件全部的内容，包括:怎么在启动CAD时自动加载Lisp的工具和插件、如何在AUTOCAD下加载Lisp程序、怎么用代码将lisp程序放到启动组里等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！