[lexa_CAD]

Есть найденная на форуме программа №1 поиска и замены выборочных блоков common_block_replacing v00.lsp (добавил в нее только копирование угла поворота). Она работает.
Есть найденная на просторах интернета программа №2 выбора всех вхождений выбранного блока в чертеже. prog-same-block-select.lsp Тоже рабочая.

Не удается "скрестить" эти программы, чтобы производить замену всех вхождений выбранных блоков.
Насколько понимаю, для этого необходимо поместить в переменную substituted_inserts_sset (из программы №1 в строке 100) набор из переменной "е" из программы №2.

(setq substituted_inserts_sset e)

Но, почему-то, результата нет.
Прошу помощи у Гуру в AutoLISP !

Код:

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

 ;**********функция выбора всех вхождений выбранного блока***********
(defun sb    (/ e name n out ss x rjp-getblockname)
;;;(vl-load-com)
(prompt "\n   Pick BLOCK to acquire its instances in the drawing...") 
 (defun rjp-getblockname (obj)
   (if    (vlax-property-available-p obj 'effectivename)
     (vla-get-effectivename obj)
     (vla-get-name obj)
   )
 )
 (if (setq x     (ssget '((0 . "INSERT")))
       x     (ssname x 0)
       name (rjp-getblockname (vlax-ename->vla-object x))
       ss     (ssget "_X" '((0 . "INSERT")))
       n     -1
       out     (ssadd)
     )
   (while (setq e (ssname ss (setq n (1+ n))))
     (if (= (rjp-getblockname (vlax-ename->vla-object e)) name)
   (ssadd e out)
   
     )
   )
   (setq substituted_inserts_sset e) ;;; копирование полученного набора во внешнюю переменную
 )

 (princ)
 (sssetfirst nil out)

)

участок кода, в который пытаюсь вставлять результат работы функции sb. Если я правильно понимаю, я должен вызвать SB и потом присвоить набору substituted_inserts_sset значение e:
(setq substituted_inserts_sset e) :

Код:

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

 (
					(= 1 init_step)
						(prompt "Выберите заменяемые блоки:")
						(setvar 'nomutt 1)
						(setq ignore_empty_sset (and
							   						(null command_terminated)
							   						(while (null (setq substituted_inserts_sset (vl-catch-all-apply 'ssget (list '((0 . "insert")))))))
						  			)
							substituted_inserts_sset (cond
							  							(
															(vl-catch-all-error-p substituted_inserts_sset)
																(setq command_terminated t)
														)
														(
															t
																substituted_inserts_sset
														)
										)
						)
						(setvar 'nomutt 0)
						(if command_terminated
								(setq initiating nil
									  substituted_inserts_sset (princ "\nОтмена")
									  substituted_inserts_sset (ssadd)
								)
								(setq init_step (1+ init_step)
									  active_space_object (vlax-ename->vla-object (cdr (assoc -1 (entget (cdr (assoc 330 (entget (ssname substituted_inserts_sset 0))))))))
								)
						)
				)

Верно? Что может пойти не так?

[===AAA===]

Код:

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

  (setq substituted_inserts_sset e) ;;; копирование полученного набора во внешнюю переменную

Здесь е - не набор, а имя элемента. набор - out.

[lexa_CAD]

Спасибо!

Беру теперь набор из out, преобразовав имя объекта предварительно обратно в "классическое".
Теперь программа sb не работает. ;(

Код:

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

 ;**********функция выбора всех вхождений выбранного блока***********
(defun sb    (/ e name n out ss x rjp-getblockname)
(vl-load-com)
(prompt "\n   Pick BLOCK to acquire its instances in the drawing...") 
 (defun rjp-getblockname (obj)
   (if    (vlax-property-available-p obj 'effectivename)
     (vla-get-effectivename obj)
     (vla-get-name obj)
   )
 )
 (if (setq x     (ssget '((0 . "INSERT")))
       x     (ssname x 0)
       name (rjp-getblockname (vlax-ename->vla-object x))
       ss     (ssget "_X" '((0 . "INSERT")))
       n     -1
       out     (ssadd)
     )
   (while (setq e (ssname ss (setq n (1+ n))))
     (if (= (rjp-getblockname (vlax-ename->vla-object e)) name)
   (ssadd (vlax-vla-object->ename e) out) ;;;преобразование имени объекта в "стандартное" (для ssget )
   
     )
   )
   (setq substituted_inserts_sset out) ;;; копирование полученного набора во внешнюю переменную
 )

 (princ)
  
 ;;;(sssetfirst nil out)

)

Как вставить правильно этот кусок в код ниже?

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

Чтобы передать набор (если что код не смотрел), вместо (princ) в конце должно быть out. И насколько надо передавать именно набор - я не знаю. Я бы передавал, наверное, список.
И насчет "классических" имен я бы поспорил

[===AAA===]

(setq substituted_inserts_sset out) ;;; копирование полученного набора во внешнюю переменную

И почему эта строка стоит, как false в if - тоже непонятно.

Может быть, её в progn спрятать нужно?

Код - если что - смотрел "по диагонали".

... или просто эту строку вообще за if убрать нужно, т.е. на одну строку
ниже опустить...

[name02]

Вот тут https://www.cadforum.cz/en/download.asp?fileID=1019 программу, которая делает почти все что ты указал.

RIblock.zip

[koMon]

Сообщение от lexa_CAD Помогите изменить программу поиска и замены отдельных блоков

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

[lexa_CAD]

Спасибо огромное, что подключились, koMon !
Работает ! Можно сделать выбор сразу нескольких заменяемых блоков группой (рамкой или иными стандартными способами)?

Причём, замена должна быть действительно глобальной (блоки внутри других блоков тоже должны замениться)

[lexa_CAD]

name02, Спасибо, попробовал. Но по какой то причине не работает выбор по маске. Выбирается только часть блоков.

[name02]

Сообщение от lexa_CAD Можно сделать выбор сразу нескольких заменяемых блоков группой (окном)?

Можно - в строке 96 удали текст "_X"

[lexa_CAD]

Сообщение от name02 Можно - в строке 96 удали текст "_X"

К сожалению, предложенное изменение не работает.
Видимо, в данный набор (запрашиваемый в строке 96) должен попадать только один-единственный объект.
Ранее я прикладывал программу для выбора всех блоков с одинаковым именем. Точнее, почти всех, так как вложенные блоки не обрабатываются, что печально.