[Makswell]

Никак не могу разобраться...
Я так понял функция *error* должна срабатывать при нажатии ESC. Но почему-то ,например, здесь:

Код:

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

(defun test (/ *error* pt1)
  (defun *error* (msg)
    (princ "\nбыла нажата ESC\n")
  )
  (setvar "cmdecho" 0)
  (princ "\nнажми ESC...")
  (vl-cmdf "_.line")
)

этого не просходит.
Хотя, например, здесь:

Код:

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

(defun test (/ *error* pt1)
  (defun *error* (msg)
    (princ "\nнажата ESC\n")
  )
    (setq pt1 (getpoint "\nУкажи точку или нажми ESC..."))
)

всё работает.
Т.е. получается *error* не срабатывает при прерывании команды автокада.
Вопрос: как контролировать нажатие ESC, если выполняется команда?

PS Если вопрос тупой, то заранее извиняюсь...

[Лиспер]

А ты ради интересу мой код запусти - тоже ошибки не будет

[AMATOP]

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

[Лиспер]

Там все просто: сначала формируется набор примитивов, он преобразовывается в список, и из списка уже исключаются объекты, у которых либо нет свойства SolidType, либо его невозможно получить, либо оно не равно ни "BOX", ни "ЯЩИК" (в локализованных версиях именно так обозвано, насколько я помню).