问题请教

lfc9861 · 发表于 2002-11-5 23:17:00

实现目标：在第一次打开时加载A.LSP、B.LSP、C.LSP，随后打开的加载A.LSP、B.LSP
问题情况：新建D1.DWG，程序自动加载，并可以使用，接着打开文件D2.DWG，程序
也进行加载，并可以使用，但是回到D1.DWG窗口时，调用所定义的命令就出错，提示：
ERROR：.VLISP....mismatch,文件搭配不正确
比如(假设p1\p2为全局变量)
A.LSP文件如下：
(defun rtyu()
(princ "\n绘制直线")
(command"_.line"p1 p2 "")
)
B.LSP文件如下：
(defun tyty()
(princ"\naaaaa")
(command"_.line"p1 p2 "")
)
C.LSP文件如下:
(defun typpp()
(princ"\nbbbbb")
(command"_.line"p1 p2 "")
)
控制加载的文件如下SS.LSP
(defun cxjz()
(load (findfile "A.LSP"))
(load (findfile "b.LSP"))
(vl-add-cmf.....-->使用该函数定义命令（方便以后使用的调用）
)
(cxjz)
然后在ACAD2000.LSP中添加如下内容：
(vl-load-com)
(vl-load-all (findfile "ss.lsp"))
(load "c.lsp")
总体结构形式大概如上所述，至于不将文件合并是另外有原因...
我是没办法了，请教高手解决方法，拜托！