[Alexg-12]

Вопрос в следующем:
В LISP не проблема перед командой "прямая" включить нужный слой. Но как потом выйти из этой команды, с возвращением предыдущего слоя, ибо я не знаю, как эти команды завершаются. Команда прямая выполняется до тех пор, пока пользователь не нажмет ESC или Enter. Но при этом, управление не возвращается в наш LISP файл и поэтому я не знаю как вернуть предыдущий слой.
Спасибо.
Подобную тему искал - не нашел.

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

Код:

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

 (vl-load-com)

(defun c:dwg-xline (/ adoc sysvar layer)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq layer  "ИмяСлоя"
        layer  (if (not (vl-catch-all-error-p
                          (vl-catch-all-apply
                            (function
                              (lambda ()
                                (vla-item (vla-get-layers adoc) layer)
                                ) ;_ end of lambda
                              ) ;_ end of function
                            ) ;_ end of vl-catch-all-apply
                          ) ;_ end of vl-catch-all-error-p
                        ) ;_ end of not
                 layer
                 (vla-get-name (vla-add (vla-get-layers adoc) layer))
                 ) ;_ end of if
        sysvar (mapcar
                 (function
                   (lambda (x / tmp)
                     (if (setq tmp (getvar (car x)))
                       (progn
                         (setvar (car x) (cdr x))
                         (cons (car x) tmp)
                         ) ;_ end of progn
                       ) ;_ end of if
                     ) ;_ end of lambda
                   ) ;_ end of function
                 (list (cons "clayer" layer))
                 ) ;_ end of mapcar
        ) ;_ end of setq
  (vl-catch-all-apply
    (function
      (lambda ()
        (command "_.xline")
        (while (/= (getvar "cmdactive") 0) (command pause))
        ) ;_ end of LAMBDA
      ) ;_ end of function
    ) ;_ end of VL-CATCH-ALL-APPLY
  (foreach item sysvar
    (setvar (car item) (cdr item))
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Alexg-12]

Спасибо!
Не давно занимаюсь LISP'ом, хотелось бы понять, как работает. Не могли бы вы для расписать подробные комментарии построчно.
Пытался разобраться сам. Не получилось.
В частноси не понятно, как работает следующая конструкция:
(if (not (vl-catch-all-error-p
(vl-catch-all-apply
(function
(lambda ()
(vla-item (vla-get-layers adoc) layer)
) ;_ end of lambda
) ;_ end of function
) ;_ end of vl-catch-all-apply
) ;_ end of vl-catch-all-error-p
) ;_ end of not
layer
(vla-get-name (vla-add (vla-get-layers adoc) layer))
);_ end of if
Дальше пока не разбирался.
Спасибо!

[Дима_]

Начни отсюда - если останутся вопросы, то, для начала, там и пиши.

[gomer]

Сообщение от Alexg-12 В частноси не понятно, как работает следующая конструкция:

элементарно, если слой с заданным именем не существует, не существует, то создаем его