[求助]：LISP程序问题咨询，高手请进

zhb2516

天正3.0可以通过acad.lsp实现自动加载，我现在用天正5.0，请问5.0里LISP文件如何自动加载？我试着也写到acad.lsp里并放置在天正5.0的sys文件夹中，打开CAD可以自动加载，但我点“文件--打开”一张图纸后，在打开的图中不能使用LSP中的命令，实际上并没有自动加载，我手动操作加载后就可以用了，请问5.0中如何才能自动加载LISP文件呢？

XDSoft

最初由 zhb2516 发布
[B]天正3.0可以通过acad.lsp实现自动加载，我现在用天正5.0，请问5.0里LISP文件如何自动加载？我试着也写到acad.lsp里并放置在天正5.0的sys文件夹中，打开CAD可以自动加载，但我点“文件--打开”一张图纸后，在打开的图... [/B]

打开图后,在命令行输入:

(findfile "acad.lsp") 回车

你看看提示是什么? 贴到论坛来.

zhb2516

(findfile "acad.lsp") "D:\\Tangent\\TArch5\\SYS\\acad.lsp"

XDSoft

最初由 zhb2516 发布
[B](findfile "acad.lsp") "D:\\Tangent\\TArch5\\SYS\\acad.lsp" [/B]

这就说明, SYS目录下的ACAD.LSP已经加载了.

你的问题出在别的地方.

你说的: "在打开的图中不能使用LSP中的命令", 是你在这个ACAD.LSP命令中定义的吗?

详细说下. 你是怎么在ACAD.LSP中写的.

zhb2516

例如：
;#########  剖面 ###########
(defun C:GT()(_@Ld"Ddlst")(c:ddlst));参数直梯
(defun C:GY()(_@ld"sstair1")(c:handrail));楼梯栏杆
;######### 通用图案 ###########
(defun C:S1()(_@Ld"Linepat")(c:soil1));自然土壤
(defun C:S2()(_@Ld"Linepat")(c:soil2));素土券实
(defun C:B1()(_@Ld"Linepat")(c:brick1));空心砖
(defun C:B2()(_@Ld"Linepat")(c:brick2));饰面砖
;######### 旧版命令 ###########
(defun C:VX ()(_@Ld"Tool1")(c:dsect2));单线剖断
(defun C:VB ()(_@Ld"Tool1")(c:ptbreak));交点打断
...........等等

XDSoft

最初由 zhb2516 发布
[B]例如：
;#########  剖面 ###########
(defun C:GT()(_@Ld"Ddlst")(c:ddlst));参数直梯
(defun C:GY()(_@ld"sstair1")(c:handrail));楼梯栏杆
;######### 通用图案 ###########
(defun C:S1()(_@Ld"Linepat")(c... [/B]

_@ld 函数是在ACAD.LSP里面定义的, 你这些自定义的命令是放到ACAD.LSP文件最后吗? 也就是_@ld 函数在你的命令前面定义.

zhb2516

天正5.0的SYS文件夹中没有ACAD.LSP文件，我自己建了一个空的ACAD.LSP文件，把想用的命令写在里面，放在SYS文件夹中，在打开已有的图纸中不能实现自动加载，我用“工具--加载应用程序”手动加载以后才可以使用，我是想让它自己去执行加载。

lijiao

这里：选中每个图形均加载ACAD.LSP

zhb2516

谢谢lijiao  ，以后加载就轻松了啊，太棒了！

lijiao

最初由 zhb2516 发布
[B]谢谢lijiao  ，以后加载就轻松了啊，太棒了！ [/B]

不用谢，欢迎常来多交流。