Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Как заставить работать вместе свойство Color и функцию RGB?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте, уважаемые форумчане!
Наткнулась я на такую неприятность: свойство Color - это байт, а функция RGB возвращает Long. И они не хотят дружить... :( А надо сделать так, чтобы примитивы рисовались цветами RGB, причём цвета любые допустимые, а не только из палитры AutoCAD-a. Буду очень благодарна всем откликнувшимся.
Ой вроде час назад я задал такой же вопрос :D https://www.caduser.ru/forum/topic28403.html masha Вы попрежнему не перестаете нас удивлять :)
А вот и не такой же. :) Вы про палитру спрашиваете, а мне надо не ближайший, а в точности то, что задано. Вопрос ваш я видела, но мне он показался отличным от моего... Ну, если вместе нам быстрее удастся найти выход, то я только за.
а мне надо не ближайший, а в точности то, что задано
RGB описывает больше чем 256 цветов так, что только в 256/256^3 случаях вы сможете перевести в точно тот же цвет. если же конечно есть какая то закономерность у ACI
Ура!!! Получилось!!!
color As AcadAcCmColor color.SetRGB CLng(r), CLng(g), CLng(b) 'r,g,b from 0 to 255 pointObj.TrueColor = color 'точка красится в нужный цвет
> masha
в 2000 AcadAcCmColor нема :(
Public Function GrayScale09(ByVal lColor As Long) As Long
' by Donald, donald@xbeat.net, 20011123
GrayScale09 = ((77& * (lColor And &HFF&) + _
152& * (lColor And &HFF00&) \ &H100& + _
28& * ((lColor And &HFF0000) \ &H10000)) \ 256&) * &H10101
End Functionвот функция переводит RGB в отенки серого, что то походее должно быть и для ACI
в 2000 AcadAcCmColor нема :(
А TrueColor есть? И что тогда в него присваивается?
В приведённом фрагменте кода выражения типа &HFF00& - это маски или что?... Я просто не могу до конца понять, что там написано...
TrueColor тоже нема ;)
&HFF00&=65280
> SmeL
Мне кажется, что тебе следует воспользоваться этой таблицей: https://www.caduser.ru/forum/topic3501.html
Но она для обратного преобразования. Тебе в этой таблице придется найти цвет, у которого R,G,B ближе всего к твоему.
P.S.: Та таблица кажется уже устарела (AutoCAD R14). Попробуй эту: https://www.caduser.ru/forum/topic18878.html
TrueColor появился в Автокаде начиная с 2004-го.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Как заставить работать вместе свойство Color и функцию RGB?
Форум работает на PunBB, при поддержке Informer Technologies, Inc
