以下是几个实用的 AutoCAD VBA 开发实例（使用中文注释），涵盖常用操作：
示例1：创建文字对象
Sub AddText()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double ' 文字插入点坐标 (X,Y,Z)
Dim height As Double
textString = "Hello AutoCAD VBA!" ' 文字内容
insertionPoint(0) = 0: insertionPoint(1) = 0: insertionPoint(2) = 0 ' 坐标原点
height = 5.0 ' 文字高度
' 创建文字并添加到模型空间
Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
textObj.Color = acRed ' 设置为红色
ThisDrawing.Application.ZoomAll ' 缩放至全部可见
MsgBox "文字创建完成！"
End Sub示例2：绘制圆形和矩形
Sub DrawShapes()
Dim centerPt(0 To 2) As Double
Dim radius As Double
Dim cir As AcadCircle
Dim rectPt1(0 To 2) As Double, rectPt2(0 To 2) As Double
Dim rect As AcadLWPolyline
' 绘制圆形
centerPt(0) = 10: centerPt(1) = 10: centerPt(2) = 0
radius = 5
Set cir = ThisDrawing.ModelSpace.AddCircle(centerPt, radius)
cir.Color = acGreen
' 绘制矩形（多段线）
rectPt1(0) = 0: rectPt1(1) = 0 ' 左下角
rectPt2(0) = 15: rectPt2(1) = 8 ' 右上角
Dim vertices(0 To 7) As Double
vertices(0) = rectPt1(0): vertices(1) = rectPt1(1) ' 点1
vertices(2) = rectPt2(0): vertices(3) = rectPt1(1) ' 点2
vertices(4) = rectPt2(0): vertices(5) = rectPt2(1) ' 点3
vertices(6) = rectPt1(0): vertices(7) = rectPt2(1) ' 点4
Set rect = ThisDrawing.ModelSpace.AddLightWeightPolyline(vertices)
rect.Closed = True ' 闭合为矩形
rect.Color = acBlue
ThisDrawing.Application.ZoomAll
End Sub示例3：批量修改图层属性
Sub ChangeLayerProperties()
Dim layer As AcadLayer
On Error Resume Next ' 忽略错误
' 创建新图层或修改现有图层
Set layer = ThisDrawing.Layers.Add("MyLayer")
layer.color = acYellow ' 黄色
layer.Lineweight = acLnWt030 ' 线宽0.3mm
layer.Linetype = "DASHED" ' 虚线
' 将当前图层设为新建图层
ThisDrawing.ActiveLayer = layer
MsgBox "图层 " & layer.Name & " 已激活！"
End Sub示例4：遍历图形中的块参照
Sub ListAllBlocks()
Dim ent As AcadEntity
Dim blkRef As AcadBlockReference
Dim msg As String
For Each ent In ThisDrawing.ModelSpace
If TypeOf ent Is AcadBlockReference Then
Set blkRef = ent
msg = msg & "块名: " & blkRef.Name & vbTab & _
"位置: (" & blkRef.InsertionPoint(0) & ", " & blkRef.InsertionPoint(1) & ")" & vbCrLf
End If
Next
MsgBox "找到 " & ThisDrawing.ModelSpace.Count & " 个对象中的块参照：" & vbCrLf & msg
End Sub示例5：插入外部图块
Sub InsertBlock()
Dim blockPath As String
Dim insertionPt(0 To 2) As Double
Dim blkRef As AcadBlockReference
blockPath = "C:\Blocks\螺栓.dwg" ' 外部块路径
insertionPt(0) = 30: insertionPt(1) = 20: insertionPt(2) = 0
' 插入块（比例1，旋转0度）
Set blkRef = ThisDrawing.ModelSpace.InsertBlock(insertionPt, blockPath, 1, 1, 1, 0)
blkRef.Explode ' 是否分解图块 (True/False)
ThisDrawing.Application.ZoomAll
End Sub使用说明：
- 打开VBA编辑器：AutoCAD中输入命令
VBAIDE - 粘贴代码：在模块中粘贴上述代码
- 运行宏：按F5或工具栏运行按钮
- 调试：按F8单步执行，
Ctrl+G查看即时窗口
⚠️ 重要提示
- 修改前备份DWG文件
- 启用宏安全性：工具→宏→安全性→选择“中”或“低”
- 对象变量使用
Set赋值（如Set layer = ...）
需要进一步示例（如尺寸标注、表格操作、选择集筛选）可告知具体需求！
虹科CANEasy的开发-VBA篇
如果想要在CANEasy中实现自动化功能，那么最快的方式就是使用里面的VBA功能。VBA最常见的是在excel和word中被用于开发的宏。在CANEasy中使用的方式和它们也差不多：我们需要在宏内，让变量匹配到软件中的对象，然后用代码去控制它们。
2022-09-27 11:37:04
超好学！AutoCAD辅助绘图全图解
`软件教程, 制图《超好学(AutoCAD辅助绘图全图解100%)》以通俗易懂的语言、翔实生动的实例，全面介绍了AutoCAD 2012的使用方法和技巧。本书共分11章，内容涵盖AutoCAD
zyclyw
2019-11-07 21:16:11
AutoCAD2005中文版基础教程
本书全面具体地介绍了AutoCAD 2005中文版的各项基本知识及操作技巧，共分为15章，每章中都配有相应的实例，各章后面还有相关的习题。 本书涵盖面广，既讲述了用AutoCAD绘制基本的二维
czxmla
2019-04-10 07:36:16
AutoCAD2004绘图教程PDF版
人才培养培训指导方案》中核心教学与训练项目的基本要求，并参照相关的国家职业标准和行业的职业技能鉴定规范及中级技术工人等级考核标准编写的。 《计算机绘图》以AutoCAD 2004中文版为基础，全面介绍了
eileenchen321
2019-04-10 10:29:36
请求ENA VBA援助
大家好，我正在尝试让VBA应用程序在第二个5071C上运行。 VBA应用程序已在另一台5071C上运行，但我无法在第二台机器上运行它。我收到“Microsoft Forms - 无法加载对象，因为
陈囝囝100
2019-05-17 12:23:19
AutoCAD 2014 Mac版官方下载
AutoCAD 2014是Autodesk 公司开发的一款自动计算机辅助设计软件，可以用于绘制，二维制图，和基本三维设计，通过它无需懂得编程，即可自动制图，因此它在全球广泛使用，可以用于土木建筑
呜哇哇66
2019-04-18 07:58:37
WCAD小型AutoCAD画图软件
小型AutoCAD画图软件实现了简单的画点，直线，圆，圆弧，水平或垂直线，长方形，多边形，表格，标注等，还有对画布的放大缩小等功能。菜单栏工具栏，功能齐全，是很好的vc开发cad的参考资料
kkusfwe
2019-04-04 10:33:22
车载总线监控分析及仿真工具 - VBA
INTEWORK-VBA（Vehicle Bus Analyzer）车载总线监控分析及仿真工具，是由经纬恒润自主研发的一款专业、易用的车载总线工具。VBA集监控分析、节点仿真、测量标定、故障诊断
2025-01-02 17:00:00
AutoCAD2007中文版实用教程电子书
AutoCAD 是由美国Autodesk 公司开发的通用计算机辅助设计（Computer Aided Design，CAD）软件，具有易于掌握、使用方便、体系结构开放等优点，能够绘制二维图形
斯图尔特233
2019-04-16 11:31:29
AutoCAD 2015 for mac最新版官方下载
或命令行方式便可以进行各种操作。它的多文档设计环境，让非计算机专业人员也能很快地学会使用。在不断实践的过程中更好地掌握它的各种应用和开发技巧，从而不断提高工作效率。AutoCAD具有广泛的适应性，它可
60user177
2019-04-19 09:38:29
是否有可能使用excel vba自动化测试
嗨，你能告诉我是否有可能使用excel vba自动化测试我已经使用这种方法进行ena测试，通过修改你的ctrl lan vba programi想要填充一个excel测试表，其上升和下降时间加上
sdfasda
2019-05-20 06:18:01
AutoCAD点阵字助手1.3
本软件用于辅助制作 LED铁皮穿孔字 （LED蘑菇点、LED灯点、LED彩虹字）。通过本软件，可以快速的生成字模，并导入到AutoCAD中，而不再需要人工在AutoCAD中费时费神的描框，描点了。（注：现在流行的1.2的版本导入AutoCAD时有问题，目前已更新这个了BUG）点击下载
淡然处事
2019-04-15 07:03:05
Autodesk AutoCAD 2010快速入门教程
中文名： Autodesk AutoCAD 2010快速入门教程 英文名： VTC QuickStart Autodesk AutoCAD 2010 资源格式： 光盘镜像 发行
60user140
2019-04-11 07:58:03
VISA COM和Excel VBA错误处理
我正在使用Excel，Command expert和VBA编写测试脚本。在某些时候我设置了仪器，我有一个VBA代码，用于检查仪器是否已连接。从这个论坛我得到了VBA代码（如下）。当仪器连接但挂起并
l111111
2019-02-25 16:09:18
AutoCAD批量替换文本工具3.0
AutoCAD文本替换软件可以批量替换AutoCAD2004 至 AutoCAD2006上的，单行文本，多行文本，属性块，标注，层名，块名，文本样式名等文本内容，导出到Excel，在Excel对照翻译后，导入AutoCAD一次性修改多张图纸！点击下载
lin9470
2019-05-08 17:06:29
AutoCAD2010官方中文版下载
AutoCAD 2010是Autodesk公司出品的CAD软件，借助AutoCAD，你可以安全、高效和准确地和客户共享设计数据。您可以体验本地DWG格式所带来的强大优势。DWG是业界使用最广
神圣奇迹
2019-04-08 06:29:54
AutoCAD Electrical 2006设计实战PDF下载
官方之外的专门讲解AutoCAD Electrical 2006的书籍，电气版的AutoCAD使用方便入门难，但是上手后很方便很高效。点击下载
吔屎蛋拉雷
2019-04-22 16:26:41
AutoCAD最新字体库下载
最新整理的AutoCAD字体库，把fonts里面的所有AutoCAD字体库复制到AutoCad安装目录下的Fonts文件夹里即可。如果原有的字体库里有的字体可以不用覆盖。图示中为部分字体。点击下载
四川赵赵
2019-04-08 06:56:40
AutoCAD插件包下载
AutoCAD插件包，一些常用的CAD插件，希望对大家有所帮助。 插件包内容包含： CAD表格与EXCEL表格互转 Auto CAD插件 改变auto CAD线条颜色插件 cad70个
60user119
2019-04-05 04:53:57
PADS如何导入AutoCAD图教程
本文以PADS 9.2和AutoCAD 2004为例展示CAD图纸导入PADS Layout的具体步骤。点击下载
uwjfuwer
2019-04-28 15:34:11
AutoCAD2002迷你中文版
AutoCAD 2002是美国Autodesk公司推出的AutoCAD最新版本，AutoCAD是目前计算机辅助设计（Computer Aided Design，CAD）领域最流行的CAD软件包，此
uwufwjrw
2019-04-15 11:14:19
八百多款AutoCAD填充图案下载
实用的AutoCAD填充图案，去掉多余文件后整理了这款相对完整的AutoCAD填充图案大全，共835款图案，在CAD选项菜单里浏览并且添加即可，所有各版本的AutoCAD均适合使用。 1，将
liuanzhong
2019-04-18 06:10:56
AutoCAD OwnerGuard下载
AutoCAD OwnerGuard将提供一个真正的安全、分发、出版和授权解决方案，帮助您保护您的文件的所有权。点击下载
来自南方的狼
2019-04-10 10:12:44
工商网监
工商网监