新手请较，自动启动宏

iamfang · 发表于 2006-11-30 10:52:00

我在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 · 发表于 2006-11-30 14:06:00

缺少宏
test.dvb!宏

iamfang · 发表于 2006-12-1 09:13:00

Thank you，经你一指点，该一问题已解决。
但接下来一个问题，按CAD说法，acad2004doc.lsp这一文件，每打开一个图形文件时，它都执行一次，但时，当我在该文件中加入以下代码时，仅在CAD初次启动时，才执行。但打开一个图形文件时，该代码并不势行。
(defun C:ab()
   (setvar "cmdecho" 0)
   (command "-vbarun" "test.dvb!模块1.a")
   (setvar "cmdecho" 1)
(princ)
)

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

wyj7485 · 发表于 2006-12-1 10:41:00

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

iamfang · 发表于 2006-12-1 14:25:00

原来如此，乐筑天下上的高手真多，非常感谢！！！

新手请较，自动启动宏

发表回复

精选推荐