[Nike]

Подскажите, пожалуйста, как средствами LISP узнать, сколько чертежей открыто в AutoCAD?
Спасибо.

[Do$]

Можно так:

Код:

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

(defun doc-lst (/ lst)
  (vlax-for item (vla-get-Documents (vlax-get-acad-object))
    (setq lst (cons item lst))
  ) ;_ end of vlax-for
) ;_ end of defun

(length (doc-lst))

[Nike]

Do$,

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

Можно проще:

Код:

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

(vla-get-count (vla-get-documents (vlax-get-acad-object)))

[Nike]

Сообщение от Кулик Алексей aka kpblc Можно проще:

ps давайте быстрее еще проще, пока не исправил

[Do$]

Сообщение от Nike ps давайте быстрее еще проще, пока не исправил

Это уже вряд ли