VBA. Как прочитать параметры цвета (RGB) у атрибута динамического блока

[Евгений89]

Добрый день.
Есть код VBA, который присваивает атрибуту цвет RGB.

Код - Visual Basic [Выбрать]

1. Dim color As AcadAcCmColor
2. Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.19")
3.  
4. If UserForm4.ComboBox13 = "1" Then
5. color.SetRGB 15, 166, 7
6. varAttributes(1).TrueColor = color
7.  
8. ElseIf UserForm4.ComboBox13 = "2" Then
9. color.SetRGB 197, 188, 17
10. varAttributes(1).TrueColor = color

Можно ли сделать обратное, узнать параметры цвета RGB атрибута?
ColorIndex = varAttributes(1).color показывает только номер цвета.

Я хочу сделать что-то типа такого:

Код - Visual Basic [Выбрать]

1. If Color = RGB(197, 188, 17) Then
2. UserForm4.ComboBox13 = "2"

[Александр Ривилис]

Можно ли сделать обратное, узнать параметры цвета RGB атрибута?
ColorIndex = varAttributes(1).color показывает только номер цвета.

В VBA насколько я помню такой возможности для получения соответствия RGB<->ACI нет. Только в .NET и ObjectARX. Можно воспользоваться этой таблицей: http://gohtx.com/acadcolors.php
Но не уверен, что она на 100% актуальна в последних версиях AutoCAD.

[Александр Ривилис]

Хотя можно попробовать вот такой вариант:

Код - Visual Basic [Выбрать]

1. Dim col As New AcadAcCmColor
2. Call col.SetRGB(197, 188, 17)
3. MsgBox "RGB:" & col.Red & "," & col.Green & "," & col.Blue & " = " & vbCrLf & _
4. "ACAD Color Index=" & col.ColorIndex & vbCrLf

Ну и отсюда: https://blog.jtbworld.com/2005/11/code-snippet-to-convert-rgb-to-aci.html

Код - Visual Basic [Выбрать]

1. Function RGBtoACI(r As Long, g As Long, b As Long)
2.   Dim color As New AcadAcCmColor
3.   Call color.SetRGB(r, g, b)
4.   RGBtoACI = color.ColorIndex
5. End Function

[Евгений89]

Спасибо!

[Александр Ривилис]

Евгений89,
Если что-то подошло - отмечай решение.