[AndroiD]

Перед тем, как просить уменьшить объем файла, внимательно прочитайте FAQ: Как уменьшить объем файла dwg

Имеется некоторый файл созданный в AutoCad 2006, размер которого раздулся до 89 Мб. Файл - 2D чертеж с 14 типами динамических блоков (11 блоков содержат в среднем 15 примитивов, 3 блока 50 примитивов), блоки только объединяют примитивы, имеется вставленный растр размером 30 Мб, кроме этого чертеж содержит около 2000 объектов.
С файлом такого дикого размера невозможно работать: дикие тормоза, из пространства модели в пространства листа иногда нельзя перейти - выскакивает ошибка, программа закрывается.

История файла следущая.
До определенного момента времени работа с файлом не представляла трудностей, но после того как количество дин блоков достигло 200 штук (1блок откопированный до 200 раз) комп начал туго соображать, размер файла к этому моменту составлял порядка 1.5 Мб (вроде бы). Я принял решение разбить эти блоки.... Разбил... и видимо в следствии этого файл распух до дикого размера.

Вопрос: как уменьшить размер растолстевшего фала ничего в нем не удаляя.

Мой комп: Атлон64 3800, 2 Гб оперативы, количество свободного места на диске где установлен АКад 6 Гб, на диске котором располагается файл 4Гб.

ПС: команда purge показывает, что неиспользуемых элементов нет.

[ltnchik1405]

Сообщение от Кулик Алексей aka kpblc И чем этот файл отличается от #1575?

Аффтар жжёт и добавил ещё 2 листа.

Offtop: В нашем захолустье проблема с кадрами: старикам плохо даётся автокад, а у молодых, которые умеют в нём работать, не хватает опыта стариков да и таких не найти днём с огнём.

P.S. Забыл сказать. В конторе лицензионного автокада нет. Пользуемся НаноКадом 5.1 (это который бесплатный).

[doctorraz]

Сообщение от ltnchik1405 Аффтар жжёт и добавил ещё 2 листа.

я правильно понимаю, что рычагов давления на "аффтара" нет и проще просить помощи тут?
иначе впору создавать отдельную тему по приведению его произведений в человеческий вид
у него чего там .. core i10 32 ядра 256 гб оперативы и четыре супервидюхи с азотным охлаждением?
миллионер хоббит проектирования?

----- добавлено через ~2 мин. -----
хм.. сделать ПБЛОК аффтором для каждого листа его творения уже предлагали?

[ltnchik1405]

Сообщение от doctorraz я правильно понимаю, что рычагов давления на "аффтара" нет и проще просить помощи тут?

Да.

Сообщение от doctorraz у него чего там .. core i10 32 ядра 256 гб оперативы и четыре супервидюхи с азотным охлаждением? миллионер хоббит проектирования?

Спрашивал. Говорит обычный компьютер. Работает на дому. Домой не приглашает.

[doctorraz]

Сообщение от ltnchik1405 Говорит обычный компьютер

имха обычное вредительство, дабы стать еще более незаменимым

----- добавлено через ~5 мин. -----
но незаменимых как известно нет...
при таком раскладе.. лист= почищенный файл
нет и денег нет
иначе очень скоро поток желающих-экстремалов скачать и почистить файл 200 мб на этом и форуме наны закончится и этот суперспец станет для вас реально незаменимым.
ну или на сэкономленные деньги комп помощнее купите

[Юлиан]

Добрый день!
Люди помогите.
Стандартная здесь проблема: очень большой файл.
Выполнял все операции из гуглдока, но результата 0.
После Пблока файл только больше стал.
С такой проблемой столкнулся в первые, по этому если кто поможет буду очень признателен.!!!! Т.к. сам второй день ничего исправить не могу.

https://yadi.sk/d/283BHgTORLB2gw

[engngr]

Команда: (DICTREMOVE (namedobjdict) "Siberia")
<Имя объекта: 7ff64ecd6060>
- после этого вес 7,5 мб.

Сообщение от Юлиан Стандартная здесь проблема

А стандартная уже проблема здесь не в размере, а в содержании: там даже резьба на шурупах отрисована. Как же мне нравятся такие "классые" планы.

[AMDen]

Здравствуйте, коллеги!
Давно замечал, что чистка файлов по-разному проходит в зависимости от версии автокада.
Выкладываю файл, который максимально почистил как мог (словари, прокси и прочее). Возможно что-то упустил.
Последнее что делаю, пересохраняю файл командой ПБЛОК, всегда в версии файла 2010.
Если это делать в AutoCAD 2017, новый файл весит 2,2 Mb.
Если это делать в AutoCAD 2011, новый файл весит 800 kb.
Как можно (можно ли вообще) дочистить этот файл до минимального состояния в AutoCAD 2017?

[doctorraz]

в АК2018

[AMDen]

Сообщение от doctorraz в АК2018

ПБЛОК? или чем-то еще?

[doctorraz]

Сообщение от AMDen ПБЛОК? или чем-то еще?

только не смеяться, я лисп не умею, поэтому из глины и веток

