Delphi 12.3 集成 CAD VCL v10.2 Enterprise 源码实战：DWG 加载、渲染与避坑

简介：CadSoftTools CAD VCL v10.2 Enterprise for Delphi 10-12 Athens Full Source 是一套面向 Delphi 开发者的专业 CAD 控件集，适用于需要在 Windows 应用中嵌入 DXF、DWG 等工程图形查看、编辑与转换功能的场景，尤其适合中高级开发者构建 CAD 查看器或编辑器。压缩包共 541 个文件，约 16MB，以 199 个 pas 源码、174 个 dcu 编译单元、24 个 dfm 窗体、13 个 dproj 工程文件及 12 个 dpr 项目文件为主，另含 shx 字体、dwg/dxf 示例图纸、chm 帮助文档与 exe 演示程序，覆盖从源码到示例的完整结构。资源支持 Delphi 10 至 12 全版本并附带完整源代码，开发者可查看、修改并定制底层实现，灵活适配复杂图形处理与渲染需求。目前已有 98 人学习下载，适合希望深入掌握 CAD 集成方案的 Delphi 开发者参考。

1. Delphi 12.3 里把 CAD VCL v10.2 Enterprise 源码包跑起来：先搞清楚它到底解决什么问题

如果你正在用 Delphi 12.3 Athens 做工程类桌面软件，迟早会撞上一个需求：在窗体里显示 DWG/DXF 图纸，还要能缩放、平移、图层开关、打印。自己从零写一个 DWG 解析器基本不现实，DWG 是闭源二进制格式，版本从 R12 到 2018 差异巨大，光实体类型就有几十种。CadSoftTools 的 CAD VCL v10.2 Enterprise 就是干这个的：它是一套原生 VCL 控件，直接嵌进 Delphi 的 TForm 里，不依赖 AutoCAD，不依赖 ODA 的运行时授权，加载 DWG/DXF/HPGL/PDF 等格式后给你一个可交互的绘图区。标题里的 “Full Source” 意味着拿到的是完整源码，不是只有 DCU 的试用版，这对需要改渲染逻辑、加自定义实体、做国产化适配的团队来说差别很大。这篇笔记按“先跑通最小加载 → 再拆参数和源码结构 → 最后讲避坑和进阶”的顺序走，适合已经会用 Delphi 12.3 建 VCL 项目、但第一次接触 CAD 控件的工程师。

2. 从零跑通第一个 DWG 加载：环境、包安装与最小可运行代码

2.1 Delphi 12.3 Athens 下的包结构长什么样

拿到 “CAD VCL v10.2 Enterprise for Delphi 10-12 Athens Full Source.7z” 之后，先别急着打开 .dproj。解压出来通常能看到几个关键目录：Source放的是全部 .pas 源码，Packages下按 Delphi 版本分目录，Delphi 10 到 12 各有一套 .dpk/.dproj，Demos里是示例工程，Help是 CHM 或 PDF 文档。Enterprise 版比 Standard 多出来的部分主要在：PDF 导入导出、DWG 写回、图层和块的高级操作、以及一些三维视角相关的单元。判断你拿到的是不是完整 Enterprise 源码，看Source里有没有CADImage.pas、DWGImage.pas、PDFImage.pas这几个大文件，以及Packages下对应 Athens 的包是否齐全。

安装顺序上，我一般先在 Delphi 12.3 里打开Packages下对应版本的运行时包（通常叫CADVCLR.dproj之类），Build 一次，再 Install 设计时包。设计时包装完，工具面板上会出现TCADImage、TCADViewer这类控件。如果 Build 报找不到单元，八成是Source路径没加到 Library Path 里，去Tools > Options > Language > Delphi > Library把Source和Source\Utils之类的子目录都加进去。

提示：Delphi 12.3 的编译器对inline和泛型比 10.x 严格，老版本源码里如果有inline函数跨单元调用，可能报 “cannot inline”。遇到就在项目选项里把优化临时关掉，或者直接改源码去掉 inline 修饰。

2.2 最小加载代码：一个按钮加一个 TCADImage

