CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2022 开发者帮助 › 查看内容

AutoCAD 2022 开发者帮助

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

2024-5-18 18:43| 发布者: admin| 查看: 9| 评论: 0|原作者: admin|来自: 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