| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA. Как прочитать параметры цвета (RGB)

VBA. Как прочитать параметры цвета (RGB)

Ответ
Поиск в этой теме
Непрочитано 04.06.2019, 15:31 #1
VBA. Как прочитать параметры цвета (RGB)
Jeneva
 
Регистрация: 21.06.2017
Сообщений: 10

Добрый день.
Есть код VBA, который присваивает атрибуту цвет RGB.
....................................................................
Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.19")

If UserForm4.ComboBox13 = "1" Then
color.SetRGB 15, 166, 7
varAttributes(1).TrueColor = color

ElseIf UserForm4.ComboBox13 = "2" Then
color.SetRGB 197, 188, 17
varAttributes(1).TrueColor = color
.................................................................

Можно ли сделать обратное, узнать параметры цвета RGB атрибута?
ColorIndex = varAttributes(1).color показывает только номер цвета.
Просмотров: 402
 
Непрочитано 04.06.2019, 15:33
#2
trir


 
Регистрация: 18.12.2010
Сообщений: 3,224


Color = varAttributes(1).TrueColor
trir вне форума  
 
Автор темы   Непрочитано 04.06.2019, 15:57
#3
Jeneva


 
Регистрация: 21.06.2017
Сообщений: 10


Так не работает, я хочу сделать что-то типа такого:

If Color = RGB(197, 188, 17) Then
UserForm4.ComboBox13 = "2"
Jeneva вне форума  
 
Непрочитано 04.06.2019, 17:55
#4
trir


 
Регистрация: 18.12.2010
Сообщений: 3,224


If Color = 197*256^2 + 188*256 + 17 Then
trir вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA. Как прочитать параметры цвета (RGB)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обязанность изготовителя указывать параметры в соотвтетствии с ГОСТ Алексей СПБ-САМ Металлические конструкции 1 27.09.2018 09:36
Копирование динамического блока и присвоение ему нового цвета Boris0071 Динамические блоки 15 16.12.2016 15:03
Выделяю все слои, устанавливаю им цвет 0,0,0, но цвета меняются не полностью alldmc AutoCAD 2 06.11.2012 21:48
AutoCAD civil 3D 2012 - параметры перехода из Pulkovo_to_WGS84. Pavel_GP Вертикальные решения на базе AutoCAD 2 30.09.2011 11:05
Как перевести цвета автокада в цвета Windows krendel AutoCAD 3 11.02.2009 21:03