[studentarh]

В Автокаде сохраняется ввод (последняя введенная команда, координаты нескольких последних точек, указанных на чертеже). Как получить этот ввод средствами autolisp (для использования в программе)?

[Дима_]

Сообщение от mamuk хотя бы чтоб объект работал пока сам lisp работает?

можно что-то подобное при помощи реакторов.

[mamuk]

Попытался представить чего автор хочет, вот подумал что инструмент в его понимании это некий объект который формируется с помощью программы например Лисп становится статическим блоком и его надо отредактировать с помощью того же лиспа, а чтоб его отредактировать нужны прежние введенные данные, о которых говорил автор.

[mechos]

Понимаю, что рискую быть названным некропостером, но всё-же не вижу смысла создавать целую новую тему и спрошу здесь:
Есть ли возможность через макросы или lisp ввести еще раз уже введенную в команде точку именно в процессе выполнения команды ?

Объясняю, зачем мне это нужно: Есть команда Rotate, она запрашивает базовую точку, потом опции [Copy][Reference] и при выборе референс - начальный и желаемый угол. Угол я задаю графически между направлениями линий, причем в 90% случаев первая линия начинается как раз с той базовой точки, что я выбирал в начале команды.
То есть хотелось бы добиться поведения команды rotate, как в Архикаде, если кто в курсе (выделяем объект, нажимаем кнопку/хоткей команды Rotate - она уже по-умолчанию идет с опцией Reference и запрашивает опорный и конечный угол, выделяем точку вокруг которой крутить, далее - "тык" откуда крутить и "тык" куда - Всё !)

По-идее, экономия всего в один клик, но очень назойливый..

Макросы предпочтительнее, но скорее всего через них это невыполнимо..
Даже через лисп - с ходу не понимаю, как получить данные о координатах этой уже введенной точки (точка введена, но никакого примитива она не построила и координаты нужно получить, находясь еще в действующей команде rotate).
Предполагаю, что задача может быть решена средствами .NET, но это для меня пока совсем незнакомая среда..

[gomer]

так?

Код:

[Выделить все]

 (if (and (setq ss (ssget))
	 (setq pt (getpoint "\nБазовая точка: "))
	 (setq an (getangle pt "\nБазовый угол: ")))
	   (command "_rotate" ss "" pt "_r" (/ (* an 180.0)pi) pause))

[mechos]

Да ! Именно так. Спасибо огромное !

Не с той стороны я пытался зайти и про существование "getangle" забыл совершенно

[VVA]

Сообщение от mechos Макросы предпочтительнее, но скорее всего через них это невыполнимо.

Я бы так не сказал. Можно это забить на кнопку

Код:

[Выделить все]

(command "_rotate" (ssget) "" PAUSE "_r" "@" PAUSE PAUSE)

[mechos]

Сообщение от VVA Я бы так не сказал. Можно это забить на кнопку Код: [Выделить все] (command "_rotate" (ssget) "" PAUSE "_r" "@" PAUSE PAUSE)

Ухты ! Вообще прекрасно ! Интересный ход с собачкой, спасибо .

[gomer]

имхо, макросы -- это то, что работает в ЛТ, если применяются лисп-выражения, то лучше использовать все преимущества лиспа

[mechos]

Сообщение от gomer имхо, макросы -- это то, что работает в ЛТ, если применяются лисп-выражения, то лучше использовать все преимущества лиспа

Ну для меня разница еще и в том, что при работе на нескольких разных компьютерах, не объединенных сетью, надо следить не только за переносом cui файлов, но еще и не забывать держать на всех компах все актуальные *.lsp файлы, поэтому предпочитаю чтобы lsp файлов было как можно меньше..

[Эдуард]

Привет.

Сообщение от Александр Ривилис Нет. Во всяком случае на lisp'е ты к ним доступа не получишь.

Не согласен.
1.Создаем Vlr-SysVar-reactor
2.Пишем функцию отклика на изменение переменной Lastpoint
3.Записываем в словарь или объект координаты точки (далее по желанию - можно добавить дату и время указания , хендл примитива (если он создан) и т.д.)
Основной вопрос - А зачем это надо ?

[samos]

Пожалуйста, подскажите. Не могу врубиться.
Хочу чертить ломанную линию:
(vl-cmdf "_.line")
(vl-cmdf pause)
В этот момент ожидается щелчок мышью.
Делаю щелчок.
Как определить координаты точки щелчка?
Это необходимо для того, чтобы проверить привязку к другим примитивам и принятия решения - чертить или нет

[Кулик Алексей aka kpblc]

(getvar "lastpoit"), кажется

[samos]

Работает. Спасибо!