[Click-Clack]

То есть узнать, что скрывается под записью *РАЗЛИЧНЫЕ* в строке свойств. Какой список типов линий, какой список слоев относится к набору объектов.

[sertor]

А этой командой пользуетесь?

[Хмурый]

в простом AutoCAD'е только командой _list выделенных объектов

[Click-Clack]

А в каком непростом можно?
А то _list это как-то слишком длинно - не удобно, в смысле слишком длинный список без группировки по одинаковым свойствам

----- добавлено через ~14 мин. -----
Еще интересует, а можно ли получить список объектов слоя и в каком пространстве эти объекты находятся (модель, лист, блок)

[kp+]

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

Сообщение от Click-Clack Еще интересует, а можно ли получить список объектов слоя и в каком пространстве эти объекты находятся (модель, лист, блок)

Именно такой запрос - только программно.

[maratovich]

Сообщение от Click-Clack Еще интересует, а можно ли получить список объектов слоя и в каком пространстве эти объекты находятся (модель, лист, блок)

Кое что можно выдрать при помощи:
_dataextraction

kp+ опередил

[Click-Clack]

Что то типа такого

Код:

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

 (vl-load-com)
 (defun _kpblc-conv-selset-to-ename (selset / tab item)
(cond
	((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

(defun c:clcl-prop ()
 (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
	(progn
		(foreach item (_kpblc-conv-selset-to-ename (ssget)) (car (nth 7 entget (item)))
		)
	)
		 (vla-endundomark adoc)
);_ end of defun)

Только почему не работает?
И как сгруппировать потом список чтобы не было повторяющихся записей?

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

Во-первых, разберись со скобками. Во-вторых, почему опрашивается именно 8 элемент, а не, к примеру, 1? Или 164?

[Click-Clack]

Ну потому что чаще всего интересует именно список слоев на которых расположены объекты. а со скобками - перед entget вроде не хватает, но все равно не работает

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

Имя слоя - это группа 8. А она совсем необязательно именно идет восьмой.

Код:

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

 (vl-load-com)

(defun c:clcl-prop (/ selset _kpblc-conv-selset-to-ename res item)

  (defun _kpblc-conv-selset-to-ename (selset / tab item)
    (cond
      ((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget)
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (foreach item (_kpblc-conv-selset-to-ename selset)
        (if (not (member (setq item (cdr (assoc 8 (entget item)))) res))
          (setq res (cons item res))
          ) ;_ end of if
        ) ;_ end of foreach
      (princ (apply (function strcat)
                    (cons "\Layers for selected object(s) : "
                          (mapcar
                            (function
                              (lambda (x)
                                (strcat "\n\t\"" x "\"")
                                ) ;_ end of lambda
                              ) ;_ end of function
                            (vl-sort res '<)
                            ) ;_ end of mapcar
                          ) ;_ end of cons
                    ) ;_ end of apply
             ) ;_ end of princ
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun)

[Click-Clack]

Теперь все могут смотреть любые списки свойств объектов)))

[posetitel]

а как посмотреть другие свойства, не слои, а, например, длины линий?