CAD怎么运行宏

一般运行宏的三种办法：

1、输入vbarun，然后选择宏（首先使用vbaload装载DVB文件）；

2、使用vbaide进入编辑环境，然后运行宏。

直接在命令栏内输入宏名称即可，就像输入命令一样。

1、首先将程序（即DVB文件）与acad2006doc.lsp放在同一本目录下；

2、添加代码：

需要把以下代码放进acad200xdoc.lsp(其中x表示版本，我的电脑上装的是2006，所以是acad2006doc.lsp)

代码如下：

;;自动加载VBA程序的函数

(defun AutoVBALoad (app cmdliste / qapp)

(vl-load-com)

(setq qapp (strcat "\"" app "\""))

(mapcar

'(lambda (cmd / nom_cmd dot nodotcmd)

(progn

(setq dot (vl-string-search "." cmd))

(if dot

(setq nodotcmd (substr cmd (+ dot 2)))

(setq nodotcmd cmd)

)

(setq nom_cmd (strcat "C:" nodotcmd))

(eval

(read (strcat

"(defun " nom_cmd "(/ app)"

"(if (setq app(fdvbfile " qapp "))"

"(vl-vbarun (strcat app \"!" cmd "\"))"

"(nodvbfile " qapp "))"

"(princ))"

)))))

cmdliste

)

nil

)

(defun fdvbfile (app)

(if (not (findfile app))

(if (not (findfile (strcat app ".dvb"))) nil (strcat app ".dvb")) app)

)

(defun nodvbfile (filename)

(princ (strcat "\n文件 " filename "(.dvb) 在搜索路径文件夹中未找到。" ))

(princ "\n请检查支持文件的安装，然后重试。")

(princ)

)

然后在acad200xdoc.lsp中紧接着输入如下代码，当然，这个是可以扩展的，这里这个例子是帮助明经通道论坛上的panwei5301写的代码。

;;自动加载VBA程序 (AutoVBALoad "程序名称"'("宏名称" "模块名称.宏名称"))

(AutoVBALoad "临时DVB"'("lianxi01" "lianxi01"))

panwei5301请注意：这里的临时DVB是DVB的文件名，两个lianxi01都是宏名称，当然你可以这样写：

(AutoVBALoad "临时DVB"'("lianxi01" "模块1.lianxi01"))

因为你的lianxi01是放在模块1中的。

3、直接运行程序的名称即可。