[DANZZ]

Как с помощью Lisp вытащить список всех слоев в данном чертеже и всех текстовых стилей? :?: и записать в переменные

[_Andre_]

Все слои

Код:

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

(defun get-all-layer (/ CUR_LAYER LIST_OF_LAYER )
  (setq list_of_layer (list (cdr (assoc 2 (tblnext "Layer" t)))))
  (while (setq cur_layer (tblnext "Layer"))
    (setq list_of_layer (append list_of_layer (list (cdr (assoc 2 cur_layer)))))
  ) ;_ end of while
)

Все текстовые стили

Код:

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

(defun get-all-textstyle (/ CUR_style LIST_OF_style )
  (setq list_of_style (list (cdr (assoc 2 (tblnext "style" t)))))
  (while (setq cur_style (tblnext "style"))
    (setq list_of_style (append list_of_style (list (cdr (assoc 2 cur_style)))))
  ) ;_ end of while
)

[Apelsinov]

Код:

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

(mapcar	(function (lambda (i / _list)
		    (VLAX-FOR i	(vlax-get-property
				   (vla-get-ActiveDocument
				    (vlax-get-acad-object)
				  )
				   i
				)
		      (setq _list
			     (cons (vla-get-name i) _list)
		      )
		    )
		  )
	)
	(list 'layers 'TextStyles)
)

возвратит список, состоящий из списка имен слоев и списка имен текстовых стилей.

[Елпанов Евгений]

Как альтернатива VLA-* ...

Код:

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

(defun lst-layer (i)
  ;(lst-layer  t)
  (if (setq i (tblnext "LAYER" i))
    (cons (cdadr i) (lst-layer nil))
  ) ;_  if
) ;_  defun
(defun lst-Style (i)
  ;(lst-Style  t)
  (if (setq i (tblnext "Style" i))
    (cons (cdadr i) (lst-Style nil))
  ) ;_  if
) ;_  defun

[Pilot]

Можно получать списки блоков, слоев, размерных и текстовых стилей, типов линий, подставив соотв. параметр.
Возвращает список.

Примеры вызовов:

Код:

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

(STtoL "LAYER")
(STtoL "LTYPE")
(STtoL "STYLE")
(STtoL "BLOCK")

Сама функция:

Код:

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

(defun STtoL (t1 / v1 l1 l2);Symbol Tabl to List
(if (setq v1 (tblnext t1 T))
   (progn
      (while v1 (setq l1 (cons (cdr (assoc 2 v1)) l1) v1 (tblnext t1)))
      (cond
         ((= (strcase t1) "BLOCK")
            (foreach v1 l1
               (if (and (not (TinT "*" v1));отсечка блоков размеров
                        (not (TinT "|" v1)));отсечка блоков ссылок
                  (setq l2 (cons v1 l2))))
            (setq l1 (reverse l2)))
      );cond
      (setq tmp0 nil)
      (reverse l1)) nil);if
);STtoL

[Profan]

Код:

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

(setq l_list (ai_table "LAYER" 0))

Код:

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

(setq t_list (ai_table "STYLE" 0))

[fixo]

Из бриллиантов лиспа:

Код:

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

; written by Michael Puckett.
(defun Table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (append r (list (cdr (assoc 2 d)))))
)
)
;Вызов
 (table "style")
 (table "layer") и тд

~'J'~

[CHILD_11]

так какую порекомендуете в итоге?
автокад 2015.
(хочу получить список всех слоев, что есть в чертеже, в виде текстового файла)

попытался использовать первый лисп, загрузил, пытаюсь вызвать командой "get-all-layer" пишет "неизвестная команда". что-то не так делаю?
_____
понял свою ошибку - не заключил в круглие скобки имя команды.
в итоге - выдало список слоев прямо в командной строке в кавычках. в другом виде, видимо, не получить?

[Сергей812]

потому что это функция, а не команды. Синтаксис функции в лиспе:

Код:

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

 (defun %имя функции% (%Аргументы% / %Локальные переменные%)
...
)

а команда должна иметь префикс c: и не иметь аргументов

Код:

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

 (defun c:%имя функции% ( / %Локальные переменные%)
...
)

[CHILD_11]

также смущает то, что слои не в алфавитном порядке... так и должно быть, или что-то не так делаю?

Сергей812, да, уже понял свою ошибку)

[Сергей812]

примените к результирующему списку vl-sort после цикла получения списка имен слоев

[CHILD_11]

vl-sort

- это тоже лисп?

я сделал "по-тупому": скопировал результат из командной строки в файл word. в нем произвел замену *" * на *"^p* (чтобы получить имя каждого слоя с новой строки). далее все выделил и вставил в файл excel, где благополучно отсортировал.

[VVA]

Сообщение от CHILD_11 также смущает то, что слои не в алфавитном порядке..

Сообщение от Сергей812 примените к результирующему списку vl-sort после цикла получения списка имен слоев

Похожая тема, с примерами Список всех слоёв