|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
21.04.2009, 10:44 | #1 | |
Как програмно установить толщину линий на VBA?
Ставрополь
Регистрация: 03.03.2006
Сообщений: 520
|
||
Просмотров: 7633
|
|
||||
Установить значение системной переменной CELWEIGHT в -3
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 03.03.2006
Ставрополь
Сообщений: 520
|
VVA а как задать ее програмно?
Наверно я несколько неправильно задал вопрос. Как програмно установить толщину для линий, так как если бы пользователь выбрал ее из списка в панели "Свойства". Сейчас я задаю ее так: Set lineObj = AMSpace.AddLine(StartPoint, EndPoint) lineObj.LineWeight = 30 lineObj.Update Но таким макаром она задается уже после построения, а надо устанавливать заранее для всех создаваемых. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Вроде так...
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Stanislavmg,
Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
acLnWt015 - это константа или перечисление, значение которой 015. А ты его передаешь как строку.
Нужно вместо LineWeght2="acLnWt015" как-то так LineWeght2=acLnWt015
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Что воспринимается как имя переменной?
Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 03.03.2006
Ставрополь
Сообщений: 520
|
VVA. Попробуйте запустить этот код.
Вы объявляете переменную LineWeght2 как целое, а присваиваете ей строку. Вылезет ошибка. Эта строчка почему-то не работает. Код:
Код:
Как програмно добраться до панели меню "свойства"? З.Ы. Как имя воспринимается константа acLnWt015. Все строковые значения заключаются в бэйсике в кавычки, ибо без них он воспринимает их как имя переменной. LineWeght2="acLnWt015" |
|||
|
||||
Цитата:
Из справки (выделено мной) Цитата:
Цитата:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Подставляй числа
acLnWt015 = 15 acLnWt030 = 30 acLnWt140 = 140 acLnWtByLwDefault = -3
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
А соответствующие библиотеки AutoCAD'a в проект импортированы?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Рифмоплетство. | Kryaker | Разное | 554 | 14.11.2023 11:59 |
Как програмно установить Enterprise cui ?? | Startrek | Программирование | 20 | 17.04.2009 14:27 |
как с помощью vba скопировать текст | vasyavip | Программирование | 13 | 30.10.2008 13:11 |
Юмор 2007 | Огурец | Разное | 1172 | 29.12.2007 11:16 |