|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
19.11.2021, 07:54 | #1 | |
Код ЛИСП для назначения активного стиля размеров
Регистрация: 14.12.2008
Сообщений: 1,079
|
||
Просмотров: 2466
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
(setvar "dimstyle" (cdr(assoc 3 (entget (car (entsel))))))
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Ну тогда так:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 14.12.2008
Сообщений: 1,079
|
Опять не работает, выдает ошибку:
Команда: (vla-put-activedimstyle (_> 2 (_> (vla-get-activedocument (vlax-get-acad-object)) (_> 3 (_> (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))) ((_> 4 ((_> (cdr (assoc 3 (entget (car (entsel))))) ((_> 5 ((_> ) ;_ end of vla-item (_> 6 (_> ) ;_ end of vla-put-ActiveDimStyle Выберите объект: ; ошибка: Слишком много фактических параметров Если комментарии убрать, то все работает! Спасибо! |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Ты про лисп вообще в курсе? Запускаешь vlide, и там в консоли пытаешь код. Потом, когда он отработает, оформляешь как отдельный lsp-файл с определением команды; обеспечиваешь автозагрузку кода; создаешь кнопку и на нее вешаешь вызов собственной команды.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 14.12.2008
Сообщений: 1,079
|
Получился оптимизированный код для кнопки:
Код:
----- добавлено через ~4 мин. ----- Я где-то читал, что надо в код кнопки в начало добавлять символы: C^C^ а потом код лисп и все должно работать |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Можно. Делай, разрешаю Только для этого придется идти путем, который я показал в #6.
В. Свет, "AutoCAD: язык макрокоманд и создание кнопок". Есть в местном Download. Советую перечитать.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 14.12.2008
Сообщений: 1,079
|
Хорошо, спасибо!
А как сделать чтобы функция выводила сообщение в командную строку: "Назначен активный стиль размеров "...""? А то функция получается работает в глухом режиме и не отчитывается о проделанной работе и эту работу надо проверять и тратить на это время. А если есть отчет то проверку можно не делать а просто поверить отчету функции и сэкономить на этом время! |
|||
|
||||
(progn (princ (strcat "\nНазначен активный стиль размеров \"" (getvar 'dimstyle) "\"")) (princ))
|
||||
|
||||
Регистрация: 14.12.2008
Сообщений: 1,079
|
Спасибо! А как объединить эти две строки кода:
(vla-put-activedimstyle (vla-get-activedocument (vlax-get-acad-object)) (vla-item (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))) (cdr (assoc 3 (entget (car (entsel))))))) (progn (princ (strcat "\nНазначен активный стиль размеров \"" (getvar 'dimstyle) "\"")) (princ)) в одну команду ЛИСП для кнопки? |
|||
|
||||
записать подряд
|
||||
|
||||
Регистрация: 18.12.2010
Сообщений: 5,047
|
|
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разнос налезающих друг на друга размеров по свободным местам | dextron3 | LISP | 8 | 06.11.2020 19:15 |
Изменение стиля размеров в конструкторе содержимого AutoCAD MEP 2021 | Malkidim | Вертикальные решения на базе AutoCAD | 4 | 19.10.2020 08:56 |
Не отображаются значения размеров. Помогите разобраться. | mkung | AutoCAD | 9 | 13.10.2017 13:38 |
Маштаб для автовыбора стиля размера | Positron | AutoCAD | 9 | 26.02.2010 13:15 |