[psvnadwgru]

Здравствуйте. В файле есть скопированные друг на друга одинаковые динамические блоки с одинаковыми атрибутами. Но команда _overkill не удаляет дубликат. Файл с блоком прилагаю. Помогите решить проблему? AutoCAD 2019 — Русский (Russian). На других объектах команда работает исправно.

[Oleg T]

Вообще-то этот случай достаточно распространённый: тексты с одним содержимым и блоки (как у ТС) накладываются друг на друга, визуально не найти.
Для того когда-то и было написано, что Overkill не отрабатывал на 100% и были ошибки в спецификациях.
Собственно, как раз в тему .

[psvnadwgru]

Сообщение от Oleg T Вообще то для данного конкретного случая всё вообще очень просто, и списки сравнивать не нужно. Вспомнил про свой очень давний лиспик удаления дублирующихся текстов и блоков по точке вставки. Изолируем блоки по слою и вперед, всё сработает. Код: [Выделить все] ;Удаление дублей текстов и блоков с совпадающей точкой вставки ;--------------------------------------------------------------------- (defun c:kill_txt() (if (= delta_1 nil)(setq delta_1 1)) (prompt "\n Погрешность координат точки вставки: ") (prin1 delta_1) (setq delta_2 (getint "\nНовое значение погрешности или ENTER: ")) (if (= delta_2 nil) (setq delta delta_1) (setq delta delta_2) ) (setq nab (ssget)) (setq kol (sslength nab)) (setq nab1 (ssadd)) (setq nab2 (ssadd)) (setq nab3 (ssadd)) (setq nab4 (ssadd)) (setq n -1) (repeat kol (setq n (+ n 1)) (setq pr (ssname nab n)) (setq pr_ (cdr(assoc '0(entget pr)))) (if (= pr_ "TEXT")(ssadd pr nab1)) (if (= pr_ "INSERT")(ssadd pr nab2)) ) (setq kol (sslength nab1)) (if (/= kol 0) (progn (setq go_ nil) (while (/= go_ 1) (setq pr (ssname nab1 0)) (setq x1 (nth 1(assoc '10(entget pr)))) (setq y1 (nth 2(assoc '10(entget pr)))) (setq z1 (nth 3(assoc '10(entget pr)))) (ssdel pr nab1) (setq kol (sslength nab1)) (if (= kol 0)(setq go_ 1) (progn (setq n -1) (setq go__ nil) (repeat kol (setq n (+ n 1)) (setq pr (ssname nab1 n)) (setq dx (abs(- x1(nth 1(assoc '10(entget pr)))))) (setq dy (abs(- y1(nth 2(assoc '10(entget pr)))))) (setq dz (abs(- z1(nth 3(assoc '10(entget pr)))))) (if (<= dx delta)(if (<= dy delta)(if (<= dz delta)(ssadd pr nab3)))) ) ) ) ) ) ) (setq kol (sslength nab2)) (if (/= kol 0) (progn (setq go_ nil) (while (/= go_ 1) (setq pr (ssname nab2 0)) (setq x1 (nth 1(assoc '10(entget pr)))) (setq y1 (nth 2(assoc '10(entget pr)))) (setq z1 (nth 3(assoc '10(entget pr)))) (ssdel pr nab2) (setq kol (sslength nab2)) (if (= kol 0)(setq go_ 1) (progn (setq n -1) (setq go__ nil) (repeat kol (setq n (+ n 1)) (setq pr (ssname nab2 n)) (setq dx (abs(- x1(nth 1(assoc '10(entget pr)))))) (setq dy (abs(- y1(nth 2(assoc '10(entget pr)))))) (setq dz (abs(- z1(nth 3(assoc '10(entget pr)))))) (if (<= dx delta)(if (<= dy delta)(if (<= dz delta)(ssadd pr nab3)))) ) ) ) ) ) ) (command "_erase" nab3 "") (setq kol (sslength nab3)) (prompt "\n Удалено дубликатов текстов и блоков ") (prin1 kol) (princ) )

А как пользоваться этим кодом? Куда его вставлять?

[Oleg T]

https://dwg.ru/pub/9
Кстати, если автокад русский, то _erase надо поменять на ._erase