Примитивы

Примитивы

Twin Пользователь Сообщений: 37 Регистрация: 17.05.2005	#1 29.01.2007 11:23:25 Вопрос: Можно ли как нибуть программно изменить цвет примитива (примитив состоит из 3 частей, все части разные)??

Lyosha Администратор Сообщений: 3362 Регистрация: 23.11.2020	#2 29.01.2007 13:00:17 dim style as ElemStyle ' Для слоя Layer1 и объекта с ID = ID 'Получили стиль примитива set style = Layer1.Elements.Item(ID).ElemStyle ' Например меняем цвет заливки style.PatColor = RGB(255, 0, 0) ' Присваиваем объекту измененный стиль Layer1.Elements.Item(ID).ElemStyle = style Только если объект один (ID один), то стиль у всех частей общий будет.