关于迁移自动化项目 （VBA/ActiveX）

ActiveX 库引用

可能需要在 AutoCAD 图形环境或其他支持 VBA 的应用程序（如 Microsoft Word 或 Excel）中创建的 VBA 项目中更新对 AutoCAD ActiveX API 的引用。使用 AutoCAD ActiveX API 的托管 .NET 和 ObjectARX 应用程序可能还需要更新。

下表列出了基于 AutoCAD 的产品版本支持的 AutoCAD 对象库的文件名。

下面列出了早期版本使用的其他 AutoCAD ActiveX API 的文件名，以及已将其替换为最新版本的对象库文件：

• acETransmit17.tlb 到 acETransmit19.tlb – 更改为 acETransmit20.tlb
• AcSmComponents17.tlb 到 AcSmComponents23.tlb – 更改为 AcSmComponents24.tlb
• cao16<language>.tlb – 更改为 cao20<language>.tlb

最新版本中的新对象和更改对象

新对象

未添加任何新对象。

更改的对象

下表描述了对现有对象所做的更改。

AutoCAD 2020版	AutoCAD 2021版	变更说明
AutoCAD.AcadLayerStateManager.23	AutoCAD.AcadLayerStateManager.24	用于基于最新安装的库创建 AutoCAD 图层状态管理器的实例。AutoCAD.AcadLayerStateManager
AutoCAD.AcCmColor.23	AutoCAD.AcCmColor.24	用于基于最新安装的库创建 AutoCAD 颜色对象的实例。AutoCAD.AcCmColor
AutoCAD.Application.23或AutoCAD.Application.23.1	AutoCAD.Application.24	用于基于最新安装的库创建 AutoCAD 应用程序的实例。AutoCAD.Application 如果要确保创建 AutoCAD 2021 实例，请使用 .AutoCAD.Application.24
AutoCAD.SecurityParams.23	AutoCAD.SecurityParams.24	用于基于最新安装的库创建 AutoCAD 安全参数对象的实例。AutoCAD.SecurityParams

与早期版本相比的一般更改

除了更新 COM 库引用之外，可能需要进行以下更改才能从早期版本迁移程序：

• 必须修改用于 64 位支持的方法和属性。“64 位迁移”一节概述了这些更改。
• 从基于 AutoCAD 2015 的产品开始，该方法将命令字符串发送到对象并以异步方式执行。VBA 项目的执行将暂停，直到命令字符串执行的最后一个命令完成或终止，并将文档返回到空闲状态。在早期版本中，命令字符串被发送到对象，而不挂起 VBA，您可以使用该方法将值传递给当前命令。SendCommandAcadDocumentAcadDocumentSendCommand

  例如，在基于 AutoCAD 2014 的产品及更早版本中，以下内容有效：

  ThisDrawing.SendCommand "._LINE "
  ThisDrawing.SendCommand "0,0 5,5 "

  在基于AutoCAD 2015的产品及更高版本中，前面的代码将执行LINE命令，然后等待用户提供点。在LINE命令完成或终止后，将执行第二种方法。您可以将前面的代码更改为以下代码以正确执行：SendCommand

  ThisDrawing.SendCommand "._LINE 0,0 5,5 "

  如果需要将代码语句分解为多行，则可以使用将命令字符串发布到对象并同步执行字符串的方法。命令字符串的同步执行是指在执行最外层过程且对象处于空闲状态时执行命令字符串。PostCommandAcadDocumentAcadDocument

• 该方法不再支持为图形指定密码的功能。不再支持密码保护。从方法的参数中删除对象以更新代码语句以在最新版本中使用。SaveAsAcadSecurityParamsvSecurityParamsSaveAs

64 位迁移

从 AutoCAD 2014 开始，AutoCAD 支持提供本机 64 位支持的 VBA 7.1。此更改将要求维护 VBA 项目的两个版本：32 位和 64 位。在 AutoCAD 2014 之前的版本中，VBA 作为进程外组件运行，通过 32 位到 64 位的“thunking”层进行访问，该图层允许现有的 32 位 VBA 项目在 AutoCAD 64 位中按预期运行。

VBA 64 位需要使用不同的库和控件来表示。并非所有 VBA 库和窗体控件都以 64 位提供，您可能需要调整某些代码才能在 Windows 32 位和 Windows 64 位上正常工作。

如果 VBA 项目是针对 AutoCAD 2009 到 AutoCAD 2013 开发的，则在将 VBA 项目移植到最新版本时需要考虑以下事项：