下面这段是我用来验证包是否装好的最小工程。窗体上放一个TButton、一个TOpenDialog、一个TCADImage，按钮点击时加载选中的 DWG。

procedure TForm1.btnLoadClick(Sender: TObject); begin if OpenDialog1.Execute then begin // 先清空，避免上一次的图层和实体残留 CADImage1.Clear; // LoadFromFile 会根据扩展名自动选解析器 CADImage1.LoadFromFile(OpenDialog1.FileName); // 让图纸自适应窗体大小 CADImage1.FitToRect(CADImage1.ClientRect); // 强制重绘，否则有时要拖动窗口才刷新 CADImage1.Repaint; end; end;

逻辑说明：Clear不是可有可无的，CAD VCL 内部维护了图层表、块表、线型表，连续加载两张图如果不 Clear，第二张图可能继承第一张的图层状态，出现“图层莫名其妙多出来”的玄学问题。LoadFromFile是入口，它内部按文件头判断格式，DWG 走DWGImage，DXF 走DXFImage。FitToRect传入的是绘图区客户区矩形，它会算一个缩放比让整张图可见。Repaint在部分显卡驱动下必须显式调，否则首帧是黑的。

参数上，CADImage1.LoadFromFile有个重载可以传TLoadFromFileParams，里面能指定是否加载线宽、是否解析布局空间。默认全加载，大图会慢。如果你只做预览，把线宽和填充关掉能快不少。

2.3 验证加载成功的三个检查点

跑起来之后别只看“图出来了没有”，按这三个点确认：

第一，看CADImage1.Layouts.Count，正常 DWG 至少有 Model 布局，图纸空间可能还有多个 Layout。如果 Count 是 0，说明解析器没识别成功，多半是文件版本太新或加密。

第二，看CADImage1.Layers.Count，图层数量应该和你在 AutoCAD 里看到的一致。如果少了很多，检查是不是加载参数里把冻结图层过滤掉了。

第三，随便取一个实体，比如CADImage1.Entities[0].EntType，看返回的类型是不是etLine、etCircle这类。如果全是etUnknown，说明实体解析没走通，通常是源码里某个条件编译开关没打开。

3. 拆开源码看渲染管线：TCADImage 的绘制流程与关键参数

3.1 从 OnDraw 到 GDI+ 的调用链

CAD VCL 的渲染不是一次性把图转成位图，而是每次重绘时遍历可见实体，逐个调 GDI/GDI+ 画。核心在CADImage.pas里的Draw方法，它大致做这几件事：先算当前视图变换矩阵（缩放、平移），再按图层可见性和实体包围盒做粗剔除，然后对每个实体调DrawEntity，最后画栅格、坐标轴这些辅助元素。Enterprise 版在DrawEntity里对样条曲线和椭圆弧做了细分缓存，所以缩放时不会每次都重新算。

理解这条链的意义在于：你要改渲染性能，改的是剔除逻辑和缓存策略，不是去改 GDI 调用。比如大图卡顿，先看Entities数量，再看是不是所有实体都在视口内。我见过一个项目，图纸有 8 万个实体，每次重绘全遍历，后来在Draw里加了一层按图层先过滤，帧率从 3 帧涨到 30 帧。

3.2 必调的五个参数：缩放、平移、背景、线宽、抗锯齿

CAD VCL 的参数分散在CADImage和CADViewer上，下面这张表是我实际项目里最常动的五个。

缩放和平移是新手最容易翻车的地方。Scale改的是图纸单位到屏幕像素的比例，Offset是图纸原点在屏幕上的位置。如果你只改 Scale 不改 Offset，图会以左上角为锚点缩放，看起来就是“越缩越往右下跑”。正确做法是先把鼠标位置转成图纸坐标，改完 Scale 再反算 Offset，让鼠标下的点不动。这个逻辑在Demos里的 Zoom 示例有，可以直接抄。

3.3 图层与实体过滤：怎么只画我关心的部分

工程图往往有几十个图层，全部渲染既慢又乱。CAD VCL 给每个图层一个Visible属性，但直接遍历改 Visible 会触发多次重绘。更好的做法是用CADImage.OnEntityDraw事件，在里面判断实体所属图层，不满足条件就把Draw参数设成 False。

