[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 Если вопрос тупой, то заранее извиняюсь...

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

Функция *error* срабатывает при генерации ошибки, а не при прерывании выполнения стандартной команды AutoCAD'a.

[Makswell]

Так как же контролировать нажатие ESC, если выполняется команда?

Знаю, что это можно сделать через реакторы, но может есть решение попроще?

Может использовать проверку cmdactive?

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

Так а какая задача полностью? На http://www.arcada.com.ua/forum/viewtopic.php?t=1088 было немного обсуждения по поводу программного завершения команд.

[Alaspher]

Сформулирую немного иначе (может понятнее будет) - прерывание большинства (если не всех) встроенных команд автокада ESC является штатным и не вызывает ошибки, а прерывание функций автолиспа ESC'ом приводит к прерыванию фвыполнения выражений автолисп, что считается ошибкой.

Например, если прервать такие конструкции - ошибка будет:

Код:

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

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

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

А вот так не будет:

Код:

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

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

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

В первом случае, потому что vl-cmdf может штатно прерываться ESC'ом, а во втором потому, что собственно выполнение автолисп функции (test) уже закончено в момент работы команды line.

[Makswell]

Разобрался. Или думаю, что разобрался...
Просто не было должного понимания работы *error*. У Полещука целая страница про это написана, но сколько не перечитывал - нихрена не понял, а здесь всё разжевали в двух строках. Спасибо всем!

Насчет конкретной задачи.
Был макрос - поворот с копированием:

Код:

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

^C^C(defun c:M-Command () (ssget) (vl-cmdf "_.copy" "_pr" "" pause "@" "_.rotate" "_pr" "" "@" ));M-Command;

Здесь набор сначала копировался сам на себя, а потом поворачивался. Так вот, я вдруг заметил, что если вместо того, чтобы ввести угол, юзер вдруг нажимал ESC, то поворота не происходило, а копия набора оставалась и объекты нещадно множились, причем незаметно для юзера. Этот макрос оказался не просто плохим, но даже очень вредным!

С учетом вышеприведенных советов вместо макроса получился уже лисп, в котором все это дело отлавливается:

Код:

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

(defun C:M_CopyRotate (/ *error*)
  (defun *error* (msg)
    (vl-cmdf "_.undo" "_e")
    (vl-cmdf "_.undo" 1)
    (princ "\nВыполнение программы прервано пользователем!")
  )
  (setvar "cmdecho" 0)
  (vl-cmdf "_.undo" "_be")
  (ssget)
  (vl-cmdf "_.copy" "_pr" "" (getpoint "\nБазовая точка: ") "@" "_.rotate" "_pr" "" "@")
  (while (= (getvar "cmdactive") 1) (command pause))
  (vl-cmdf "_.undo" "_e")
)

PS Про конкретную задачу я написал, чтобы просто показать, как не надо писать макросы и как вместо этого писать программы. Может кому и пригодится.

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

"Вредность" не уменьшилась. У тебя набор не обнуляется, а их может быть создано не более 128 штук в течение одной сессии одного файла.

Код:

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

(defun C:M_CopyRotate (/ *error* selset _cmdecho)
  (defun *error* (msg)
    (setvar "cmdecho" _cmdecho)
    (vl-cmdf "_.undo" "_e")
    (vl-cmdf "_.undo" 1)
    (princ "\nВыполнение программы прервано пользователем!")
  )

(setq _cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (vl-cmdf "_.undo" "_be")
(setq selset  (ssget))
  (vl-cmdf "_.copy" "_pr" "" (getpoint "\nБазовая точка: ") "@" "_.rotate" "_pr" "" "@")
  (while (= (getvar "cmdactive") 1) (command pause))
  (vl-cmdf "_.undo" "_e")
  (setvar "cmdecho" _cmdecho)
  (princ)
)

Кроме того, есть експрессовская команда mocoro, чем она не угодила?

[Евгений А.]

2006: макрос

Код:

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

^P(vl-cmdf "_rotate" (ssget) "" pause "_c");

_____
Не устраивает?

[Makswell]

Сообщение от Евгений А. 2006: макрос Код: [Выделить все] ^P(vl-cmdf "_rotate" (ssget) "" pause "_c");

Не работает, у меня Автокад 2004...

to kpblc
Спасибо за поправки.
Про (ssget) я не знал. Кстати, сразу возник вопрос: а что будет, если наборов будет больше 128?
Набрал (repeat 129 (ssget)), но чё-то задолбался выделять, думаю, зачем мучаться, если есть знающие люди...

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

Сообщение от Makswell Про (ssget) я не знал. Кстати, сразу возник вопрос: а что будет, если наборов будет больше 128? Набрал (repeat 129 (ssget)), но чё-то задолбался выделять, думаю, зачем мучаться, если есть знающие люди...

В 129 раз вернет nil вместо набора. Поэтому после использования набора следует его "обниливать" (т.е. присваивать nil).

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

Ну можно было добиться аналогичного эффекта, сделав:

Код:

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

(repeat 129 (ssget "_X"))

После превышения ограничения в 128 штук ни один набор больше создать будет невозможно. Я один раз словил, с тех пор стараюсь поаккуратнее

[Alaspher]

Сообщение от Makswell Набрал (repeat 129 (ssget)), но чё-то задолбался выделять, думаю, зачем мучаться, если есть знающие люди...

В таком варианте - ничего плохого быть не должно, поскольку созданный набор не сохраняется. А вот так:

Код:

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

(progn (setq test nil) (repeat 129 (setq test (cons (ssget "_X") test))))

ошибку (не nil) можно лицезреть.

Лиспик, я-п переделал как-то так:

Код:

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

(defun c:m_copyrotate (/ selset _cmdecho point good)
    (if (and (setq selset (vl-catch-all-apply (function ssget)))
             (not (vl-catch-all-error-p selset))
             (setq point (vl-catch-all-apply
                             (function getpoint)
                             '("\nБазовая точка <Выход>: ")
                         )
             )
             (not (vl-catch-all-error-p point))
        )
        (progn (setq _cmdecho (getvar "cmdecho"))
               (setvar "cmdecho" 0)
               (vl-cmdf "_.undo" "_be" "_.copy" "_pr" "" point "@" "_.rotate" "_pr" "" "@")
               (princ "\nУгол поворота: ")
               (setq good (while (not (zerop (getvar "cmdactive"))) (vl-cmdf pause)))
               (vl-cmdf "_.undo" "_e")
               (if (not good)
                   (progn (vl-cmdf "_.undo" 1)
                          (princ "\nВыполнение программы прервано пользователем!")
                   )
               )
               (setvar "cmdecho" _cmdecho)
        )
    )
    (princ)
)

И от переопределения *error* можно избавиться и от нештатных прерываний защититься.

[AMATOP]

Здравствуйте!
К сожалению, коротко не выйдет. Поскольку обдумав суть вопроса и внимательно прочитав всю ветку, пришел к выводу, что нужно описывать и условия задачи, которая мотивировала меня напрячься в отношение *error*.
Итак, цитирую Полещука:

Получает в сбойных ситуациях от системы AutoCAD строку с некоторым сообщением и обрабатывает ее (обычно выводит разъясняющее сообщение) (*error* <сообщение>) Аргумент - текстовая строка.

Не могу понять как ею пользоваться! Где и как вставлять в код, не зная когда эта сбойная ситуация настанет? И что за (msg) постоянно присутствующее в случае переопределения этой функции? Если не в тяжесть, помогите тупику выйти из тупика!
Теперь о самой задаче (в принципе факультативная информация).
Есть куча 3d solid-ов. Хочу отсеять все НЕ "Box"-ы:

Код:

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

 (if dutyob
  (setq dutyob (entnext dutyob))
  (setq dutyob (entnext))
)
(vl-load-com)
(setq zna4enie (vlax-get-property (vlax-ename->vla-object dutyob) 'SolidType))
; дальше не важно

И все бы хорошо, но вот , скажем в случае обращения к остатку "Box"-а после его обработки стандартной "Slice" упираюсь в:

; error: Automation Error. Description was not provided.

Читал Полещука далее. Загорелся vl-exit-with-value, но на "ура" тоже не выходит. Такие дела...
Спасибо, что дочитали до конца.

[gomer]

Сообщение от AMATOP Загорелся vl-exit-with-value

Забудьте про эту функцию, пока, загоритесь лучше vl-catch-all-apply

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

Как один из вариантов: http://autolisp.ru/2009/09/13/error-catch/

[Лиспер]

Добавлю: можно предварительно проверять наличие свойства (vlax-property-available-p)

[AMATOP]

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

Код:

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

 (vl-load-com)
(setq object (car (entsel)))
(vlax-property-available-p (vlax-ename->vla-object object) 'Solidtype)

И указываю подопытный объект - срезанный slice-ом BOX.
Консоль выдает:

<Entity name: 7ffffb05d30> T _$

Заметьте - true!!!
А теперь все то же самое, только с помощью:

Код:

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

 (vl-load-com)
(setq object (car (entsel)))
(vlax-get-property (vlax-ename->vla-object object) 'Solidtype)

Ну и было бы странно, если бы произошло чудо:

<Entity name: 7ffffb05d30> ; error: Automation Error. Description was not provided. _$

Может я чего то не учитываю?!

[AMATOP]

Вынужден опять надоедать почтеннейшему обществу.
Все о той же ошибке. Ведь то что ее обработать можно - сомнений нет. Факты:

Код:

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

 (vl-load-com)
(vlax-dump-object (vlax-ename->vla-object (car (entsel))))

и в консоли:
...
; SolidType (RO) = Ошибка
...
Каким образом не происходит остановка выполнения кода?

[Лиспер]

Как я понимаю, SolidType "срабатывает" только для фигур, созданных изначально средстваи AutoCAD: box, torus, cylinder etc. После выполнения любой операции над твердым телом это свойство "уничтожается".
А что код не останавливается - ну, значит, так дамп написан...
---
Добавлено:
Для выполнения задачи "Есть куча 3d solid-ов. Хочу отсеять все НЕ "Box"-ы" я б, наверное, использовал нечто типа:

Код:

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

(defun test (/ ss)
  (if (= (type (setq ss (vl-catch-all-apply
                          (function
                            (lambda ()
                              (ssget '((0 . "3DSOLID")))
                              ) ;_ end of lambda
                            ) ;_ end of function
                          ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (vl-remove-if
      (function
        (lambda (x / tmp)
          (setq x (vlax-ename->vla-object x))
          (or (not (vlax-property-available-p x 'solidtype))
              (vl-catch-all-error-p (setq tmp (vl-catch-all-apply (function (lambda () (vla-get-solidtype x))))))
              (not (member (strcase tmp) '("BOX" "ЯЩИК")))
              ) ;_ end of or
          ) ;_ end of lambda
        ) ;_ end of function
      (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      ) ;_ end of vl-remove-if
    ) ;_ end of if
  ) ;_ end of defun

В результате получишь список ename-представлений солидов, "которые точно боксы".

[AMATOP]

Спасибо, сейчас же буду разбираться.