CAD-VBA二次开发入门：从宏和对象模型开始

简介《CAD-VBA开发人员手册》面向需要在AutoCAD平台上进行二次开发与自动化扩展的VBA开发者也可供熟悉基础绘图、希望系统掌握ActiveX编程的工程技术人员查阅。全书十章由入门逐步推进到高级应用覆盖嵌入与全局VBA工程、宏与IDE、AutoCAD对象模型、图形环境控制、图元创建编辑、标注与公差、菜单工具栏定制、事件处理、三维坐标与实体编辑、布局打印以及光栅图像、块和属性等组织技术兼顾概念说明与对象操作思路。资源包共1个PDF文件大小约3.16MB便于集中检索和离线阅读。已有2492人学习下载适合按章节查漏补缺也能帮助读者建立从工程组织、对象访问到界面交互与打印输出的完整开发框架。1. 别被“二次开发”四个字吓退CAD-VBA 到底是什么你在 CAD 里画了几年图图层、标注、图框闭着眼都能点。然后有人递给你一份 CAD-VBA 开发人员手册目录一翻十页全是“对象模型”“事件”“集合”“图元”第一章还没读完就合上了——这是大多数人第一次接触 CAD 二次开发的真实反应跟聪明不聪明没关系纯粹是被术语吓的。其实 VBA 干的事朴素得很把你每天重复点的那几十下写成几行话让软件自己点。它不要求你会算法也不要求你懂编译原理只要求你熟悉自己每天在 CAD 里做的那些动作。这份手册面向的正是这样的人会用 CAD 画图、没写过代码、想把重复劳动交出去的新手。2. 上手前先认清三样东西工程、宏和开发环境很多人第一次打开 VBA 开发环境看到左边一长条树状列表当场就愣住了工程是什么模块是什么宏又是什么它们之间到底谁管谁这一章不写代码先把这三个名词按顺序讲清楚你后面才能知道每敲一行字究竟是落在哪个地方。2.1 嵌入工程和全局工程一个跟着图纸走一个跟着你走手册第一章一上来就讲这件事很多人觉得抽象就跳过去了结果后面所有问题都从这里来。VBA 工程说白了就是“一堆代码文件、窗体和引用的打包”它有两种存放方式。嵌入工程是把这份打包塞进某一张 CAD 图纸文件里。好处是省心谁打开这张图你的功能就自动跟着生效不用他去找文件、装文件特别适合把做好的小工具发给同事。代价是它被“关”在这张图里了——它没法去打开别的图形也没法关闭图形因为它的函数只存在于它所在的那份文档中。手册给了一个很贴切的例子某张图纸一打开就自动开始记时间日志记录这张图被用了多久这种“打开即生效”的需求就该用嵌入工程。全局工程是存成一个独立的工程文件比如mylib.dvb它更像一个工具箱哪个图形都能用还能自己打开、关闭图形。代价是它不会自动加载你得手动装进去而且别人用之前得知道文件放在哪。手册里提到的典型场景是月底把三十张图纸的材料清单一次性汇总这种“跨图纸批量处理”的活只能用全局工程干。还有一条容易被忽略的规矩一张图形在同一时间只能有一个嵌入工程。想塞第二个得先把第一个分离出去。提示新手练习阶段建议先用全局工程存到固定文件夹别急着往正式图纸里嵌免得改乱了自己的图。2.2 宏其实就是一个能被点名执行的子程序宏这个词听着高级拆开看就是一段写好了但不会自己跑、必须有人叫它才执行的代码。在 VBA 里它的长相是Sub 名字() ... End Sub。一个工程里可以有很多个宏每个宏干一件事比如“批量改图层”“批量加图框”。点名的方式有好几种。最直接的是打开宏对话框从列表里挑一个点运行。命令行也可以直接输入宏名执行。等你学完手册第六章还能把它挂到菜单和工具栏按钮上别人点一下按钮就跑了根本不知道后面有代码。对话框里还有一个“逐语句”按钮很多新手从没用过这其实是排查问题最有效的入口它会让代码跑到第一行就停住然后你可以一行一行往下走看每一步的结果对不对。手册第七章讲的调试和报错中断根基就在这里。2.3 VBA 开发环境四个窗口认全了就不慌打开开发环境界面上东西不少但日常真正用得上的就四块。工程窗口在左边是一棵树。最上面是工程名下面挂着代码模块、类模块、窗体还有“引用”这一项。你写的每个 Sub 都存在某个模块里找不到模块就是找不到代码。属性窗口通常就在工程窗口下面用来改选中对象的各种设置。最常用的一个动作就是改工程名——新建的工程默认都叫ACADProject你不改以后装了两个工程就分不清谁是谁。代码窗口是主战场顶部有两个下拉框左边选对象右边选过程可以快速在代码之间跳左下角有个小图标能在“全模块视图”和“单过程视图”之间切换代码短的时候其实无所谓。窗体窗口配着一个工具箱用来做自定义对话框。从工具箱里把控件拖到窗体上摆好位置双击控件就能跳到它对应的代码。第一次做界面会觉得挺有意思但建议先把命令行版本跑通再去做窗体。2.4 算一笔时间的账为什么值得学假设一张图里有 20 个图框需要统一改成新模板的标题栏每个手改 30 秒一张图就是 10 分钟一个项目 30 张图就是 5 个小时。写这段脚本第一次可能要磨两个小时第二次遇到同样的活就是改几个参数、点一下运行的事。更关键的是手点会出错脚本不会——它每次都一模一样地执行。这也是为什么手册要花整整一章讲对象模型、又花一章讲菜单和工具栏它想让你做出来的东西最终是给不写代码的同事用的而不是只给自己看的玩具。3. 第一个例子十行代码在 CAD 里画一条线概念听完该动手了。第一个例子不要贪大就从“画一条线”开始——它足够简单能跑通又能让你看到代码和画面之间的因果关系。跑通这一次后面所有操作都是在这个骨架上加东西。3.1 动手前的三件小事第一件确认你的 CAD 装了 VBA 组件。部分版本默认不安装表现就是你在命令行敲开发环境的命令它回你一句“未知命令”。遇到这种情况重新跑一遍安装程序把 VBA 相关的选项勾上。第二件找到 VBA 管理器。在命令行输入VBAMAN会弹出一个管理界面可以装载、卸载、新建、嵌入、分离工程。点“新建”你就得到了一个空工程默认名字是ACADProject。第三件打开开发环境。命令行输入VBAIDE或者从管理器的界面里进去。进去之后先看一眼工程窗口确认你新建的工程在列表里。这时候它还是“未保存”状态建议立刻另存为一个.dvb文件放到你专门建的一个练习文件夹里——这一步是给自己留后悔药后面你会感谢自己。新建完工程还得插入一个模块在开发环境的“插入”菜单里选“模块”工程窗口里就会多出一项。代码要写在模块里不能凭空写在工程上。3.2 第一个例子画一条从原点到 (100, 50) 的线在新建的模块里粘贴下面这段代码把光标放到过程内部按 F5 运行。Sub DrawFirstLine() 声明两个数组用来装起点和终点的坐标 Dim startPt(0 To 2) As Double Dim endPt(0 To 2) As Double 起点(0, 0, 0) startPt(0) 0: startPt(1) 0: startPt(2) 0 终点(100, 50, 0) endPt(0) 100: endPt(1) 50: endPt(2) 0 声明一个线对象变量 Dim lineObj As AcadLine 在模型空间里添加这条线并把返回的对象交给 lineObj Set lineObj ThisDrawing.ModelSpace.AddLine(startPt, endPt) 刷新一下让它在屏幕上显示出来 lineObj.Update 弹出对话框告诉你这条线有多长 MsgBox 线画好了长度是 Format(lineObj.Length, 0.00) End Sub切回 CAD 界面你应该看到一条斜线躺在模型空间里同时弹出一个提示框告诉你长度是 111.80。如果没看到线别急着怀疑代码先在命令行输入ZOOM再输入E范围缩放大概率是线跑到了当前视图之外。3.3 逐句拆开看这十行到底在干什么Dim startPt(0 To 2) As Double这一行是全书出现频率最高的写法值得多说两句。CAD 里的点是用三个数字表示的分别是 X、Y、Z。VBA 里装三个数字最方便的就是数组下标从 0 到 2正好对应三个方向。为什么不是 1 到 3因为 VBA 默认从 0 开始数而 CAD 的接口约定也是 0 是 X、1 是 Y、2 是 Z两边刚好对上。以后你看到pt(1)脑子里要立刻翻译成“这个点的 Y 坐标”。Set lineObj ThisDrawing.ModelSpace.AddLine(startPt, endPt)这一行信息量最大拆成三段看。ThisDrawing是“当前这张图”的代号ModelSpace是这张图里的模型空间你可以理解成装所有图元的那个大容器AddLine是这个容器提供的一个动作往里加一条线并把新加的那条线交还给你。三个点连起来读就是在当前图形的模型空间里加一条线把这条线记下来。前面的Set不能省。VBA 里给普通变量赋值直接写等号但给“对象”赋值必须加Set因为对象变量存的不是值而是指向那个东西的线索。省了Set运行时会给你一个很典型的报错。lineObj.Update的意思是“刷新显示”。有些操作其实已经生效了只是屏幕没重画看起来像没反应加这一句最稳妥。最后的lineObj.Length是读属性。注意这里没有括号因为它不是动作是这条线自带的一个数值。属性是只读还是可改要看具体是哪个——长度你改不了但颜色、图层都能改下一节就动它。3.4 改三个参数让它变成你自己的线跑通之后最该做的事是“乱改”。把endPt(0)从 100 改成 300把endPt(1)从 50 改成 -80再运行一次看线的方向变没变。这一步看着幼稚但它是你建立“代码和图形一一对应”感觉的最快方式比看十页讲解都管用。改完坐标再来动颜色和图层。下面这段代码会把线画在一个叫MyLines的图层上颜色设成红色。Sub DrawOnMyLayer() Dim s(0 To 2) As Double, e(0 To 2) As Double s(0) 0: s(1) 0: s(2) 0 e(0) 200: e(1) 120: e(2) 0 先找图层找不到就临时忽略错误 Dim lay As AcadLayer On Error Resume Next Set lay ThisDrawing.Layers(MyLines) On Error GoTo 0 如果图层不存在变量还是空的就新建一个 If lay Is Nothing Then Set lay ThisDrawing.Layers.Add(MyLines) End If Dim ln As AcadLine Set ln ThisDrawing.ModelSpace.AddLine(s, e) ln.Layer MyLines 指定图层 ln.Color acRed 指定颜色常量 ln.Update End SubOn Error Resume Next的意思是“出错也别停接着往下走”。这里为什么要用它因为去取一个不存在的图层会直接报错中断而“图层可能不存在”是正常情况不该当成故障。取不到就把错误吞掉靠If lay Is Nothing判断一下没有就自己建一个。这种“先找、找不到再建”的写法在批量处理图纸时几乎天天用得上。ln.Color acRed里的acRed是一个现成的颜色常量不用记数字。手册里图层、颜色、线型这一节列了一整套常量初学阶段记住几个常用的就行。要提醒的是如果你把线型设成某种虚线却发现没生效多半是那张图里根本没加载这种线型得先把线型加载进来这是新手很常见的翻车点。4. 从“会画线”到“会干活”对象模型是绕不开的坎能画线之后你自然会想那我怎么批量改已有一百条线的颜色怎么找到某一张图里所有的文字这些问题都得靠对象模型回答。手册第二章整整一章都在讲它看着枯燥但它是所有操作的说明书。4.1 对象模型是一棵家谱树把 CAD 想象成一个公司。最上面是软件本身Application下面是“文档”这个部门文档部门里管着所有打开的图纸每一张图纸Document代码里通常写成ThisDrawing下面又分好几个小组模型空间、图纸空间、图层表、块表、标注样式表等等每个小组里才是具体的人和物——一条线、一个圆、一段文字。想改某条线的颜色你得沿着这棵树一路点下去先找到图纸再找到模型空间再找到那条线最后改它的颜色。手册里说的“访问对象层次”讲的就是这条路径。路径写错一步就会得到“对象不存在”或者“方法无效”这类报错——绝大多数新手错误本质都是路径没走对。为什么非得这么绕因为路径本身就是定位。你想想如果图纸里有一百条线你不告诉程序“哪张图的哪个空间里的第几条”它凭什么知道你要改哪一条。4.2 集合、属性、方法三个词管住所有操作这棵树上有三种东西认全了手册后面的章节你基本能自己看懂。集合就是“一类东西的袋子”。模型空间是个集合图层表是个集合里面装着同类对象。集合有三个常用动作数一数有多少个Count按序号或名字取出一个Item往里加一个新的Add。ThisDrawing.Layers就是图层集合ThisDrawing.Layers(MyLines)就是从中按名字取出那一个。属性是对象身上的“形容词”。一条线有颜色、图层、线型、长度、起点、终点一张图有文件名、保存路径。读属性就是问它“你现在是什么样”写属性就是命令它“变成这样”。前面那段代码里的ln.Layer MyLines就是在写属性。方法是对象能做的“动词”。给模型空间“加一条线”给图形“重新生成”给对象“删除”。方法后面通常跟一对括号里面放参数比如AddLine(起点, 终点)。三者组合起来几乎所有 CAD 自动化代码都长这个样子从某个集合里取出一个对象读它的属性做判断改它的属性或者调用它的方法。手册第四章讲的“创建对象”“编辑对象”拆开看全是这个套路。4.3 动手把模型空间里的图元一个个数出来光看概念容易飘写一段遍历的代码感受一下就实了。Sub WalkModelSpace() Dim ent As AcadEntity Dim i As Long Dim msg As String i 0 逐个遍历模型空间里的每一个图元 For Each ent In ThisDrawing.ModelSpace i i 1 ObjectName 能告诉你它到底是线、圆还是文字 msg msg i → ent.ObjectName vbCrLf Next ent MsgBox 一共 i 个图元 vbCrLf msg End SubFor Each ... In ...是遍历集合的标准写法意思是“把袋子里的东西一个一个拿出来”。ent的类型声明成AcadEntity这是所有图元的“父类型”线、圆、文字都能装进去——具体是什么运行时用ObjectName问它。vbCrLf是换行符让弹出的提示框好看一点。这段代码的价值不在结果而在思路你以后要做的“批量为所有圆加标注”“批量把所有文字换成新字体”骨架都是它只是把中间的判断和修改换掉。4.4 变体与坐标数组新手最容易写错的两个地方变体Variant是 VBA 里的万能盒子什么都能装。它烦人的地方在于CAD 有些接口返回的就是变体你不接住就没法用。最典型的是让用户点一个点Sub LineByClick() Dim p1 As Variant, p2 As Variant 逗号不能省第一个参数留空表示不指定基准点 On Error GoTo Canceled p1 ThisDrawing.Utility.GetPoint(, 点一下起点) p2 ThisDrawing.Utility.GetPoint(p1, 再点一下终点) ThisDrawing.ModelSpace.AddLine p1, p2 ThisDrawing.Regen acAllViewports Exit Sub Canceled: MsgBox 取消了没有画线。 End SubGetPoint返回的是一个包含三个数字的变体数组可以直接丢给AddLine不用手动拆。第一个调用的第一个参数留空但逗号必须保留这是个纯语法坑漏了逗号会直接语法报错很多人卡在这里半天。第二个调用把p1当基准点传进去用户就能看到一条橡皮筋线跟着鼠标动体验好很多。按 Esc 取消取点会触发错误所以用On Error GoTo Canceled接住跳到标签那里给个提示再退出。没有这个保护用户手一抖按了取消程序就弹一个红叉报错框很不体面。另一个常见坑是数组下标。自己声明数组时一定要写(0 To 2)别写成(1 To 3)。虽然语法上都合法但从 1 开始的那种传给 CAD 会把 Z 坐标搞丢画出来的线位置不对而且它不报错——这种不报错但结果错的问题最难查。5. 新手避坑清单五个最容易翻车的瞬间和它们的解法下面这五条几乎每个刚开始写 CAD 脚本的人都撞过。提前看一眼能省下好几个晚上。5.1 代码看着没毛病一运行就报“对象变量未设置”现象按 F5弹出运行时错误提示某个对象变量或 With 块变量未设置光标停在Set那一行或者下一行。原因多数情况是当前没有打开的图形。ThisDrawing指的是当前活动的那张图一张图都没开它自然是空的。另一种情况是你在全局工程里操作一个已经关掉的文档对象引用还在实物没了。解决先确认 CAD 里确实开着一张图再运行。如果脚本要连续处理多张图别一直用ThisDrawing改成遍历文档集合逐个打开、逐个处理、逐个关闭处理完再统一保存。养成在过程开头先判断一下的习惯比事后查半天强。5.2 点了运行什么都没发生也不报错现象代码明明有反应应该弹提示框、应该画线结果屏幕纹丝不动。原因最常见的是装工程时弹了宏病毒警告你顺手点了“禁用代码”。工程装载成功但里面所有代码都被冻住点了运行等于什么都没干。第二种可能是“出错时允许中断”这个选项被关掉了出错时它只闪一个警告框然后结束你根本没注意到。解决回到 VBA 管理器把工程卸掉重新装载这次认真看弹窗选启用代码。再去宏对话框的选项里确认“出错时允许中断”是勾上的——勾上之后代码出错会停在出错那一行并高亮你能直接看到是哪个变量出的问题这是排查问题最省力的开关。5.3 想往同一张图里塞第二个工程被拦住了现象点嵌入提示无法嵌入或者报错说已存在嵌入工程。原因一张图形同一时间只能容纳一个嵌入工程这是硬规矩不是 bug。你之前试手的时候已经嵌进去一个了。解决先在管理器里选中那个旧工程点分离系统会问你要不要先导出保存选“是”存成.dvb文件然后再嵌新的。这里有个血泪教训分离时如果选了“否”工程数据就从图里直接删掉了没有回收站。所以分离前一定先导出。5.4 改了半天代码关掉软件全没了现象写了两个小时关了 CAD 再打开代码消失得干干净净。原因嵌入工程的保存是跟着图形文件走的图纸没保存工程就没保存全局工程则要单独另存为.dvb文件开发环境里没有那种“随手自动保存”的机制。解决养成两个习惯。第一新建工程的第一件事就是另存为.dvb先给个名字和位置别等写完。第二每改完一小段、确认能跑通就按一次保存。这不是谨慎是必须——我见过太多人在最后一步崩溃的时候连重写的力气都没有了。5.5 逐语句调试走到一半程序卡住不动了现象用逐语句运行走到某一行之后CAD 界面像死了一样点什么都没反应。原因多半是那一行在等用户输入比如GetPoint或者某个选择图元的调用而你没意识到它已经切回 CAD 界面在等你了。另一种是弹了个对话框在你没注意的角落或者被其他窗口挡住了。解决先按 AltTab 把所有窗口扫一遍看看有没有藏起来的提示框。确认是在等取点时就正常去 CAD 界面点一下。如果确定是死循环别硬关软件先在开发环境里点停止按钮中断执行再回头检查循环的退出条件——For Each遍历集合时如果在循环体里删除了元素很容易出这种问题。6. 接下来学什么一份按周走的入门路线跑通画线、能遍历图元之后最容易犯的错是抱着手册从第一页啃到最后一页。这份手册十章、五百多页按目录顺序读大概率读到第三章就断了。更合适的走法是按“先能干活、再补基础”的顺序挑着读。阶段重点章节目标大概投入第 1 周第 1 章、第 3 章会用管理器和开发环境能打开、保存、关闭图形会读系统变量每天 1 小时第 2 周第 4 章能批量创建和修改图元会改图层、颜色、线型、文字每天 1 小时第 3 周第 2 章、第 5 章把对象模型彻底理顺能画标注、能改标注样式每天 1 到 2 小时第 4 周第 6 章、第 9 章把脚本挂到菜单和按钮上跑通出图和打印周末集中两三天之后第 7、8、10 章事件、三维、块与光栅图像按项目需要挑着看看情况具体操作上我建议你从第二周开始就维护一个自己的“小工具工程”一个.dvb文件里面按用途分模块LayerTools放图层相关的TextTools放文字处理相关的每个宏只干一件事名字起得能一眼看懂。坚持三个月这个文件就是你自己攒出来的工具箱比任何现成的插件都顺手。还有一个小技巧值得单独说每次写新脚本别从空白模块开始从你已经跑通的那个复制过来改里面的参数。新手写代码最大的时间浪费不是想不出逻辑而是卡在一个拼写错误或者漏掉的Set上。从能跑的代码改等于默认跳过了一堆低级坑。至于事件那一章我的建议是先放着。事件是“当用户做了某个动作时自动触发”听着很酷但它对调试的要求高得多新手很容易写出一堆互相触发的代码最后连自己都不知道是谁在调用谁。等你手上已经有五六个能稳定运行的小工具了再回来看这一章会顺很多。最后说个我自己的教训。刚学那会儿我写完一个批量改图层的脚本兴冲冲地拿一张正式的施工图试结果图层名匹配写错了一个字符整张图的图层全被塞进了新建的临时图层里等我发现的时候已经保存过了。从那以后我每次写涉及“批量修改”的脚本都强制走一遍固定流程先复制一份测试图再在小样本上跑确认输出和预期一致才敢碰正式文件。多花的那五分钟比返工一整天便宜太多。希望这份路线能帮你少走几步弯路早点把重复劳动交出去。本文还有配套的精品资源点击获取