问题请教

lfc9861

实现目标：在第一次打开时加载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")

总体结构形式大概如上所述，至于不将文件合并是另外有原因...

我是没办法了，请教高手解决方法，拜托！

陈伯雄

alin

everytime you switch from one drawing to another.

lfc9861

实现目标：在每一个文件新建/打开时加载这些程序，
使用UNDO命令，可以正确撤消自己定义的命令。
（比如我在某一个程序你使用了两次COMMAND，
使用UNDO可以撤消），多谢指教！

lfc9861

vlax-add-cmd，是我太急写错了