dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA autocad 2016. Как присвоить слою определенный цвет и вес линий?

VBA autocad 2016. Как присвоить слою определенный цвет и вес линий?

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 27.08.2017, 17:51 #1
VBA autocad 2016. Как присвоить слою определенный цвет и вес линий?
AlexV
 
Инженер
 
С-Пб
Регистрация: 02.10.2008
Сообщений: 3,479

AlexV вне форума Вставить имя

Откуда-то у меня завалялась такая процедурка:

Код:
[Выделить все]
Dim entry As AcadLayer
Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.20")
Call color.SetRGB(0, 0, 0)
Set entry = ThisDrawing.Layers.Add(New_L_Name)
ThisDrawing.Layers.Item(New_L_Name).TrueColor = color
Но она приклеивает слою цвета RGB.. А как присвоить цвет


ну и вес линий соответсвенно?

Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 82
Размер:	19.3 Кб
ID:	192805  

__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!
Просмотров: 351
 
Непрочитано 27.08.2017, 18:21
1 | #2
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 1,370


Colorindex
Boxa вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 28.08.2017, 04:52
1 | #3
Владимир_М


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


Set layerObj = ThisDrawing.Layers.Add("_Òåêñò")
layerObj.color = acRed
layerObj.Lineweight = acLnWt015
Владимир_М вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 28.08.2017, 10:21
#4
AlexV

Инженер
 
Регистрация: 02.10.2008
С-Пб
Сообщений: 3,479


Цитата:
Сообщение от Владимир_М Посмотреть сообщение
Set layerObj = ThisDrawing.Layers.Add("_Òåêñò")
layerObj.color = acRed
layerObj.Lineweight = acLnWt015
Да, спасибо.. Странно, я "во-первых строках" вчера так и попробовал, но на строке "layerObj.color = 1" (как и на layerObj.color = acRed) - код вставал с ошибкой.. Посмотрел в "объект браузере", у класса AcadLayer в "member"ах нема свойства
, только "Truecolor".. Я и подумал, что собака глубже зарыта. А сегодня вроде та же самая строка, а нормально работает.. Чудесато!
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 47
Размер:	27.4 Кб
ID:	192818  
__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!
AlexV вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA autocad 2016. Как присвоить слою определенный цвет и вес линий?

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема создания связи таблиц в AutoCAD 2016 с MS Excel 2016 alterfiesta AutoCAD 13 04.09.2016 12:11
Нужна помощь с установкой AutoCAD 2016 Ifclissium AutoCAD 5 15.08.2016 17:19
Ошибка при печати в фоновом режиме в AutoCad 2016 dip AutoCAD 4 20.10.2015 12:22
Как преобразовать поверхность Autocad в каркас из линий для импорта схемы в Scad ? Ded Kiborg SCAD 12 10.02.2013 17:43
Геодезические типы линий для AutoCAD. Где достать файл? SergeyVM AutoCAD 10 01.03.2012 21:44

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы