Question

cad里的宏怎样使用

Answer 1

机器都出现这样的问题，是否是使用“CAD去戳工具”造成的？这个工具是去除“CAD教育版”的。
启动时显示的信息为
“正在打开 AutoCAD 2004 格式的文件。
正在重生成模型。
正在初始化 VBA 系统...
正在加载 VBA 启动文件...
未找到宏。
AutoCAD 菜单实用程序已加载。
未找到宏。”
不是软件CAD问题，我们公司的两套正版也是这样的

Answer 2

命令vbaload选择加载含有宏的工程文件*.dvb

再运行vbarun命令选择运行宏。。。

Answer 3

一般运行宏的三种办法：

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、直接运行程序的名称即可。