| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Цитата:
^C^C^P_.area;_Object;\^C(setq txt (/(getvar "AREA")1e6)(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) 2 знака после запятой ^C^C^P_.area;_Object;\^C(setq txt (atof(rtos(getvar "AREA")2 2))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) |
||||
|
||||
сети Регистрация: 03.11.2008
Московия*
Сообщений: 5,780
|
У вас скобок перебор, а в коде макрокоманды наоборот.
Цитата:
^C^C^P_.area;_Object;\^C(setq txt (atof(rtos(getvar "AREA")2 2)))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) |
|||
|
||||
|
||||
|
||||
Регистрация: 24.05.2012
Сообщений: 15
|
|
|||
|
||||
|
||||
|
||||
Регистрация: 29.03.2018
Сообщений: 35
|
[quote=koMon;1733509]Д.д.б.)
^C^C^P_.area;_Object;\^C(setq txt (rtos(getvar "AREA")2 2))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ)[/ А можно как-то сделатъ чтобы в конце единицы показывал ? Спасибо, класная штука ----- добавлено через ~4 мин. ----- А вот так же проставитъ длину полилини можно? |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
думаю можно так
^C^C^P_.area;_Object;\^C(setq txt (strcat(rtos(getvar "AREA")2 2)" Единицы"))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) и так, возможно ^C^C^P_.list;;\^C(setq txt (strcat(rtos(getvar "PERIMETER")2 2)" Единицы"))(graphscr)(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) |
||||
|
||||
Регистрация: 29.03.2018
Сообщений: 35
|
Цитата:
На линию почему-то не проставляет ее длину |
|||
|
||||
площадь или длину?
Для ПОЛИЛИНИИ и др. примитивов, для которых команда List считает периметр! В остальных случаях последний посчитанный периметр. ^C^C^P_.list;_si;\^C(graphscr)(setq txt (strcat(rtos(getvar "PERIMETER")2 2)" Единицы"))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) |
||||
|
||||
Цитата:
^C^C^P_.area;_Object;\^C(setq txt (strcat(rtos(*(getvar "AREA")1e-6)2 2)" кв.м"))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) длина ^C^C^P_.list;_si;\^C(graphscr)(setq txt (strcat(rtos(*(getvar "PERIMETER")1e-3)2 2)" м"))(princ "Укажите точку")(command "_text" pause "" "" txt)(princ) |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Это в LT работать не будет - используются лисповые конструкции.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 09.09.2017
Гомель
Сообщений: 19
|
Подскажите, пожалуйста, как макрокомандой можно изменить текстовый стиль и масштаб аннотаций, запустить лисп, а после завершения его работы вернуть текстовый стиль и масштаб аннотаций на установленные по умолчанию? Пробовал по-всякому, в командной строке либо ничего, либо - слишком много аргументов.
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Запоминаешь значения системных переменных, устанавливаешь нужные, выполняешь лисп, восстанавливаешь исходные значения переменных. В чем вопрос-то?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Мои динамические блоки | Shoorup | Динамические блоки | 2713 | 21.04.2011 23:34 |
Повторение выполнения макрокоманды по циклу. КАК? | Kostinok | AutoCAD | 12 | 05.12.2007 15:40 |
Мои проекты | Vova | Разное | 10 | 08.10.2007 23:18 |
Мои палитры инструментов на соседний компьютер | Pave1 | AutoCAD | 4 | 27.06.2006 09:45 |