| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Удаление из чертежа описаний блоков

Удаление из чертежа описаний блоков

Ответ
Поиск в этой теме
Непрочитано 24.08.2007, 12:50 #1
Удаление из чертежа описаний блоков
olga87
 
Регистрация: 28.05.2007
Сообщений: 207

Такой вопрос: есть чертеж, в котором хранятся описания нескольких блоков. Эти блоки отсутствуют на чертеже. Но с помощью команды PURGE (Файл -> Утилиты -> Очистить) эти блоки почему-то не удаляются. Подскажите пожалуйста как удалить эти блоки (файл чертежа во вложении).
[ATTACH]1187945448.dwg[/ATTACH]
Просмотров: 3314
 
Непрочитано 24.08.2007, 13:17
#2
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204


Самое простое - _.wblock
Makswell вне форума  
 
Непрочитано 24.08.2007, 13:21
#3
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755


Какойто косяк с ГБД - разбираться некогда, попробуй это:

Код:
[Выделить все]
(defun demo (/ adoc blocks isstop count blname err)
  (setq adoc   (vla-get-activedocument (vlax-get-acad-object))
        blocks (vla-get-blocks adoc)
  )
  (vla-startundomark adoc)
  (while (not isstop)
    (setq count (vla-get-count blocks))
    (vlax-for b blocks
      (if (= :vlax-false (vla-get-islayout b))
        (progn (setq blname (vla-get-name b))
               (princ
                 (if (vl-catch-all-error-p
                       (setq err (vl-catch-all-apply (function vla-delete) (list b)))
                     )
                   (strcat "\nError with block - " blname " - " (vl-catch-all-error-message err))
                   (strcat "\nDelete block - " blname)
                 )
               )
        )
      )
    )
    (if (= (vla-get-count blocks) count)
      (setq isstop t)
    )
  )
  (vla-endundomark adoc)
  (princ)
)
Alaspher вне форума  
 
Непрочитано 24.08.2007, 13:26
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Во-первых, файл прошел через ADT 2007 или выше (ну или что-то наподобие). А в ADT есть специальная команда "Эскпорт в ACAD". Все "неудаляемые" блоки - это работа именно этого вертикального приложения.
---
Добавлено: Вот что получается, если файл открыть в АА2008, там выполнить через диспетчер стилей очистку, потом экспорт в кад, открыть в 2005 и уже в 2005 _-purge _a и _-purge _r.
[ATTACH]1187947859.dwg[/ATTACH]
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Удаление из чертежа описаний блоков

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск