Получение координат из строки состояния

V.Khomyakov · 09.07.2008, 05:16

Доброго времени суток всем!
Необходимо получать значение последней указанной точки после команды _rotate. Если задавать угол поворота двумя точками, вот вторая точка и нужна.
LASTPOINT не работает, выдает предпоследнюю точку.
Есть мысль брать эту координату из строки состояния. Но как?
Подскажите, плиз, где копать.

fixo · 09.07.2008, 07:48

После команды добавь следующие строки:

Код:

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

  (setq lastpick (grread 6))
  (setq lastp (cadr lastpick))

и будет тебе счастье

~'J'~

V.Khomyakov · 09.07.2008, 08:12

Попробовал. Работает. Спасибо.

fixo · 09.07.2008, 08:42

Можно попробовать и напрямую, типа:

Код:

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

(setq ent (entsel "\nSelect object:")
      en (car ent)
      pt1 (cadr ent)
      )
(command "_.rotate" en "" pt1 "_R" pt1 (setq pt2 (getpoint pt1)) "")

и точка pt2 всегда под рукой

~'J'~

V.Khomyakov · 09.07.2008, 09:19

первый вариант больше нравится, в нем вращается весь объект, а во втором варианте показывается только линия направления

09.07.2008, 05:16		#1
Получение координат из строки состояния V.Khomyakov IT, LISP, ACAD, LDD Иркутск Регистрация: 04.06.2008 Сообщений: 14 Доброго времени суток всем! Необходимо получать значение последней указанной точки после команды _rotate. Если задавать угол поворота двумя точками, вот вторая точка и нужна. LASTPOINT не работает, выдает предпоследнюю точку. Есть мысль брать эту координату из строки состояния. Но как? Подскажите, плиз, где копать.
Просмотров: 2756

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Получение текстового массива координат точек.	Камыч	AutoCAD	5	30.07.2007 12:28
2 системы координат в одном файле	SStas	AutoCAD	8	20.06.2007 10:22
Помощь по Лире	Серега М	Лира / Лира-САПР	52	28.05.2007 02:47
управление системой координат Автокад из Делфей	Владимир В	Программирование	12	27.04.2005 09:54
VBA и система координат	Ра	Программирование	3	10.12.2003 17:40