CAD 自动化入门教程

概述

CAD 二次开发可以大幅提升绘图效率，将重复性操作自动化。本教程介绍两种最常用的 AutoCAD 编程语言：VBA 和 AutoLISP。

准备工作

环境要求

• AutoCAD 2020 或更新版本（或 BricsCAD V23+）
• VBA 模块已安装（AutoCAD 需单独下载安装）

启用 VBA 开发环境

1. 在命令行输入 VBAIDE 回车
2. 如果提示未安装，从 Autodesk 官网下载 VBA Enabler
3. 安装后重启 AutoCAD

步骤 1：第一个 VBA 宏

在 VBA IDE 中创建新模块，输入以下代码：

Sub HelloCAD()
    Dim textObj As AcadText
    Dim insertPoint(0 To 2) As Double
    insertPoint(0) = 0: insertPoint(1) = 0: insertPoint(2) = 0

    Set textObj = ThisDrawing.ModelSpace.AddText( _
        "Hello CAD Automation!", insertPoint, 10)

    ThisDrawing.Application.ZoomExtents
    MsgBox "文字已创建！"
End Sub

按 F5 运行，模型空间中将出现文字对象。

步骤 2：批量修改图层

Sub SetAllLayersWhite()
    Dim layer As AcadLayer
    For Each layer In ThisDrawing.Layers
        layer.color = acWhite
    Next layer
    ThisDrawing.Regen acAllViewports
    MsgBox "所有图层已设为白色"
End Sub

步骤 3：AutoLISP 基础

AutoLISP 更适合快速命令扩展。在命令行直接输入：

(defun c:HELLO ()
  (alert "Hello from AutoLISP!")
  (princ)
)

输入 HELLO 即可执行。

下一步

• 学习对象选择集（SelectionSet）操作
• 掌握图块（Block）的程序化创建
• 探索事件驱动编程（Reactor）
• 了解 ObjectARX/.NET 高级开发