重命名对象

AutoCAD ActiveX/VBA

 
重命名对象
 
 
 

图形变得比较复杂时,用户可以重命名对象,使名称有针对性或者避免与用户插入主图形的其他图形中的名称相冲突。

用户可以重命名任何命名对象,但 AutoCAD 默认的命名对象(例如图层 0 或 CONTINUOUS 线型)除外。

名称最长可以包含 255 个字符。除了字母和数字之外,名称中还可以包含空格(虽然 AutoCAD 会删除名称前后的空格)以及 Microsoft Windows 或 AutoCAD 未用作其他用途的任何特殊字符。不能使用的特殊字符包括小于号和大于号 (< >)、正斜杠和反斜杠 (/ \)、引号 (")、冒号 (:)、分号 (;)、问号 (?)、逗号 (,) 星号 (*)、竖线 (|)、等号 (=) 和单引号 (')。也不能使用以 Unicode 字体创建的特殊字符。

要重命名对象,请使用该对象的 Name 特性。

重命名图层

本例创建称为“NewLayer”的图层,然后将该图层重命名为“MyLayer”。

Sub Ch4_RenamingLayer()
    ' 创建图层
    Dim layerObj As AcadLayer
    Set layerObj = ThisDrawing.Layers.Add("NewLayer")
      
    ' 更改图层的名称
    layerObj.Name = "MyLayer"
      
End Sub