[alexmntmnk]

Продолжаю рабираться с блоками
Мне надо заменить атрибуты у всех блоков с name=my_bl или которые находятся в слое bl_layer
Для начала пробую прочитать эти свойства на одном блоке, который вытащил из списка и ни чего не выходит

Код:

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

  (vl-load-com)
  (setq acad_obj (vlax-get-acad-object))
  (setq active_document (vla-get-activedocument acad_obj))
  (setq blokList (vla-get-blocks active_document))
  (setq curBlock (vla-Item blokList 0));
  (setq LAYERNAME (vla-get-Layer curBlock))
  (setq p_name (vlax-get-property curBlock 'Name))

vla-get-Layer ругается "неизвестное имя: Layer"
vlax-get-property получаю "Model_Space"

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

У тебя путаница между вхождениями и определениями блоков.

[alexmntmnk]

Сообщение от Кулик Алексей aka kpblc У тебя путаница между вхождениями и определениями блоков.

а что не так?
получаю все блоки документа

Код:

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

(setq blokList (vla-get-blocks active_document))

получаю первый блок по индексу

Код:

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

(setq curBlock (vla-Item blokList 0))

[Сергей812]

что собираетесь править то - атрибуты в определениях блоков или все-таки уже вставленные блоки в чертеже с заполненными актуальной информацией атрибутами?

[alexmntmnk]

Сообщение от Сергей812 что собираетесь править то - атрибуты в определениях блоков или все-таки уже вставленные блоки в чертеже с заполненными актуальной информацией атрибутами?

на чертеже имеется n-кол-во блоков, из них у m-блоков необходимо изменить атрибуты.
Но чтобы их поменять, мне надо однозначно идентифицировать каждый блок.
Как выделить m-блоков из общего кол-ва n-блоков еще не знаю, но пока вижу два варианта
1. расположить все m блоков в отдельном слое, у меня так с текстовыми примитивами реализовано, но я пока не знаю как получить все блоки определенного слоя
2. если на первый вариант не найду решения то можно попробовать по именам блоков, например я заранее знаю, что эти блоки имеют имена bl_1, bl_2, ... этот ваориант хуже, т.к. на разных чертежах их будет разное кол-во и имена могут отличаться. Поэтому хотелось бы найти решение по первому варианту.

[Сергей812]

Сообщение от alexmntmnk на чертеже имеется n-кол-во блоков, из них у m-блоков необходимо изменить атрибуты.

значит, все-таки вставки блоков. Читайте по ssget, например Lee Mac или тут. Получаете набор вставок блоков по определенному фильтру и с ним работаете дальше. Таблица определений блоков в данном случае не нужна.

[alexmntmnk]

Сообщение от Сергей812 значит, все-таки вставки блоков. Читайте по ssget, например Lee Mac или тут. Получаете набор вставок блоков по определенному фильтру и с ним работаете дальше. Таблица определений блоков в данном случае не нужна.

Попробовал через ssget

Код:

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

(setq setBlock (ssget "_x" (list '(0 . "BLOCK") layer)))

в итоге получаю nil
Хотя с другими примитивами, типа TEXT, LINE все работает

[Сергей812]

Алексей же писал в другой ветке

Код:

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

 (entget (car (entsel)))

вставили в комстроку акада и выбрав примитив, посмотрели его дамп. А не подбирали бы на удачу) В данном случае INSERT будет, вставка блока же.

----- добавлено через ~8 мин. -----
и в фильтре у имени слоя dxf группа 8, а не просто значение слоя

[alexmntmnk]

Вот я получил набор блоков

Код:

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

(setq setBlock (ssget "_x" (list '(0 . "INSERT") layer)))

Подскажите как мне теперь перебрать блоки в этом списке, чтобы добрать до атрибутов каждого из них

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

Сообщение от alexmntmnk Вот я получил набор блоков

Не получил.

Сообщение от alexmntmnk теперь перебрать блоки в этом списке

Это не список, а набор. Его сначала надо преобразовать в список (на форуме решения были).

[alexmntmnk]

Сообщение от Кулик Алексей aka kpblc Это не список, а набор. Его сначала надо преобразовать в список (на форуме решения были).

Можно его сразу в цикле обработать

Код:

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

(setq setBlock (ssget "_x" (list '(0 . "INSERT") layer)))
(repeat (setq item (sslength setBlock))
    (setq curBlock (entget(ssname setBlock (setq item (1- item)))))
    (setq vla_obj (vlax-ename->vla-object curBlock)) ; переводим в vla-object
)

Но только не пойму как достучаться до атрибутов у примитива?
Попробовал преобразовать его в vla - получаю ошибку

[alexmntmnk]

Нашел на форуме код как получить список vla-объектов из набора

Код:

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

(defun lib:conv-pickset-to-list (value / item lst)
       (repeat (setq item (sslength value)) ;_ end setq
         (setq lst (cons (ssname value (setq item (1- item))) lst))
         ) ;_ end repeat
  lst
) 

(defun lib:conv-pickset-to-vlalist(selset) 
  (if selset 
    (mapcar 'vlax-ename->vla-object
            (lib:conv-pickset-to-list selset) 
            ))) ;_ end of defun

Пробую на основе этих функций вытащить vla-объект

Код:

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

(setq setBlock (ssget "_x" (list '(0 . "INSERT") layer))) ; Набор из блоков на слое
(setq lst-vla (lib:conv-pickset-to-vlalist setBlock))
(vlax-for i lst-vla
    (setq obj-name (vla-get-objectname i))
)

В итоге получаю ошибку

Код:

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

error: bad argument type: VLA-object collection:

[koMon]

Код:

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

 
(setq block_attributes_assoc_list nil)
(vlax-map-collection (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
	'(lambda (object)
	 	(cond
			(
				(and
			 		(= "AcDbBlockReference" (vla-get-objectname object))
					(minusp (vlax-get object 'hasattributes))
				)
			 		(setq block_attributes_assoc_list (append block_attributes_assoc_list
										   (list
										   	(list (vla-get-effectivename object)
											      (mapcar '(lambda (attribute) (list (vla-get-tagstring (setq attribute_object attribute))
															         (vla-get-textstring attribute)
																 attribute
														           )
												       )
												       (vlax-invoke object 'getattributes)
													 
											      )
											)
										   )
									   )
					)
			)
			(
			 	t
			)
		)
   	)
)
(print block_attributes_assoc_list) 

[alexmntmnk]

Сообщение от koMon Код: [Выделить все] (setq block_attributes_assoc_list nil) (vlax-map-collection (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) '(lambda (object) (cond ( (and (= "AcDbBlockReference" (vla-get-objectname object)) (minusp (vlax-get object 'hasattributes)) ) (setq block_attributes_assoc_list (append block_attributes_assoc_list (list (list (vla-get-effectivename object) (mapcar '(lambda (attribute) (list (vla-get-tagstring (setq attribute_object attribute)) (vla-get-textstring attribute) attribute ) ) (vlax-invoke object 'getattributes) ) ) ) ) ) ) ( t ) ) ) ) (print block_attributes_assoc_list)

я только не пойму как с его помощью атрибуты искать только в блоках расположенных в слое layer

[koMon]

Код:

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

 
(and
	(= "AcDbBlockReference" (vla-get-objectname object))
  	(= "Layer" (vla-get-layer object)		; в слое "Layer"
	(= "Block_Name" (vla-get-effectivename object))	; с именем "Block_Name"
	(minusp (vlax-get object 'hasattributes))
)

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

Сообщение от alexmntmnk я только не пойму как с его помощью атрибуты искать только в блоках расположенных в слое layer

https://forum.dwg.ru/showthread.php?...F0%E8%E1%F3%F2

[Александр Ривилис]

alexmntmnk,
Не

Код:

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

 (setq setBlock (ssget "_x" (list '(0 . "INSERT") layer))) ; Набор из блоков на слое

а

Код:

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

 (setq setBlock (ssget "_x" (list '(0 . "INSERT") (cons 8 layer)))) ; Набор из блоков на слое