[求助]：如何用命令加载lisp文件？

li809

如何用命令加载lisp文件？
我的意思是不load菜单

小不点儿

看这：
http://www.xdcad.net/forum/showt ... d=368746#post368746

li809

我说的是不用appload命令来实现？
还有其他命令或方法吗

小不点儿

直接把lisp文件拖到cad屏幕

蔡钰林

用记事本打开AutoCAD\SUPPORT目录内的“acad.mnl”文件，在其文档尾部写上如下两行内容：

(load "×××")
(princ)

注：×××为要加载的LISP文件名。
这样就可以在CAD启动时自动加载一个名为“×××”的LISP文件了。

如果“×××”文件不在AutoCAD\SUPPORT目录内，比如在它C:\temp路径下，则应写为：

(load "C:/temp/×××")
(princ)

或

(load "C:\\temp\\×××")
(princ)

li809

以上的方法都可行但都不是我想要的，我的意思是：
我开启CAD的时候没有启动任何额外的LISP文件
但我用的过程中突然候用一个LISP文件里的一个程序
这个时候我就要加载所需的LISP文件，我想用一个命令“XXXX”来实现（假如所需的LISP文件为AAA.LSP）
如输入：XXXX AAA.LSP
就可以了
能否实现呢

蔡钰林

我不是很懂LISP语言，看了一下帮助文件，不知用autoload函数可以不可以。

预定义可自动加载某相关 AutoLISP 应用程序的命令名

(autoload filename cmdlist)

在执行 cmdlist 参数定义的某一个命令之前，将自动加载 filename 参数指定的一个 .lsp 文件。cmdlist 参数必须是一个字符串表。
autoload 函数返回nil。

下列代码定义了 C:APP1、C:APP2 和 C:APP3 函数将自动加载 bounsapp.lsp 文件。在第一次运行 APP1、APP2 或 APP3 命令时，先自动加载相应 AutoLISP 应用程序，然后继续执行该命令。

(autoload "BONUSAPP" '("APP1" "APP2" "APP3"))

警告  cmdlst 参数所含的命令必须在 filename 参数所指的文件中定义。

qjcpj

按需加载可在菜单或工具条按钮中定义，形如(工具条按钮，菜单与此类似)：

ID__easysel        [_Button("选择易   启动命令:SS   透明执行:'SS", "easysel.bmp", "ICON_24_BLANK")]^C^C(if (not c:ss) (load"easysel.VLX")) ss

当然也可在命令行输入，命令行只输入^C^C后面内容，注意加()。
*-*9

li809

谢谢8楼，
问题可以解决
能否写一个lsp来实现呢

7楼的应该可以，但我不懂如何运用Autoload函数

小不点儿

把文件考入CAD安装目录
直接在命令行输入：（load"xxx"）
xxx为文件名，可以不要后缀
这样还不够简单？

li809

10楼的跟8楼的一样
谢谢

xiu19791981

把要用的拖到ＣＡＤ里好象就行了啊

heluyuan

在CAD2002版support目录中用记事本打开acad2000.lsp文件,在最后面加入
(defun S::STARTUP()
(command (load"D:/autocad2002/.../XXX.lsp"))
)

liuwei1227

在工具栏里选择加载LISP程序,在对话框里选择加载救行,但是每次都要这样,并且把LISP程序拷入安装目录!