[sheinik]

Как уменьшить размер файлов dwg акад2007 (какие нибудь ненужные фрагменты, слои, блоки удалиить)? Может мастера акада дадут мудрый совет?

[Чигинский Дмитрий]

Purge обычно помогает.

[Огурец]

Между прочем, вопрос не так и прост. Я вот на днях сидел с одним файлом весь вечер, вычищая его вручную от блоков однократно использованых, совершенно ненужных по содержанию, но вполне адекватных с точки зрения автокада, как программы. Простой Purge уменьшил файл наполовину, с 7 до 4 метров. Дальнейшая очистка довела его размер до 0,3 метра! Масса дублирующих линий, находящихся в 0,0001 мм друг от друга и т.п. В некоторых случаях экспрессовские команды работали по пол-часа.

[Чигинский Дмитрий]

Сообщение от Огурец Масса дублирующих линий, находящихся в 0,0001 мм друг от друга и т.п.

Тогда есть ещё OptiTool, только галочку преобразовывать Line в Polyline я снимаю. И работает он в версиях 2000-2006.

[sheinik]

Я делал, все удалить... идет процесс, что=то там пишется, какойто файл *.SHX удален, а потом файл сохраняю но размер не меняется. Мне не очень-то верится что у меня такой "чистый" файл!

[Никита В.]

В options>incremental save percentage надо ставить 0 (по умолчанию 50), а то удаленный обьекты всеравно сохраняются в БД чертежа (за подробными пояснениями в help).......

[Zark]

Сообщение от Огурец Масса дублирующих линий, находящихся в 0,0001 мм друг от друга и т.п. В некоторых случаях экспрессовские команды работали по пол-часа.

А OVERKILL не пробовали использовать? Правда, он не во всех акадах есть, как мне кажется в 2007 есть, а в 2002 на работе такое комманды не нашлось.

[Никита В.]

Сообщение от Zark А OVERKILL не пробовали использовать? Правда, он не во всех акадах есть, как мне кажется в 2007 есть, а в 2002 на работе такое комманды не нашлось.

Дык это вообщето экспресовская команда... Просто в 2007 самые крутые команды из экспресов внедрили в сам акад

[T-Yoke]

Сообщение от sheinik Как уменьшить размер файлов dwg акад2007 (какие нибудь ненужные фрагменты, слои, блоки удалиить)? Может мастера акада дадут мудрый совет?

1. Использовать Purge (Файл_Утилиты_Очистить)
2. Не использовать в создаваемых блоках, других слоев кроме 0, и новых типов линий.
3. Чем больше блоков, тем лучше (блок - это объект, и точка - это объект), значит если загнать повторяющий набор элементов в блок объектов будет меньше.
4. Следите за наличием Z-координаты, если она не нужна, то и не надо её вводить.
5. Чертите простыми примитивами (вместо полилиниий набор дуг).
6. Левую нижнюю точку чертежа держите в нуле.
7. При работе со сложным большим чертежом, используйте частичное открытие файла.
8. Используйте ссылки на другие чертежи.
9. И еще одно наблюдение, из моего личного опыта, сравнив 2002, 2004, 2005, 2006 и 2007 автокады, самый маленький размер одного и того же файла дал 2005.

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

Сообщение от Чигинский Дмитрий Purge обычно помогает.

Есть вариант немного более продвинутого кода:

Код:

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

^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object))));mypurge;

Вместе с очисткой файла от мусора выполнит очистку от зарегистрированных приложений и проверит файл на предмет ошибок.
P.S. очистка от зарегистрированных приложений будет работать на версиях не ниже 2005. Возможно, будет работать в 2004, но проверить не могу.
===
Добавлено:
Если надо, можно попробовать написать лиспик по "разбивке" блоков, имеющих только одно вхождение. Надо?

[VVA]

Еще бывает _-wblok <файл> * уменьшает размер файла

[Огурец]

Сообщение от Zark Сообщение от Огурец Масса дублирующих линий, находящихся в 0,0001 мм друг от друга и т.п. В некоторых случаях экспрессовские команды работали по пол-часа. А OVERKILL не пробовали использовать? Правда, он не во всех акадах есть, как мне кажется в 2007 есть, а в 2002 на работе такое комманды не нашлось.

Естественно, я же написал, что работал экспрессовскими командами. Дольше и хуже всех работает FLATTEN. Чертёж был после проклятого архикада, да будут несчастливы его создатели.