@ECHO OFF
@chcp 1251
rem setlocal enabledelayedexpansion
set ftime=%time%
set count=0
FOR /r %%A IN (*.DWG) DO (
echo Обрабатываю %%A
"c:\Program Files\Autodesk\AutoCAD 2018\accoreconsole.exe" /i "%%A" /s "z:\clean_DWG\cleanConsole.scr" /l "en-US"
echo Перемещаю "%%A"
move /Y "%temp%\%%~nxA" "%%A"
set/a count=count+1
)
set ltime=%time%
set /a hours=%ltime:~0,2%-%ftime:~0,2%
set /a minutes=%ltime:~3,2%-%ftime:~3,2%
set /a seconds=%ltime:~6,2%-%ftime:~6,2%
if %seconds% LSS 0 (
set /a minutes=%minutes%-1
set /a seconds=%seconds%+60
)
if %minutes% LSS 0 (
set /a hours=%hours%-1
set /a minutes=%minutes%+60
)
if %hours% LSS 0 (
set /a hours=%hours%+24
)
set alltime=%hours%^:%minutes%^:%seconds%
echo _____________________________
echo Обработано файлов - %count%
echo Затрачено времени чч:мм:сс - %alltime%
echo _____________________________
pause

Код:

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

_layon
_laythw
(vl-cmdf "_wipeout" "_f" "_on")
(vl-cmdf "_-scalelistedit" "_r" "_y" "_e")
(vl-cmdf "_delconstraint" "_all" "")
(setvar "LAYEREVAL" 0)(setvar "LAYEREVALCTL" 0)(setvar "LAYERNOTIFY" 0)
;(vl-cmdf "_.-layer" "_e" "*" "")
(load "z:\\clean_DWG\\IMGDET&DUXI_VVA.lsp")
DUXI
IMGDET
(load "z:\\clean_DWG\\clean.LSP")
DR
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
WBOUT
_qsave
(vl-cmdf "FILEDIA" "1")

Код:

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

 
;сохраняем в темп по блок с тем же именем
;не помню чей подгон
(defun C:WBOUT(/ dn pa pawbdn)
(setq dn (getvar "dwgname"))
(setq pa (getenv "TEMP"))
;(setq pa (getvar "dwgprefix"))
(setq pawbdn (strcat pa "\\" dn))
(command "_.WBLOCK" pawbdn "*")
)
;мочим левые словари
;от крыс и VVA
; http://forum.dwg.ru/showthread.php?t=117145
(vl-load-com)
(defun c:dr (/ adoc)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (mapcar
    '(lambda (d)
       (vl-catch-all-apply
         '(lambda ()
            (if (and (not (wcmatch (strcase d) "ACAD_*"))
                     (not (wcmatch d "AcDb*"))
                     ) ;_ end of and
              (dictremove (namedobjdict) d)
              ) ;_ end of if
            ) ;_ end of lambda
         ) ;_ end of vl-catch-all-apply
       ) ;_ end of lambda
    (mapcar 'cdr
            (vl-remove-if-not
              '(lambda (x) (= (car x) 3))
              (entget (namedobjdict))
              ) ;_ end of vl-remove-if-not
            ) ;_ end of mapcar
    ) ;_ end of mapcar
  (repeat 3 (vla-purgeall adoc))
  (vla-auditinfo adoc :vlax-true)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

потом из АК2018 _recoverall,
SuperFlatten 2.0b beta от VVA на всякий случай
ПОДЧИСТИТЬ
и напоследок Purge
--------------
PS кстати батник с консольным АК почистил файл до ~850 кб за ТРИ секунды)))

[AMDen]

Спасибо, doctorraz!
Оказалось недочищал словари.
Использовал лисп из п. 13 гуглодока (DR). В вашем лиспе он другой, видимо доработанный крыс и VVA.
А возможно я слепой и не нашел его в гуглодоке. )

[doctorraz]

Сообщение от AMDen А возможно я слепой и не нашел его в гуглодоке.

в лиспе есть ссыль откуда я его взял

[engngr]

Сообщение от AMDen Оказалось недочищал словари.

Сибиииирь.

[Donhuan]

Чертеж с одним прямоугольником весит 2 Мб и жутко тормозит. При копировании объекта в новый чертеж, размер нового файла также увеличивается.

Все команды по очистке: purge, audit, explode (remove) proxy применены.

(DICTREMOVE (namedobjdict) "ACAD_DGNLINESTYLECOMP") для типов линий DNG тоже применял.

Результата нет.

Как очистить файл?

[Bull]

Donhuan, http://forum.dwg.ru/showthread.php?t=103878

[engngr]

Сообщение от Donhuan Как очистить файл?

Опять сибиииииииииииирь. Когда же кто-нибудь из тех, кто сюда пишет, будет читать тему?

[Bull]

Offtop: engngr, автор сюда и не заглядывал. Была отдельная тема.

[AMDen]

Сообщение от engngr Опять сибиииииииииииирь. Когда же кто-нибудь из тех, кто сюда пишет, будет читать тему?

Чтобы вычистить эту Сибирь, нужно прочитать каждое слово этой темы. Представленные в гуглодоке лиспы для чистки словарей являются базовыми (без наворотов гуру). Базовые лиспы не вычищают эту Сибирь. Далее идет ссылка на ветку форума, где эти лиспы улучшаются. Найти конечную лучшую версию лиспа тяжело.

[Зодчий1989]

Сообщение от engngr Опять сибиииииииииииирь. Когда же

Что это такое? не встречал...

[AlexCondor]

Сообщение от AMDen Базовые лиспы не вычищают эту Сибирь. Далее идет ссылка на ветку форума, где эти лиспы улучшаются. Найти конечную лучшую версию лиспа тяжело.

LISP. Очистка чертежа от мусора и нет проблем.