新手请较，自动启动宏

iamfang

我在ACAD2004.lsp中加入(defun s::startup() (command "_vbarun" "test"))，启动CAD时，总提示“宏名称(M): test 执行错误”。test.dvb放置于CAD根目录还是support目录中，均是如此。test.dvb 内容如下：

Sub a()
  MsgBox "this is a test vba"
End Sub
Sub b()
  MsgBox "this is b test vba"
End Sub

Sub c()
  MsgBox "this is c test vba"
End Sub
不知要如何操作，才能正确实现

wyj7485

缺少宏

test.dvb!宏

iamfang

Thank you，经你一指点，该一问题已解决。

但接下来一个问题，按CAD说法，acad2004doc.lsp这一文件，每打开一个图形文件时，它都执行一次，但时，当我在该文件中加入以下代码时，仅在CAD初次启动时，才执行。但打开一个图形文件时，该代码并不势行。

(defun C:ab()
     (setvar "cmdecho" 0)
     (command "-vbarun" "test.dvb!模块1.a")
     (setvar "cmdecho" 1)
(princ)
)

我的想法是，启动CAD后，每次打开一个图形文件时，都自动执行我的程序。不知如何实现。敬请高手给予解答！！！！

wyj7485

直接加入(command "-vbarun" "test.dvb!模块1.a")
就可以了,上面的代码只是加载一个命令,并不执行程序

iamfang

原来如此，明经上的高手真多，非常感谢！！！