[Димас]

Собственно сабж
Как можно получить список всех видов в чертеже?

[_Andre_]

Вроде бы функция (vports) возвращает список видовых окон и координат нижнего левого и верхнего правого углов.

[Димас]

немного не точно выразился.
нужно получить список всех Named Views (не знаю как будет в русской версии). т.е. список всех систем координат.

точнее список всех пользовательских систем координат.

Присоединяюсь к вопросу. Я в свое время задавал аналогичный вопрос и к сожалению никто подобного решения не предложил. Хотел иметь функционал просмотра поименованных видов по по кругу. Может кто что накопал за это время?

[Лентяй]

Сообщение от Димас немного не точно выразился. нужно получить список всех Named Views (не знаю как будет в русской версии). т.е. список всех систем координат. точнее список всех пользовательских систем координат.

Это не просто, а очень просто.

Код:

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

(vlax-for us (vla-get-UserCoordinateSystems
               (vla-get-ActiveDocument (vlax-get-acad-object)))
  (print (vla-get-name us)))

А вы хочите функций, то так.

Код:

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

(defun UCSLst ( / us_lst)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        ucss (vla-get-UserCoordinateSystems adoc))
  (vlax-for us ucss (setq us_lst (cons (vla-get-name us) us_lst)))
    (foreach n us_lst (print n))
);end

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

Код:

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

;|=============================================================================
*    Возвращает список имен Named Views активного документа.
* Если именованные виды не определены, вернет nil
*    Параметры вызова:
*	Нет
*    Примеры вызова:
(_kpblc-views-get-names)
=============================================================================|;
(defun _kpblc-views-get-names (/ adoc res)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for item (vla-get-views adoc)
    (setq res (append res (list (vla-get-name item))))
    ) ;_ end of vlax-for
  res
  ) ;_ end of defun

[VVA]

;;;Список элементов символьных таблиц АвтоКАДа
;;; - s- имя таблицы
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER"))

Код:

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

(defun tablelist (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r)))
)

(tablelist "VIEW")-список именованных видов

[Димас]

Сообщение от VVA ;;;Список элементов символьных таблиц АвтоКАДа ;;; - s- имя таблицы ;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER")) Код: [Выделить все] (defun tablelist (s / d r) (while (setq d (tblnext s (null d))) (setq r (cons (cdr (assoc 2 d)) r))) ) (tablelist "VIEW")-список именованных видов

спасибо огромное, насколько понял - tablelist это массив?
к сожалению на в лиспе я не особо, может подскажете возможно ли тоже самое на basic'е? ((

[fixo]

Будет корректней сохранять имя автора этого шедевра

Авторский вариант:

Код:

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

;Written By Michael Puckett.
(defun Table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)

~'J'~

[VVA]

>Fatty Пользуюсь давно, а имя не удосужился сохранить
Оплошность исправил

[VVA]

>Димас tablelist - это список.

Код:

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

(setq view_list (tablelist "VIEW")) ;_запоминаем им. виды в список
(foreach item view_list
(princ "\nИменованный вид : ")(princ item)
)
(princ "\nВсего :")(princ (length view_list))

К сожалению я на basice не особо.

[fixo]

Сообщение от VVA >Fatty Пользуюсь давно, а имя не удосужился сохранить Оплошность исправил

Кстати, очень интересный стиль у этого достопочтенного
джентльмена, не говоря уже об уровне
Можно посмотреть здесь (его nickname MP):
http://www.theswamp.org/forum/index.php?board=2.0

(нужна регистрация)

~'J'~

[Димас]

Спасибо буду разбираться)