procedure TForm1.CADImage1EntityDraw(Sender: TObject; AEntity: TCADEntity; var ADraw: Boolean); begin // 只画图层名以 "WALL" 开头的实体 if Pos('WALL', UpperCase(AEntity.Layer.Name)) = 0 then ADraw := False; end;

逻辑说明：这个事件每个实体绘制前都会调，ADraw默认 True，设 False 就跳过。参数AEntity.Layer.Name是图层名字符串，注意大小写，DWG 里图层名可能混用。性能上，这个回调比改 Visible 快，因为它不触发图层状态变更和重绘排队。

注意：在OnEntityDraw里不要做耗时操作，比如查数据库、读文件。这个回调调用频率极高，一次慢操作就能让整个界面卡死。

4. 避坑与排查：源码编译、字体、大图、打印里的五个血泪经验

4.1 编译报 “Unit not found” 或 “Duplicate identifier”

现象：Build 时提示找不到CADImage或某个dx开头的单元，或者提示标识符重复。

原因：Library Path 里同时存在多个版本的 CAD VCL 源码路径，或者旧版 DCU 没清干净。Delphi 12.3 的搜索顺序是先 DCU 后源码，如果之前装过试用版，DCU 会优先命中。

解决：去Tools > Options > Library把无关路径删掉，只留当前版本的Source。然后手动删掉项目目录下的Win32\Debug和Win64\Debug，强制全量重编。如果还报重复，搜一下Source里是不是有两个同名 .pas，Enterprise 包有时会把 Standard 的单元也带进来。

4.2 中文图层名和文字显示成问号

现象：图纸里中文图层名、中文标注文字显示为 “???” 或方块。

原因：CAD VCL 默认用 ANSI 编码读 DWG 里的字符串，而中文 DWG 常用 GBK 或 UTF-16。源码里CADImage有个CodePage属性，默认可能是 1252。

解决：加载前设CADImage1.CodePage := 936;（GBK）。如果图纸是 AutoCAD 2007 以上存的，可能是 UTF-8，试 65001。文字样式里的字体也要设，CADImage1.TextStyle.FontName := 'SimSun';，否则即使编码对了，字体缺失还是方块。

4.3 大图加载后内存暴涨、切换图纸崩溃

现象：加载一张 20MB 的 DWG，任务管理器里内存从 200MB 跳到 1.5GB，再加载第二张直接 Out of Memory。

原因：CAD VCL 会把所有实体、图层、块定义都缓存在内存，而且默认不释放上一次的。Clear只清实体列表，块表和线型表可能还挂着。

解决：加载新图前，除了Clear，再调CADImage1.Blocks.Clear和CADImage1.LineTypes.Clear。如果还不行，把CADImage控件动态创建和释放，不要复用同一个实例。另外，LoadFromFile的参数里把lpLoadImages设 False，不加载光栅底图，能省一大块。

4.4 打印和导出 PDF 时线宽全变成 1 像素

现象：屏幕上看着正常，一打印或导出 PDF，所有线都一样粗，细线看不见。

原因：打印走的是另一套渲染路径，LineWeightMode在打印时被强制成 Pixel，而打印 DPI 远高于屏幕，1 像素在纸上几乎不可见。

解决：打印前把CADImage1.LineWeightMode := lwmReal;，并且设CADImage1.PrintScale为实际比例。如果导出 PDF，用 Enterprise 版的PDFImage单元，它支持矢量线宽。注意lwmReal在屏幕上会让细线太细，所以我的习惯是屏幕用 Pixel，打印前临时切 Real，打完切回来。

4.5 在 Delphi 12.3 的 FMX 项目里直接用 VCL 控件

现象：新建的是 FireMonkey 项目，把TCADImage拖上去编译报错，或者运行时窗体空白。

原因：CAD VCL 是纯 VCL 控件，依赖Windows单元的 GDI，FMX 的渲染层是 Direct2D 或 OpenGL，两者不兼容。

