[LAmyk]

раньше с помощью експресс тулз делал подмену блоков на контрольный, котрый потом выбирал фильтром и удалял все
может есть лисп который будет удалть одинаковые блоки тыком на 1 из них?

[Dym]

поищи selsim, поможет за два тыка

[AlexV]

Небольшой макрос (писал для других целей, просто кнопку добавил). Ткнув мышью в @, "> Х", получите: все вхождения блока из файла чертежа делетнутся..

[Бася]

Добрый день! Помогите пожалуйста решить проблему: на чертеже есть вхождения блока. В некоторых местах, блоки скопипастены дважды, а то и трижды (т.е. имеюют одинаковые координаты). Как можно удалить дублирующиеся блоки?
Пс. _OVERKILL резальтатов не дала.

[Дима_]

Код:

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

(vl-load-com)
(defun c:delete-over ( / xcod ss)
(setq	xcod '(2 410 10 8 41 42 43 50 210)
	ss (sstolist (ssget "_a" (list (cons 0 "insert")))))
(vla-startundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
(delete-over ss)
(vla-endundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
(princ))
		
(defun delete-over (lst)
(if lst (delete-over (del-dubl (car lst) (cdr lst)))))

(defun del-dubl (blk lst)
(setq blk (mapcar '(lambda (p) (cod p blk)) xcod))
(vl-remove nil (mapcar '(lambda (obj)
			(if (apply 'and (mapcar '(lambda (p1 p2) (equal p1 p2 1e-6))
					blk
					(mapcar '(lambda (p) (cod p obj)) xcod)))
						(progn (entdel obj) nil)
						obj))
			lst)))
			
(defun cod (cd obj) ; возращает код cd примитива obj.
(if (and obj (= (type obj) 'ename))
(cdr (assoc cd (entget obj)))));end of cod

(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst);end of sstolist

запускать delete-over

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

А что с атрибутами (например) делать? Или (бррр!) с аннотативностью?

[Бася]

Прошу прощения, не указала - блоки не имеют ни атрибутов, ни аннотативности.
To Дима_, спасибо огромное за код, НО:
в данном конкретном чертеже функция не работает
Т.е. она подгружается, но когда я нажимаю "delete-over", машина задумывается ...и все.Причем, это не зависит от количества выбираемых блоков (1000 или 3). И нет индикации того, что процесс идет.
Ради эксперимента подождала полчаса - эффекта нет. Пришлось Esc.
При этом на пустом чертеже все проходит нормально (для примера создала простейший блок).
Что скажете?

[Дима_]

Он "каждый к каждому" проверяет, если на большое количество блоков - то надо чуть по другому написать - что-то типа берет вхождение блока, берет его границы, смотрит - нет ли там аналогичных. Сейчас к сожалению времени нет; если по быстрому исправь строку:
ss (sstolist (ssget "_a" (list (cons 0 "insert")))))
на
ss (sstolist (ssget (list (cons 0 "insert")))))
тогда можно будет "кусками" в ручную обрабатывать (он вначале предложит выбрать) - попробуй понемножку.

[Бася]

Дима_, теперь программа просто "летает".
Просто супер!!!
Есть косяк, вернее КОСЯЧИЩЕ, файл чужой, оказалось, что блоки разнесены по Z. И дублирующиеся (на виде сверху), но разные ко координатам Z, он не удаляет.
Не откажите в помощи, скажите, как их в ноль привести? Сам блок в нулевом уровне, Flatten их не хочет понижать, а через свойства тоже не получается.

[VVA]

Сообщение от Бася Не откажите в помощи, скажите, как их в ноль привести?

LISP. Обнуление координаты Z (аналог FLATTEN ) Пост #1 и #2

[Бася]

VVA, Дима_, Спасибо огромное! Все работает, задача решена успешно
Сэкономлено огромное количество нервов и времени))