[Малявка]

Здравствуйте!
Команда Overkill - замечательная команда!
Одно плохо: она не рассчитана на криворуких юзеров, копирующих всё и вся, глядя не в модель, а , наверное, в аську.
Прикладываю пример (ма-а-а-сенький фрагмент огромного чертежа).
Подскажите решение, уважаемые гуру dwg.
Работаю в AutoCAD 2010 и 2008.
Спасибо.

[Солидворкер]

пример где?

[zenon]

Offtop: Солидворкер, Одно плохо: наверное, в аське.

[Малявка]

Простите, не приклеился

[Victor]

Попробовал сейчас overkill , есть там опция Fuzz расстояние между дубликатами как я понял.

[Малявка]

А где найти эту опцию?
После набора команды в командной строке сразу выскакивает: "Выберите объекты". Без всяких опций.

[VVA]

Малявка, А ты выбери что-нибудь и посмотри что дальше будет.

[Малявка]

Посмотрела, "поиграла" настройками. Ничего не изменилось
Ну, по крайней мере, узнала дополнительную примочку у overkill.
Спасибо. Буду терзать чертеж дальше.

[zenon]

Наверно кроме overkill еще и flatten не помешает

[Victor]

Да действительно overkill в 2008 хуже работает. А в 2004 мочит всё.
Для текстов могу предложить

Код:

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

;;;;Udalyaet odinakovie teksti
(defun c:dlt( / nameset setlength blcrun nam_1 sec_set dis
                i namrun sp_run del_set krd_run krd_1 sp_1)
(setq dis (getreal "Input distance: "))
(setq nameset (ssget "_:L" '(( 0 . "TEXT")))) ;imya nabora
(setq setlength (sslength nameset)); dlina nabora
(setq del_set (ssadd))
(while (/= setlength 0)
(setq setlength (- setlength 1))
(setq blc_1 (ssname nameset 0));imya 1 bloka
(setq sp_1 (entget blc_1))
(setq nam_1 (cdr (assoc 1 sp_1))) ;imya
(setq krd_1  (assoc 10 sp_1)) ;chetverka koord
(setq sec_set (ssadd))
(setq i 0)
(repeat setlength
(setq i (1+ i))
(setq blcrun (ssname nameset i));imya tekushevo bloka
(setq sp_run (entget blcrun))
(setq namrun (cdr (assoc 1 sp_run))) ;soderjanie
(setq krd_run  (assoc 10 sp_run)) ;chetverka koord
(if (and (equal (nth 2 krd_1) (nth 2 krd_run) dis)
         (equal (nth 1 krd_1) (nth 1 krd_run) dis)
         (= nam_1 namrun))
               (ssadd blcrun del_set) (ssadd blcrun sec_set))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq nameset sec_set)
(setq sec_set nil)
(setq setlength (sslength nameset)); dlina nabora
)
(setq d (sslength del_set))
(princ " d=")
(princ d)
(setq i -1)
(repeat d
(setq i (1+ i))
(entdel (ssname del_set i))
) ;repeat
(setq del_set nil)
)

[Малявка]

Спасибо! Буду пробовать.

[VVA]

Аналоги Flatten: LISP. Обнуление координаты Z (аналог FLATTEN )