CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于为对象指定图层、颜色和线型（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于更改对象的颜色（VBA/ActiveX）

2023-1-4 23:37| 发布者: admin| 查看: 1137| 评论: 0|来自: AutoCAD

摘要: 要更改对象的颜色，请使用为该对象提供的真彩色属性。

若要更改对象的颜色，请使用为该对象提供的属性。TrueColor

您可以为图形中的单个对象指定颜色。每种颜色都由一个对象标识。此对象可以保存 RGB 值、ACI 编号（从 1 到 255 的整数）或命名颜色。使用 RGB 值，您可以从数百万种颜色中进行选择。AcCmColor

为对象设置颜色将覆盖对象所在图层的颜色设置。如果要将对象保留在特定图层上，但不希望它保留该图层的颜色，则可以更改对象的颜色。

更改圆圈的颜色

本示例创建一个圆圈，然后将该圆圈涂成蓝色。

Sub Ch4_ColorCircle()
  Dim color As AcadAcCmColor
  Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & _
                                                 Left(AcadApplication.Version, 2))
  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