概要 - オブジェクトの名前を変更する(VBA/ActiveX)

図面がより複雑になるにつれ、名前が意味を表すものにするため、あるいは主図面に挿入した他の図面との競合をさけるため、オブジェクトの名前を変更することができます。

画層 0 または CONTINUOUS 線種など、AutoCAD が既定で名前を付けるものを除いて、名前の付いたオブジェクトはいずれもその名前を変更できます。

名前は半角で 255 文字まで使用できます。文字や数字の他に、スペース(ただし、名前の先頭と最後のスペースは削除されます)や Microsoft Windows および AutoCAD が他の目的で使用していないものであれば、特殊文字も使用できます。使用できない特殊文字には、山括弧(< >)、スラッシュと円記号(/ ¥)、ダブル クォーテーション記号(")、コロン(:)、セミコロン(;)、疑問符(?)、カンマ(,)、アスタリスク(*)、縦棒(|)、等号(=)、シングル クォーテーション(')記号があります。Unicode フォントを使用して作成した特殊文字も使用できません。

オブジェクトに名前を付けるには、そのオブジェクトの Name プロパティを使用します。

画層の名前を変更する

次の例は、"NewLayer" という名前の画層を作成し、"MyLayer" という名前に変更します。

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