[Savuk]

Подскажите пож. как можно программно удалить все layout в открытом чертеже?

[Makswell]

Код:

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

(progn
  (vl-load-com)
  (vla-Startundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (vlax-for s (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
    (if	(not (= (vla-get-Name s) "Model"))
      (vla-Delete s)
    )
  )
  (vla-Endundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (princ)
)

[Savuk]

Большое спасиба!
А то я себе уже все мозги изсушил а ничего не получалось!

[VVA]

Без использования vla методов

Код:

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

(command "_UNDO" "_Begin")
(foreach layout (LAYOUTLIST)
  (command "_layout" "_D" layout)
  )
(command "_UNDO" "_End")

[Chapter]

А удалить все кроме текущего? так можно сделать?

Или все кроме выделенных? а так можно сделать?

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

Все кроме текущего можно удалить и так:

Код:

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

(defun test (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for s (vla-get-layouts adoc)
    (if (not (equal (vla-get-activelayout adoc) s))
      (vl-catch-all-apply
        (function
          (lambda ()
            (vla-delete s)
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Chapter]

Супер! Работает.