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

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

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

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

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

Код:
[Выделить все]
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
Просмотров: 518
Размер:	19.3 Кб
ID:	192805  

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

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


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


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


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

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


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

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

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


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