• 最初为 Windows 32 位创建的窗体上使用的控件可能需要更新或替换为 64 位替代项，才能在 Windows 64 位上正确执行。
• 专门为允许 VBA 32 位与 AutoCAD 64 位配合使用而创建的方法和特性现已过时，并已被删除。用正确的方法和属性替换过时的方法和属性，通常从方法或属性的名称中删除“32”就足够了。

处理 ObjectId

从 AutoCAD 2009 64 位到 AutoCAD 2013 64 位，对象 ID 由 64 位整数数据类型 （） 表示。在 32 位 VBA 中访问这些值会导致编译错误。作为解决方案，创建了一组以“32”为后缀的新方法名称，这些名称与旧方法相对应（例如，）。这些方法使用数据类型，该数据类型在内部映射到 64 位整数数据类型。__int64ObjectID32()OwnerID32()LONG

更准确地说，在内部为 VBA 中所需的每个对象 ID 创建了一个 32 位对象 ID。此 ID 映射到其 64 位实际 ID，因此，如果 32 位 ID 从 VBA 代码传递回 AutoCAD，则可以返回 64 位对象 ID 并在内部用于所有目的。

下面的示例给出了移植的 32 位对象 ID 代码的示例：

原始代码 64 位（AutoCAD 2009 至 AutoCAD 2013）

Dim splineObj As AcadSpline
Dim objectID As Long
objectID = splineObj.objectID32
Dim tempObj As AcadObject
Set tempObj = ThisDrawing.ObjectIdToObject32(objectID)

针对 AutoCAD 2014 64 位及更高版本兼容性移植的代码

Dim splineObj As AcadSpline
Dim objectID As Long
objectID = splineObj.objectID
Dim tempObj As AcadObject
Set tempObj = ThisDrawing.ObjectIdToObject(objectID)

VBA 应用程序还可以使用对象的句柄而不是其对象 ID。以下示例演示如何使用句柄而不是对象 ID：

使用对象对象 ID 的原始代码

Dim splineObj As AcadSpline
Dim objectID As Long
objectID = splineObj.objectID
Dim tempObj As AcadObject
Set tempObj = ThisDrawing.ObjectIdToObject(objectID)

使用对象句柄修改的代码

Dim splineObj As AcadSpline
Dim objectHandle As String
objectHandle = splineObj.Handle
Dim tempObj As AcadObject
Set tempObj = ThisDrawing.HandleToObject(objectHandle)

32 位方法附录（AutoCAD 2014 64 位及更高版本已过时）

注意：对象 ID 不再转换为 AutoCAD 32 位的数据类型。LONG

下表列出了在 AutoCAD 2009 64 位到 AutoCAD 2013 64 位中用作 32 位替换的方法：

64 位系统的 VBA 方法
方法 - AutoCAD 2009 到 2013	方法 - AutoCAD 2014 及更高版本	用
GetBlockAttributeValue32	GetBlockAttributeValue	使用块中的 32 位对象 ID 从指定的块单元格中返回属性定义对象的属性值。
GetBlockTableRecordId32	GetBlockTableRecordId	获取与块类型单元格和 nContent 关联的块表记录的 32 位对象 ID。
GetFieldId32	GetFieldId	返回与指定单元格关联的字段对象的 32 位对象 ID。
GetGridLinetype32	GetGridLinetype	返回网格线型对象的 32 位对象 ID。
键32	钥匙	指定 64 位系统操作中源对象的对象 ID。CopyObjects
对象 ID32	对象 ID	获取 64 位系统的对象 ID。
ObjectIDtoObject32	ObjectIDtoObject	获取对应于 64 位系统的给定对象 ID 的对象。
所有者ID32	所有者 ID	获取 64 位系统的所有者（父）对象的对象 ID。
SetBlockAttributeValue32	SetBlockAttributeValue	使用块和 nContent 中包含的属性定义对象的指定块单元格中的属性值设置其 32 位对象 ID。
SetBlockTableRecordId32	SetBlockTableRecordId	设置与块类型单元格和 nContent 关联的 32 位对象 ID 块表记录。
设置字段Id32	SetFieldId	设置与指定单元格和 nContent 关联的字段对象的 32 位对象 ID。
SetGridLinetype32	SetGridLinetype	设置网格线类型对象的 32 位对象 ID。
值32	价值	指定 64 位系统的属性的当前值或新创建的克隆对象的对象 ID。