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

オブジェクトの色を変更するには、そのオブジェクトの TrueColor プロパティを使用します。

図面内の個々のオブジェクトに、色を割り当てることができます。それぞれの色は、AcCmColor によって識別されます。このオブジェクトは、RGB 値、ACI 番号(1 から 255 の整数)、または色名を保持することができます。RGB 値を使用すると、100 万色の中から選択することができます。

オブジェクトに対する色設定は、そのオブジェクトが所属する画層の色設定に優先します。オブジェクトを特定の画層に保持するが画層の色を継承したくない場合、オブジェクトの色を変更することができます。

円の色を変更する

次の例は、円を作成し、その円の色を青に設定します。

Sub Ch4_ColorCircle()
  Dim color As AcadAcCmColor
  Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.20")
  Call color.SetRGB(80, 100, 244)

  Dim circleObj As AcadCircle
  Dim centerPoint(0 To 2) As Double
  Dim radius As Double
  centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
  radius = 5#
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
  circleObj.TrueColor = color
  ZoomAll
End Sub