[Добрый вечер]

Я обычно, после всех purge и т.д., выделяю все примитивы, копировать. Создаю новый файл и вставить. И всё.

[Огурец]

Сообщение от Добрый вечер Я обычно, после всех purge и т.д., выделяю все примитивы, копировать. Создаю новый файл и вставить. И всё.

Мудро и правильно! И я так буду делать, в конечном счёте это будет быстрее.

[Чигинский Дмитрий]

Сообщение от Кулик Алексей aka kpblc Если надо, можно попробовать написать лиспик по "разбивке" блоков, имеющих только одно вхождение. Надо?

Да, надо.

[sheinik]

Сообщение от Добрый вечер Я обычно, после всех purge и т.д., выделяю все примитивы, копировать. Создаю новый файл и вставить. И всё.

После того как выделяю и копирую в буфер все виснет..., а что такое экспрессовские команды?

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

Лиспик по очистке "одиночного вхождения", наваял на ходу практически. Поэтому логику качественно продумать не смог
В общем так: разбиваются блоки независимо от состояния слоев и пространства (модели или листа), в которых блок существует. Не трогает внешних ссылок. Значения атрибутов не сохраняются. Если блок "1" входит в блок "2", который имеет всего одно вхождение, то 1 проход лиспа удалит только блок "2", не трогая "1". Выполняется автоматическая очистка файла от мусора.
Особо не тестировал, так, на паре-тройке условий прогнал - вроде пашет.

Код:

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

(defun c:exp1blk (/                          *kpblc-activedoc*
                  _kpblc-layer-status-restore
                  _kpblc-error-catch         _kpblc-error-sysvar-restore
                  _kpblc-error-sysvar-save   _kpblc-sysvar-set
                  repeat_exploding           selset
                  *error*
                  )

;;; Локальные функции

  (defun *error* (msg)
    (_kpblc-error-sysvar-restore nil)
    (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
    (princ msg)
    (princ)
    ) ;_ end of defun

  (defun _kpblc-sysvar-set (sysvar value)
    (if (getvar sysvar)
      (if (and (= value "")
               (wcmatch (strcase sysvar t) "dim*")
               ) ;_ end of and
        (setvar sysvar ".")
        (vl-catch-all-apply 'setvar (list sysvar value))
        ) ;_ end of if
      ) ;_ end of if
    (getvar sysvar)
    ) ;_ end of defun

  (defun _kpblc-error-sysvar-save (lst)
    (foreach sysvar lst
      (setq *kpblc-list-sysvar*
             (append (list (list (car sysvar) (getvar (car sysvar))))
                     *kpblc-list-sysvar*
                     ) ;_ end of append
            ) ;_ end of setq
      (if (cdr sysvar)
        (_kpblc-sysvar-set (car sysvar) (cadr sysvar))
        ) ;_ end of if
      ) ;_ end of foreach
    (princ)
    ) ;_ end of defun

   (defun _kpblc-error-sysvar-restore (lst)
    (if lst
      (foreach sysvar lst
        (_kpblc-sysvar-set sysvar (car (assoc sysvar *kpblc-list-sysvar*)))
        ) ;_ end of foreach
      (progn
        (foreach sysvar *kpblc-list-sysvar*
          (_kpblc-sysvar-set (car sysvar) (cadr sysvar))
          ) ;_ end of foreach
        (setq *kpblc-list-sysvar* nil)
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of defun

  (defun _kpblc-error-catch (protected-function
                             on-error-function
                             /
                             catch_error_result
                             )
    (setq catch_error_result (vl-catch-all-apply protected-function))
    (if (and (vl-catch-all-error-p catch_error_result)
             on-error-function
             ) ;_ end of and
      (apply on-error-function
             (list (vl-catch-all-error-message catch_error_result))
             ) ;_ end of apply
      catch_error_result
      ) ;_ end of if
    ) ;_ end of defun

 (defun _kpblc-layer-status-restore (/ item)
    (if *kpblc-list-layer-status*
      (progn
        (foreach item *kpblc-list-layer-status*
          (_kpblc-error-catch
            '(lambda ()
               (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))))
               ) ;_ end of LAMBDA
            nil
            ) ;_ end of _kpblc-error-catch
          (_kpblc-error-catch
            '(lambda ()
               (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
               ) ;_ end of LAMBDA
            nil
            ) ;_ end of _kpblc-error-catch
          ) ;_ end of foreach
        ) ;_ end of progn
      ) ;_ end of if
    (setq *kpblc-list-layer-status* nil)
    ) ;_ end of defun

  (defun _kpblc-layer-status-save (layers-on / item)
    (vlax-for item (vla-get-layers *kpblc-activedoc*)
      (setq *kpblc-list-layer-status*
             (append *kpblc-list-layer-status*
                     (list
                       (list item
                             (cons "freeze" (vla-get-freeze item))
                             (cons "lock" (vla-get-lock item))
                             ) ;_ end of list
                       ) ;_ end of list
                     ) ;_ end of append
            ) ;_ end of setq
      (if layers-on
        (progn
          (_kpblc-error-catch
            '(lambda ()
               (vla-put-freeze item :vlax-false)
               ) ;_ end of lambda
            nil
            ) ;_ end of _kpblc-error-catch
          (vla-put-lock item :vlax-false)
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of defun

  (vl-load-com)
  (if (setq repeat_exploding
             (_kpblc-error-catch
               '(lambda ()
                  (cond
                    ((getint "\nСколько делать проходов? <1> : "))
                    (t 1)
                    ) ;_ end of cond
                  ) ;_ end of lambda
               nil
               ) ;_ end of _kpblc-error-catch
            ) ;_ end of setq
    (progn
      (vla-startundomark
        (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
        ) ;_ end of vla-startundomark
      (_kpblc-error-sysvar-save '(("explmode" 1) ("cmdecho" 0)))
      (repeat repeat_exploding
        (vla-purgeall *kpblc-activedoc*)
        (vlax-for blkdef (vla-get-blocks *kpblc-activedoc*)
          (if (and (not (wcmatch (strcase (vla-get-name blkdef) t) "*_space*"))
                   (equal (vla-get-isxref blkdef) :vlax-false)
                   (setq selset
                          (ssget
                            "_X"
                            (list (cons 0 "INSERT") (cons 2 (vla-get-name blkdef)))
                            ) ;_ end of ssget
                         ) ;_ end of setq
                   (<= (sslength selset) 1)
                   ) ;_ end of and
            (_kpblc-error-catch
              '(lambda ()
                 (foreach blk (mapcar 'vlax-ename->vla-object
                                      (vl-remove-if
                                        'listp
                                        (mapcar 'cadr (ssnamex selset))
                                        ) ;_ end of vl-remove-if
                                      ) ;_ end of mapcar
                   (vla-explode blk)
                   (vla-erase blk)
                   ) ;_ end of foreach
                 ) ;_ end of lambda
              nil
              ) ;_ end of _kpblc-error-catch
            ) ;_ end of if
          ) ;_ end of vlax-for
        ) ;_ end of repeat
      (repeat 2 (vla-purgeall *kpblc-activedoc*))
      (_kpblc-error-sysvar-restore nil)
      (vla-endundomark *kpblc-activedoc*)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[bleaker]

Всем привет.
Столкнулся с такой проблемой. Коллеги иностранцы прислали автокадовский рисунок. Размер ни много ни мало 35 мегабайт. Компьютер особой производительностью не блещет, а по современным меркам так вообще слабоват, соответственно сильно тормозит все. Провел эксперимент: удалил все линии с чертежа, т.е оставил чистый лист, далее сохранить как... в итоге общий размер практически не изменился... осталось также порядка 34 мегабайт.
Так вот у меня возникает вопрос, как у человека не очень разбирающегося в Автокаде.... что там такого есть, что бы занимало столько места... и как это можно почистить (наверно файлы настройки... или что то в этом духе?).

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

Там, скорее всего, мусора немеряно. Без удаления примитивов даешь команду _purge и жмешь "Purge all".
Зайти в менеджер слоев и посносить все фильтры слоев
Дать команду _-purge (именно так, с "-" впереди), Enter, _r, Enter, Enter, _n - очистишь зарегистрированные приложения. Если не получится, выложи файлик на webfile.ru, например, а здесь - ссылку

[bleaker]

Сообщение от Кулик Алексей aka kpblc Там, скорее всего, мусора немеряно. Без удаления примитивов даешь команду _purge и жмешь "Purge all". Зайти в менеджер слоев и посносить все фильтры слоев Дать команду _-purge (именно так, с "-" впереди), Enter, _r, Enter, Enter, _n - очистишь зарегистрированные приложения. Если не получится, выложи файлик на webfile.ru, например, а здесь - ссылку

Сделал все по этому алгоритму, размер не изменился
Выложил файл сюда: http://www.rapidshare.ru/318161

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

Мне на работе такой траф не поднять, вечером дома качну, ок?
P.S. А если его запаковать, намного упадет объем?

[Bull]

Прости, если совет тебя обидит. Но посмотри в пространство модели, если ты в листе, и в пространство листов, если ты в модели. Может там чего лишнего? И ещё. Попробуй Purge запустить после разблокирования и включения всех слоёв и удаления примитивов. Тоже не уменьшается?...

[bleaker]

Сообщение от Кулик Алексей aka kpblc Мне на работе такой траф не поднять, вечером дома качну, ок? P.S. А если его запаковать, намного упадет объем?

Если паковать winrar-ом с максимальной степенью сжатия, то уменьшается процентов на 25-30.
Мне это не горит, все что нужно я уже сделал, но очень интересно выяснить что же там такого висит. Ну и на будущее для обмена рисунками конечно надо бы ужать все это дело.

[bleaker]

Сообщение от Bull Прости, если совет тебя обидит. Но посмотри в пространство модели, если ты в листе, и в пространство листов, если ты в модели. Может там чего лишнего? И ещё. Попробуй Purge запустить после разблокирования и включения всех слоёв и удаления примитивов. Тоже не уменьшается?...

Совет нисколько не может обидеть . Я в Автокаде не сильно соображаю... учись только потихоньку ), но в листе и в модели одно и тоже.
Если все примитивы снести и запустить _Purge, то размер действительно уменьшается и становится 42 кБ.

[AIK]

Скачал, глянул. Аудит показывает 1254536 объектов, которые сидят в блоках. Внутри блоков никаких вложенных блоков нет, откуда этакая пропасть примитивов непонятно. Все плоское. Такие приколы бывают обычно при конвертации из микростейшн, но судя по количеству и именам слоев файл родной кадовский. Интересно.

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

Чертовщина какая-то со скачкой. Если еще актуально, вышли мне на мыло.
P.S. Это звездец. Мало того, что гроза и 3 раза свет вырубало, так еще и у них

Файлы на сервере 1 (vip1 и dl1) могут быть недоступны из-за проблем на магистральном канале. Приносим извинения.

Сволочи...

[bleaker]

Вообще актуально конечно, если не затруднит разобраться с этой заморочкой. Выслал на мыло кусками по 4 мегабайта (7 писем, в одном письме все не уходило)

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

Ок. Попробую сегодня поковырять

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

Откровенно говоря, я не сильно удивлен такому весу. Посмотрите, например, на состав любого блока: дуг практически нет, все сделано полилиниями с достаточно большим количеством вершин; повторяющиеся элементы не сделаны блоками, и настройки состава блока тоже непонятные. Полное ощущение, что файл получен импортом из чего-то наподобие ProE / PT Modeler, только конвертер настроен странно. По идее надо сечения колес, гайки и болты делать блоками и вставлять уже их где надо. В крайнем случае заходить в каждый блок и выполнять overkill и _pedit над его составом - хоть что-то Но какие там будут тормоза... В общем, не могу сказать, что лично у меня все радужно и безоблачно. Может, у кого еще есть идеи?

[getr]

При выполнении кода из поста№10(макрос mypurge)акад выдает:
Command: mypurge
_.-purge
Enter type of unused objects to purge
[Blocks/Dimstyles/LAyers/LTypes/Plotstyles/SHapes/textSTyles/Mlinestyles/Tablest
yles/Regapps/All]: _r Enter name(s) to purge <*>: Verify each name to be
purged? [Yes/No] <Y>: _n
No unreferenced registered applications found.

Command: ; error: too few actual parameters
Чтобы это значило:" слишком мало фактических параметров"?
А если сделать как в посте №19,просто -purge ,затем r и n,то этой ошибки акад не выдает.

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

Слетает на проверке, все правильно, я один параметр там забыл. Надо так:

Код:

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

^C^C^P(defun c:mypurge () (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true));mypurge;

[getr]

Спасибо,щас заменим...

[Gmk17]

Offtop: Фигасе, вы откопали тему... 9-летний "мезозой".
Может всё-таки сюда: Помогите уменьшить размер файла DWG

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

Во блин! Спасибо. Эту тему закрываю, последние посты переношу.