[TheBuTeK]

Уважаемые программисты, помогите кодом, пожалуйста!
Имеется файл, содержащий порядка 300 слоев, из которых половина включена, а половина выключена.
Требуется сделать распечатку этого файла, последовательно включая отключенные слои по одному, а затем отключая их после распечатки чертежа.
Сам чертеж выполнен в пространстве модели.
Возможно ли как-то автоматизировать процесс:
включил слой, распечатал модель в границах, отключил слой, включил следующий и т.д.
Заранее благодарю за помощь.

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

В порядке бреда:

Код:

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

(defun try-to-plot (/ *error* adoc lst)
  (defun *error* (msg)
    (vlax-for item lst
      (vla-put-layeron item :vlax-false)
      ) ;_ end of vlax-for
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vlax-for item (vla-get-layers
                   (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
                   ) ;_ end of vla-get-layers
    (if (= (vla-get-layeron item) :vlax-false)
      (setq lst (cons item lst))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (foreach item lst
    (vla-startundomark adoc)
    (vla-put-layeron item :vlax-true)
    (command "_.plot")
    (while (/= (logand (getvar "cmdactive") 31) 0)
      (command pause)
      ) ;_ end of while
    (vla-put-layeron item :vlax-false)
    (vla-endundomark adoc)
    ) ;_ end of foreach
  (princ)
  ) ;_ end of defun

не тестировал совсем. Так что файл лучше всего сначала сохранить

[TheBuTeK]

Алексей, тысяча извинений.
Но что-то не пойму, как пользоваться.
То есть загрузил программу через Tools->Autolisp->Load Application.
AutoCAD ошибок не выдал, но при попытке вызвать функцию try-to-plot сообщает о том, что такая функция не найдена. Может, аргументы какие надо задать?
Ну не шарю я в Лиспе, но теперь, похоже, придется разбираться.

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

Черт, дурная привычка у меня есть - не создавать функции, вызываемые с ком.строки
Вызывай так:

Код:

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

Command: (try-to-plot)

Или попробуй такой код:

Код:

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

(defun c:try-to-plot (/ *error* adoc lst)
  (defun *error* (msg)
    (vlax-for item lst
      (vla-put-layeron item :vlax-false)
      ) ;_ end of vlax-for
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vlax-for item (vla-get-layers
                   (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
                   ) ;_ end of vla-get-layers
    (if (= (vla-get-layeron item) :vlax-false)
      (setq lst (cons item lst))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (foreach item lst
    (vla-startundomark adoc)
    (vla-put-layeron item :vlax-true)
    (command "_.plot")
    (while (/= (logand (getvar "cmdactive") 31) 0)
      (command pause)
      ) ;_ end of while
    (vla-put-layeron item :vlax-false)
    (vla-endundomark adoc)
    ) ;_ end of foreach
  (princ)
  ) ;_ end of defun
(princ "\nДля запуска наберите в ком.строке TRY-TO-PLOT")

[TheBuTeK]

А какой принтер использует функция?
Она находит первый принтер в списке? Но точно не тот, что стоит по умолчанию. А потом при попытке узнать "?" список принтеров зацикливается.

[TheBuTeK]

Все в порядке!
Просто необходимо для модели в диспетчере параметров листов задать требуемый принтер по умолчанию.
И естественно, на запрос детальной настройки печати для каждого листа отвечать "нет".
Огромное спасибо!