解决：如果必须用 FMX，常见做法是建一个 VCL 窗体嵌进去，或者用TWindowsMedia之类的桥接。更省事的做法是 CAD 显示部分单独做一个 VCL 程序，通过进程间通信把图渲染成位图传给 FMX。我一般直接建议客户用 VCL 做工程图模块，FMX 做移动端或大屏展示，别硬混。

5. 进阶：用源码改出自定义实体和批量出图的小技巧

5.1 继承 TCADEntity 加一个自定义标注实体

Full Source 最大的价值就是能加自己的实体。假设你要在图纸上画一种带二维码的标注，AutoCAD 里没有对应类型，可以继承TCADEntity，重写Draw和GetBounds。

type TQRCodeLabel = class(TCADEntity) private FText: string; FPosition: TPoint2D; public procedure Draw(ACanvas: TCanvas; const ATransform: TTransform); override; function GetBounds: TRect2D; override; property Text: string read FText write FText; property Position: TPoint2D read FPosition write FPosition; end; procedure TQRCodeLabel.Draw(ACanvas: TCanvas; const ATransform: TTransform); var P: TPoint; begin // 把图纸坐标转成屏幕坐标 P := ATransform.PointToScreen(FPosition); // 这里用第三方二维码库画，或者简单画个矩形占位 ACanvas.Rectangle(P.X, P.Y, P.X + 40, P.Y + 40); ACanvas.TextOut(P.X + 2, P.Y + 2, FText); end;

逻辑说明：Draw里拿到的ACanvas是当前渲染画布，ATransform是视图变换，必须用它转坐标，不能自己算，否则缩放平移后位置全错。GetBounds返回实体在图纸坐标系里的包围盒，用于剔除和选择。加完实体后，把它Add到CADImage1.Entities里，重绘就能看到。

参数上，TTransform有PointToScreen和ScreenToPoint两个方向，鼠标交互时用后者。自定义实体的EntType可以返回一个自定义枚举值，但注意别和内置的冲突，建议从 1000 开始。

5.2 批量出图：遍历布局导出 PDF 的脚本

工程交付经常要把一张 DWG 里的多个布局批量导成 PDF。用 Enterprise 版的PDFImage可以写个循环。

var i: Integer; PDF: TPDFImage; begin PDF := TPDFImage.Create(nil); try for i := 0 to CADImage1.Layouts.Count - 1 do begin CADImage1.CurrentLayout := CADImage1.Layouts[i]; // 每次切换布局后要重新适配 CADImage1.FitToRect(CADImage1.ClientRect); PDF.Assign(CADImage1); PDF.SaveToFile('D:\out\' + CADImage1.Layouts[i].Name + '.pdf'); end; finally PDF.Free; end; end;

逻辑说明：CurrentLayout切换后，CADImage内部会重新解析该布局的视口和实体，所以必须再FitToRect一次。PDF.Assign把当前渲染结果拷过去，SaveToFile输出。参数上，PDF的分辨率由CADImage的PrintScale决定，想要 300 DPI 就设PrintScale := 300 / 96。

提示：批量导出时如果布局里有外部参照（XRef），确保 XRef 文件路径可访问，否则导出的 PDF 里 XRef 部分是空白。CAD VCL 不会自动搜索路径，需要你提前把 XRef 加载到CADImage1.Images里。

5.3 验证自定义改动是否生效的两个土办法

改完源码最怕“改了没生效”。我的习惯是：第一，在改动的Draw里加一句OutputDebugString('QRCodeLabel.Draw called');，用 DebugView 看有没有输出。第二，故意把颜色改成红色，如果图上出现红色块，说明渲染路径走通了。这两个办法比断点快，尤其在有大量重绘的场合，断点会卡到怀疑人生。

最后说个习惯：每次升级 Delphi 版本或 CAD VCL 版本，先把Demos里的例子全跑一遍，再跑自己的工程。源码包里的 Demo 是作者验证过的基线，你的工程跑不通而 Demo 能跑，问题一定在你的代码或路径配置上。这个顺序能省掉大量“到底是控件坏了还是我写错了”的纠结。希望帮到你。

本文还有配套的精品资源，点击获取