[SilvioManuel]

Задача: существует большая карта и на ней необходимо в определённом фрагменте, выбрав рамкой набор разных объектов поменять одни блоки на другие.
Как это сделать не меняя всех подпобных блоков на карте? Существует ли такой лисп?

[vadim_evg1]

Есть такие.
один из примеров:

команда ad-ren-i

[IMG]http://i064.***********/1009/b1/560750ac5395.gif[/IMG]

[SilvioManuel]

буду благодарен за корректные ссылки. Выражусь правильнее: чобы при запуске команды вылазило окошко с опциями типа:
1. выбираемый блок (имя)
2. заменить на (имя)
3. применить ко всему чертежу
4. применить к выделенному набору (что в общем то и нужно)


P.S.: Большое человеческое спасибо заранее

[Nike]

http://www.caduser.ru/forum/index.ph...D=44&TID=21135

[Psyakrev]

Сообщение от Nike http://www.caduser.ru/forum/index.ph...D=44&TID=21135

В конце указанной темы участники решили перебратья на dwg.ru - забавная получается рекурсия.
Попробовал код из сообщения #25 - все равно не то, исходный блок просто заменился на выбранный со всеми атрибутами, в таком случае проще не заморачиваться с лиспами, а банально скопировать блок.
Если честно, удивлен - вроде бы простая задача заменить выбранные блоки с сохранением атрибутов и базовой точки, а красивого решения нет.

[Nike]

Psyakrev
Если атрибуты совпадают:

Код:

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

(defun c:blrevers (/ a b)
  (and (setq a (car (entsel "\nВыберите исходный блок: ")))
       (setq a (entget a))
       (while (and (= (cdr (assoc 0 a)) "INSERT")
                   (setq b (car (entsel "\nВыберите изменяемый блок: ")))
                   (setq b (entget b))
                   (= (cdr (assoc 0 b)) "INSERT")
                   (entmod (vl-remove (assoc 330 b) (subst (assoc 2 a) (assoc 2 b) b)) ;_ vl-remove
                   ) ;_ entmod
              ) ;_ and
       ) ;_ while
  ) ;_ and
  (princ)
) ;_ defun

[TararykovDG]

Сообщение от Psyakrev проще не заморачиваться с лиспами, а банально скопировать блок.

интересная мысль, Psyakrev, а если у вас на чертеже эдак несколько сотен или тысяч вхождений блока который нужно заменить, хотел бы я посмотреть на процесс "банально скопировать"

Сообщение от Psyakrev Если честно, удивлен - вроде бы простая задача заменить выбранные блоки с сохранением атрибутов и базовой точки, а красивого решения нет.

Psyakrev еще интереснее. Nike привел решение при совпадении атрибутов, а вот если они разные у исходного блока и блока на который надо заменить, тогда что на что заменять "простая задача"

[Psyakrev]

TararykovDG
если мне понадобится заменить все вхождения блока - на помощь придет Express Tools. А если мне нужно заменить только одно либо несколько вхождений (но не все)? Сохранение атрибутов - при их совпадении естественно, остальные пусть обнуляются.
В моем случае, на чертеже несколько устройств А, блоки А имеют один атрибут - обозначение. Как заменить тип блока с А на Б для одного устройства с минимальными затратами труда (блок Б отличается от блока А только графикой, размеры и атрибут сохраняются)? Обозначение естественно должно сохраниться.

Nike
Спасибо, то, что нужно. А можно еще сделать выбор исходного блока в виде списка блоков, описания которых есть в чертеже?