[Dim@]

Всей привет!
Есть файлик полученный со стороны(кто и как чертил не знаю). В нем слой «ГРАНИЦА участков» не в какую не хочет удаляться. Пользовался всеми советами , ничего не помогает. Может кто поможет (см. файл).
[ATTACH]1161679070.dwg[/ATTACH]

[asys]

команда _laydel в версиях 2005, 2006, 2004 ищи ее в экспрессе. Нарисуй на нужном слое линию и грохни ее (линию) вместе со слоем этой командой (выбрав линию)

[Dim@]

Я так пробовал, не получается. Дело в том что линия не выделяется.

[asys]

могу предположить что в момент выбора - слой с выбираемой линией текущий

[Аshаs-ка]

Точно. Сначала нарисуй в своем слое что- нибудь, потом перейди в другой слой, потом экспрессом грохни. Получится.

[Dim@]

Аshаs-ка выдается такое сообщение(см. файл)
[ATTACH]1161688306.jpg[/ATTACH]

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

Хххе! Расширенные данные, скорее всего. Не так давно тема была

[Залётный]

Сообщение от Dim@ Может кто поможет (см. файл).

SuperPurge от Manusoft
http://www.manusoft.com/Software/SuperPurge/Index.stm
[ATTACH]1161690461.dwg[/ATTACH]

[VVA]

Хххе! Расширенные данные, скорее всего

Так и есть. Либо AC_800 либо MCS_DIM1. Глубже не коварял
Вот лисп. Сносит все РД кроме акадовских

Код:

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

(defun lib:massoc (key alist / x nlist)
  (foreach x alist
    (if (eq key (car x))
      (setq nlist (cons (cdr x) nlist))))
  (reverse nlist))
(defun C:DELXD ( / nb nlst lst Rdn adoc )
  (defun delRd ( en Rdn / el sub)
   (setq el (entget en (list "*")) sub nil)
   (foreach i (cdr (assoc -3 el))
     (if (not(wcmatch (strcase(car i))(strcase Rdn)))
       (setq sub (append sub (list i)))
       (setq sub (append sub (list(list (car i)))))))
  (setq sub (cons -3 sub)
        el (subst sub (assoc -3 el) el) 
        el (entmod el)))
;_Получаем список РД Примитивов
  (if (setq nb (ssget "_X" '((-3 ("*")))))
    (progn
      (setq nlst nil lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex nb))))
      (mapcar '(lambda (e1)
	     (mapcar '(lambda(rdn)
			(if (not(member rdn nlst))
			  (setq nlst(append nlst (list rdn)))))
                 (mapcar 'car (car(lib:massoc -3 (entget e1 '("*"))))))
	     ) lst)
      (setq nlst(vl-remove-if '(lambda(x)(wcmatch (strcase x) "ACAD*,ACDB*")) nlst))
      (setq Rdn (apply 'strcat (mapcar '(lambda(x)(strcat x ",")) nlst)))
      (mapcar '(lambda(x)(delRd x Rdn)) lst)))
   (princ "\nУдаленные РД:")(mapcar 'print nlst)(princ))
(princ "\nНабери в командной строке DELXD")

Примени и слой станет в очередь на удаление

[Dim@]

VVA лисп сработал огромное спасибо!!!
Залётный, с SuperPurge не разобрался как он пашет(хотелось бы разобраться).
Но вроде проблема решена. Всем спасибо!!!!!!!!!!!

[asys]

А у меня все удалилось без проблем

[Dim@]

SuperPurfe не помог.

[Залётный]

Сообщение от Dim@ SuperPurfe не помог.

Полагаю, что ты не глядул кое-куда.
Там где Purge type отметь Hard и тогда можно пургенить практически всё.
Посмотри файл из моего предыдущего поста, там этого слоя нет.

[Dim@]

Залётный, и твой способ работает.
Спасибо!!!

[Залётный]

Сообщение от Dim@ Залётный, и твой способ работает. Спасибо!!!

Пользуюсь этой программой уже лет 7. Многие её возможности сейчас включены в стандартную поставку CAD(а), но, тем не менее, для меня она остаётся необходимым дополнением.
Не прими это за рекламу, я никакого отношения к Manusoft не имею и просто делюсь своим опытом.
Из возможностей, заявленых на сайте Manusoft:

1. Toolbar locking 2. Command line locking 3. Floating window locking 4. Quick toolbar buttons 5. Quick menus 6. Quick dialog buttons 7. Quick status bar buttons 8. Full path in title bar 9. Double-click translation 10. Enhanced right-click 11. Extended right-click 12. Current file autoselect 13. Extended height combos 14. Wide toolbar dropdowns 15. AutoCAD dialogs resizable 16. File dialogs resizable 17. Remember file list state 18. Remember 'read-only' state

Для меня остаются актуальными:
1. - It virtually eliminates missed picks
2. - Возможность пургенить практически всё.

Работа мыши значительно улучшается и не случается, что меню не отрабатывает или отрабатывает неправильно.

Попробуй, может тоже понравится.

Удачи!