[===AAA===]

Всем привет!

Казалось бы, чего проще?

Пусть у нас в чертеже (а мы точно об этом знаем!) есть блок по имени "БЛОК-123"

Тогда:

(ssget "_X" '((0 . "INSERT")(2 . "БЛОК-123")))

получаем набор и радуемся.

Но вот непонятный случай - блок есть (мы видим его глазами), его можно выбрать
и в таблице свойствах примитива (той, что в левой части экрана) будет честно
указано его имя: "БЛОК-123".

Хорошо, делаем:

(entget (car (entsel"\nУкажите требуемый элемент: ")))

И смотрим на его код:

((-1 . #<Имя примитива: 0000026913321C80>) (0 . "INSERT") (5 . "DEC7") (102 . "{ACAD_XDICTIONARY") (360 . #<Имя примитива: 0000026913324380>) (102 . "}") (330 . #<Имя примитива: 000002691331A040>) (100 . "AcDbEntity") (67 . 1) (410 . "ОА-ВЫПУСК") (8 . "Слой1") (62 . 1) (100 . "AcDbBlockReference") (66 . 1) (2 . "*U57") (10 391.0 5.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 1) (71 . 1) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

Т.е. блок почему-то стал "анонимным"...

Вопрос:

Как в этом случае найти вхождения блока "БЛОК-123" ?

Ну и попутно - обратная задача.

Как "раскрутить" имя "*U57" до оригинального "БЛОК-123" ?

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

1. Блок динамический.
2. Блок не только динамический, но еще и измененный
3. Поиск по форуму - тему поднимали, насколько я помню

[Сергей812]

Сообщение от ===AAA=== Как найти в чертеже вхождения блока по его имени?

просто для информации - на .Net. Если не получится на лиспе - можно "вставку" .Net кода сделать в лиспе

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

В нанике до версии 24 нереально. Там тупо нет реализации LispFunction

[koMon]

Сообщение от ===AAA=== Как "раскрутить" имя "*U57" до оригинального "БЛОК-123" ?

Код:

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

 
(cdr (assoc 2 (entget (cdr (assoc 340 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (car (entsel)))))))))))))))))

[Сергей812]

Offtop:

Сообщение от Кулик Алексей aka kpblc В нанике до версии 24 нереально. Там тупо нет реализации LispFunction

Алексей, я помню) Ну лисп в нанокаде я вообще воспринимаю примерно так же как VBA в самом акаде - неродной внутренний ЯП, "прикрученный" уже опосля сбоку...

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

Сообщение от koMon Код: [Выделить все] (cdr (assoc 2 (entget (cdr (assoc 340 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (car (entsel)))))))))))))))))

Че-то мне кажется, что будет проще запросить вхождения, и потом уже через vla-get-effectivename работать

[koMon]

я даже не думал предлагать свойство effectivename в виду его кричащей очевидности, а вот 5 entget-ов подряд как нельзя лучше подходят под формулировку раскрутить

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

Говорят, что где-то в глубинах можно найти код получения всех вхождений дин.блока

[===AAA===]

"Обратная задача" действительно не сложная. Отдельное спасибо koMon
за творческий подход к слову "раскрутить". :-) Кстати, оказалось реально
полезно посмотреть, по каким словарям что раскладывается.

Что касается "первичной задачи", то попытка

где-то в глубинах можно найти код

наткнулась на "крокозяблы" на сайте

https://github.com/kpblc2000/KpblcLi...ynprop-get.lsp

Выглядит оно примерно так:

(defun _kpblc-block-dynprop-get (blk-ref name / blk_def blk_name) ;| * Âîçâðàùàåò äèíàìè÷åñêîå ñâîéñòâî áëîêà ïî èìåíè ñâîéñòâà. Ñâîéñòâî ORIGIN èñêëþ÷àåòñÿ * Ïàðàìåòðû âûçîâà:

По крайней мере, у меня в браузере. :-(

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

Проблема в кодировке файла. Скачай, открой в кодировке Win1251 - все должно быть корректно.

[koMon]

===AAA===,
так я так и не понял в чём затык прямой задачи?
продолжаем раскрутку.

Код:

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

 
(defun get_insert_list (get_name / insert_sset block_name)
	(if (setq insert_sset (ssget "_x" '((0 . "insert"))))
		(vl-remove-if-not '(lambda (insert) (or (= get_name (setq block_name (cdr (assoc 2 (entget insert)))))
												(and (= "*U" (substr block_name 1 2))
													 (= get_name 
													 	(cdr (assoc 2 
																(entget (cdr (assoc 340 
																	(entget (cdr (assoc 360 
																		(entget (cdr (assoc 360 
																			(entget (cdr (assoc 360 
																				(entget insert)))
																			)
																		)))
																	)))
																)))
															 )
														 )
													 )
												)
											)
							)
							(vl-remove-if 'listp (mapcar 'cadr (ssnamex insert_sset)))
		)
	)
)

[===AAA===]

Ага!

А так, наверное, ещё быстрее будет:

(ssget "_X" '((0 . "INSERT")(2 . "*U*")))

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

Угу, и выберет вообще все измененные дин.блоки.

[koMon]

Сообщение от ===AAA=== быстрее будет

м.б. будет быстрее, но... если динблок вдруг не изменился, то его не выберецца.

[===AAA===]

Да, верно!

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

Выбирать и анализировать нужно все, согласен.

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

Сообщение от ===AAA=== Выбирать и анализировать нужно все

И в этом случае есть вопрос - а нужен ли ssget, если все равно выполнять анализ результата?

[===AAA===]

... а нужен ли ssget ...

Поясни, плиз.

Если есть какой-то альтернативный способ выбора вхождения
примитива (в данном случае - блока) в чертёж, то мне он просто
не ведом.

Как бы ssget'а всегда хватало.

Роется он в базе данных чертежа - ну и пусть роется...

Да, не всегда может создать набор "на ровном месте", приходится
отлавливать эти глюки и тыкать ему (gc), следить, чтобы наборы
были локальными переменными, скидывать их в nil вручную и
прочее, но я уже как-то и привык к этому.

[koMon]

видимо имеется в виду как вариант проходка по всей базе на предмет вхождений блоков и создание списка требуемых.

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

Сообщение от koMon видимо имеется в виду как вариант проходка по всей базе на предмет вхождений блоков и создание списка требуемых.

Именно!