[BetinS]

Здравсвуйте!

Пытаюсь написать функцию для проставления цепочки размеров в плоскости проходящей через заданную точку параллельно одной из координатных плоскостей.

Проблема: после завершения команд измерений надо вернуться в исходную систему координат. Как это сделать без использования функции command или без использования реактора команд?? Или используя?

Все это для Autocad 2005.

[Profan]

Может, воспользоваться именованными ПСК (UCS)?

[BetinS]

Как к ним обратиться из функции вызываемой реактором?? Или функция какая есть (искал - не нашел)?? Подробней, если можно.

Вообще, смена ПСК - частный случай. Хочу понять, как в принципе выполнить команду по завершении предыдущей. Программно, естетственно.

[Do$]

Не совсем понял, зачем реакторы? Запомнил состояние СК до выполнения измерений, измерил, восстановил СК.

[BetinS]

так это три кнопки нажимать!
В этом случае и проги-то не надо никакой. все есть уже в акаде.

Мне кажется, я не понимаю чего-то основного.. Поэтому здесь и пишу.

Сообщение от Do$ Запомнил состояние СК до выполнения измерений, измерил, восстановил СК.

Как это сделать одной функцией?

[Do$]

Ага, кажется начинаю понимать. Тебе нужна функция типа:

1. запускаем ее, она запоминает текущую СК
2. выполняем комманду (или несколько комманд?) при которой(-ых) меняется СК
3. по завершению комманды (-д) СК восстановливается (реактор на завершение комманды)

Если это так, то те действия, на которые планируется реактор, нельзя в программу загнать?

[BetinS]

Дадададада.
1.Переходим в новую пск
2.В новой пск задаем первый размер, позиционируем его.
3.Продолжаем размерную цепь. завершаем.
4.Возвращаемся в предыдущую пск (даже запоминать не надо, акад ее сам помнит).

Реактор я планирую на завершение команды. загнать в программу - это как?

[Do$]

Я имел в виду рисование размеров в самой программе. Возможно?
Вообще, пример чертежа, скриншоты преобразований и др. наглядности не помешали бы...

[BetinS]

Суть задачи - передать управление из программы пользователю, чтоб он размеры проставил, а потом вернуть управление программе, чтоб она вернула ПСК.

Код:

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

(defun ucprev (reac cname / _ad )
  (vlr-remove cmr)
  ;(command "_ucs" "_p") но так НЕЛЬЗЯ, к сожалению
 )

(defun reac0115 ( / )
 (setq cmr (vlr-command-reactor "hallo, world!"
  (list '(:vlr-commandEnded . ucprev)))
 )
)

(defun c:dimPYZ
        (/ p1 p2)
    (setq p1 (getpoint "Укажите 1-ю точку")
	 p2 (getpoint "Укажите 2-ю точку")
    )
  (command "_ucs" "_n" "_3p" p1 (3polar p1 0 -1 0) (3polar p1 0 0 1)
	     "_dimlinear" (trans p1 0 1) (trans p2 0 1) (3polar (trans p1 0 1) 0 80 0)
  )
  (reac0115)
  (command "_dimcontinue)
  
)

[Александр Ривилис]

А как на счет переменной CMDACTIVE? Не думал?

[BetinS]

Сейчас изучу вопрос. Судя по звучанию - то, что нужно. Спасибо

[Jonas]

Попробовал в сом-строке.
Пишет - CMDACTIVE = 1 (только чтение)

Естественно, как исползовать?

[Александр Ривилис]

Сообщение от Jonas Естественно, как исползовать?

А описание переменной читать не пробовал?

[CB]

Смотри здесь

[480725]

Сообщение от BetinS Суть задачи - передать управление из программы пользователю, чтоб он размеры проставил, а потом вернуть управление программе, чтоб она вернула ПСК.... .... (reac0115) (command "_dimcontinue)

Вместо этих операторов в цикле до пустого ответа поставить запрос конца очередной размерной линии и, при непустом ответе, построение очередного размера. По выходе из цикла вернуться в предыдущую ПСК. И никаких реакторов не потребуется. Если речь только о размерной цепи.