关于重命名对象 （VBA/ActiveX）

随着图形变得越来越复杂，可以重命名对象以保持名称有意义或避免与插入到主图形中的其他图形中的名称发生冲突。

可以重命名除 AutoCAD 默认命名的对象之外的任何命名对象，例如图层 0 或“连续”线型。

名称最多可包含 255 个字符。除了字母和数字之外，名称还可以包含空格（尽管AutoCAD会删除直接出现在名称前后的空格）以及Microsoft Windows或AutoCAD未用于其他目的的任何特殊字符。不能使用的特殊字符包括小于号和大于号 （< >）、正斜杠和反斜杠 （/ \）、引号 （“）、冒号 （:)、分号 （;)、问号 （？）、逗号 （，）、星号 （*）、竖线 （|）、等号 （=） 和单引号 （'）。也不能使用通过 Unicode 字体创建的特殊字符。

若要重命名对象，请使用该对象的属性。Name

Sub Ch4_RenamingLayer()
  ' Create a layer
  Dim layerObj As AcadLayer
  Set layerObj = ThisDrawing.Layers.Add("NewLayer")

  ' Change the name of the layer
  layerObj.Name = "MyLayer"
End Sub