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

オブジェクトを作成してから画層、色、線種のプロパティをそれに割り当てた後、オブジェクトの画層を変更する必要が生じることがあります。

誤ってオブジェクトを異なる画層上に作成したり、画層の構成を変更したい場合は、オブジェクトの画層を変更しなければなりません。

オブジェクトの画層を変更するには、そのオブジェクトの Layer プロパティを使用します。Layer プロパティは、入力として画層名を受け取ります。

オブジェクトを別の画層に移動する

次の例は、アクティブな画層に円を作成し、次に "ABC" という新しい画層を作成します。その後、円を新しい画層に移動します。

Sub Ch4_MoveObjectNewLayer()
  ' Create a circle
  Dim circleObj As AcadCircle
  Dim center(0 To 2) As Double
  Dim radius As Double
  center(0) = 2: center(1) = 2: center(2) = 0
  radius = 1
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)

  ' Create a new layer called "ABC"
  Dim layerObj As AcadLayer
  Set layerObj = ThisDrawing.Layers.Add("ABC")

  ' Assign the circle to the "ABC" layer
  circleObj.Layer = "ABC"
  circleObj.Update
End Sub