| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
20.11.2019, 10:00 | #1 | |
Как увеличить значение координаты Х в 2 раза при выводе на экран.
Регистрация: 19.11.2019
Сообщений: 10
|
||
Просмотров: 1919
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Умножь p1y на 2, если так надо. Хотя при чем тут радиус и диаметр - не особо понятно: указываешь одну точку, потом куда ставить выноску - и ни слова про диаметры / радиусы.
Может, вообще надо размеры использовать? ----- добавлено через ~3 мин. ----- Ну и так, для приколу: Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Попробуй включить пошаговую отладку. У меня код срабатывает (конечно, учитывая его недоработанность)
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 19.11.2019
Сообщений: 10
|
Если честно, не представляю как вкючить пошаговую отладку.
И ещё вопрос...у меня ACAD 2019 - это может как-то повлиять? Если нет, то не мог бы объяснить как это все проверить, отладить и т.д.? Опишу то, что делал я...может в этом вся проблема, в моей криворукости. Я скопировал твой код и вставил его в новый документ в редакторе Visual Lisp удалив вручную номера строк. Затем сохранил. Загузил. В командной строке набрал XY2, указал искомую точку, затем точку выноски и ..... ничего. Ошибок никаких не выдает. Что делать? |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 19.11.2019
Сообщений: 10
|
Вообщем, работает, но как-то некорректно.
Если загрузить чертеж, подгрузить Lisp, вызвать функцию, то отображает координаты относительно нулевой точки. Но стоит только перетащить ситему координат на чертеж и повторно вызвать функцию, то координаты не отображаются. И при всем при этом значения "Х" в 2 раза не увеличиваются. Вот как-то так. У меня есть Lisp который работал в старой версии автокада 2014г. Может его отредактировать? (defun C:zg () (setq olderr *error* *error* macerr) (setq p1 (getpoint "\n ISTENEN NOKTA KORDINATI SECIN:") p2(getpoint p1 "\n ISTENEN KORDINATIN YERINI ISARETLEYIN...:") yaz(strcat "X=" (rtos (* 2 (cadr p1))) " Z=" (rtos (car p1))) ) (command "_dim1" "LEADER" p1 p2 ""(command yaz)) (setq *error* olderr) (princ) ) |
|||
|
||||
инженер (КМ) Регистрация: 30.10.2004
Красноярск
Сообщений: 3,826
|
Offtop: С помощью чего ты сделал эту гифку?
__________________
Делай хорошо, плохо само получится. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Krieger, Offtop: Старая Camtasia.
А относительно какой точки должны отображаться координаты запрошенной? И, самое главное - почему? Ага, я и не делал. Я вообще-то показал просто другой метод и подход. Находишь строку Код:
Код:
Код:
Цитата:
----- добавлено через ~5 мин. ----- Добавил обработку ПСК. Правда, не связывался с вариантом поворота - только перенос.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 19.11.2019
Сообщений: 10
|
Алексей, давай по самому простому (на мой взгляд) пути.
Ты можешь изменить мой исходный код? По логике там нужно прописать еже одну строчку, где введем новую переменную, например D = STDY*2? А потом эту переменную подставим в (setq COORDN (strcat "X= " N )) ? Тогда в результате мы получим искомый результат? Или это не возможно? |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Я ж в самом начале предлагал.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
|
||||
|
||||
Maloy, Так?
Код:
__________________
Как использовать код на Лиспе читаем здесь Последний раз редактировалось VVA, 22.11.2019 в 10:04. |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Одну закрывающую скобку пропустил при копировании?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Ctrl-A->Ctrl-C->Ctrl-V
|
||||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как просчитать координаты всего чертежа, зная координаты нескольких точек | Barsum | AutoCAD | 6 | 16.02.2018 09:32 |
Почему не отображается значение масштабного коэффициента в AutoCAD 2013 при вызове команды Масштаб? | Vlad_black | AutoCAD | 12 | 22.08.2016 11:15 |
Чему принять значение жесткости конечной связи №51 при расчете фундамента на упругом основании? (SCAD 21.1) | Emc | SCAD | 4 | 13.08.2016 20:44 |
Как в динамическом блоке вставить значение из атрибута блока в значение параметрического размера(внутри блока)? | swcats | Динамические блоки | 3 | 22.07.2011 08:50 |