[Alex II]

Dobryj den'!

Podskazhite, kakimi sposobami mozhno umen'shit' ves faila, esli mozhno? Fail vesit 13 megov, a hotelos'by u men'shit do 9. fail sohranjon v formate ACAD2004

Zaraneje blagodarju

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

[Pilot]

Для начала _purge

[Makswell]

Лучше _.wblock

[Alex II]

sdelal i purge i wblock, k sozhaleniju nastol'ko ne umen'shilsja

[Хмурый]

Установлены Express Tools?
Тогда команда overkill удаляет дублированные объекты.
Удалить, также, ненужные фильтры слоев, если есть.
Если к объектам прикреплены материалы для рендеринга, то вес файла уже не уменьшишь, только удалением материалов.

[ДИММ]

Разбейте файл на несколько.

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

Alex II, пользуйся www.translit.ru - ну тяжко читать твои высказывания, честно!
P.S. Файл выложи на любой файлообменник (типа ifolder.ru, depositfiles.ru, rapidshare.com) и здесь ссылку на него - расковыряют быстро

[Alex II]

Всем спасибо. Применил всё что написали, пришлось немного подрезать чертёж, но зато теперь влезает в 10мегов

[Vova]

http://dwg.ru/f/showthread.php?t=561...E5%F7%ED%E0%FF

[Shoorup]

Может кто подскажет лисп програмку для чистки пустых текстов (состоящий из одних пробелов). А то у нас оказывается таких текстов встречается довольно много в "умелых" чертежах

[Pilot]

Сообщение от Shoorup Может кто подскажет лисп програмку для чистки пустых текстов (состоящий из одних пробелов). А то у нас оказывается таких текстов встречается довольно много в "умелых" чертежах

Есть. Сейчас подготовлю и попробую выложить.

[Pilot]

Код:

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

(defun DelBt (v2 / s1 l1 t1 c1 c2 v1 c3)
(setq s1 (ssget "X" (list (cons 0 "TEXT")))
      c1 0 c3 0 wait0 nil)
(repeat (if s1 (sslength s1) 0)
   (setq t1 (cdr (assoc 1 (entget (ssname s1 c1)))) v1 T c2 1)
   (repeat (strlen t1)
      (if (/= (substr t1 c2 1) " ")(setq v1 nil))
      (setq c2 (1+ c2)))
   (if v1
      (progn
         (entdel (ssname s1 c1))
         (setq c3 (1+ c3))
         (princ "Удаление пустых строк")
      )
   )
   (setq c1 (1+ c1))
)
;(princ "\n")
(if (and v2 (/= c3 0))
   (alert (strcat "Рисунок очищен от " (itoa c3) " пустых текстовых примитивов.")))
(princ));DelBt

Вызов:
(DelBt nil)
или
(DelBt T)
в зависимости от парамерта выводится или подавляется сообщение о результатах очистки.

[Profan]

Сообщение от Shoorup Может кто подскажет лисп програмку для чистки пустых текстов (состоящий из одних пробелов). А то у нас оказывается таких текстов встречается довольно много в "умелых" чертежах

Вот еще:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19914dc
С помощью быстрого выбора можно выделить такие тексты. Свойство - Содержимое, Оператор - * Поиск с глобальными символами, Значение - ввести 1 (один) пробел.

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

Pilot, критику/пожелания примешь?

[Shoorup]

Pilot, спасиб за прожку. работает.

[Pilot]

Сообщение от Кулик Алексей aka kpblc Pilot, критику/пожелания примешь?

А как же! Давай!

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

Ну тогда лови:

1. Нет марок начала / конца отмены
2. Не отслеживается состояние слоев.
3. Не обрабатываются атрибуты (а они могут быть вставлены просто в модель или лист, я такое видел)
4. Не обрабатываются блоки (внутри блоков тоже могут быть пустые тексты). Соответственно нет фильтрации внешних ссылок - их надо весьма по-хитрому обрабатывать).
5. Самое интересное: многосточные тексты могут иметь внутри себя форматирование и быть "пустыми".

Вот примерно так. Я понимаю, что для достаточно редкой задачи и имеющегося решения достаточно Поэтому можешь принять мое высказывание как простое брюзжание

[Pilot]

Кулик Алексей aka kpblc
Что такое " марка начала/конца отмены"?

По прочим замечаниям.
Утилитка писалась не для универсального всеобщего использования, а для себя и своей рабочей группы, поэтому имелись ввиду некоторые ограничения:
- за слоями извольте следить сами;
- атрибутами не пользуемся;
- в блоках тексты встречаются нечасто, а тем более пустые тексты;
- внешними ссылками не пользуемся (чтоб не путать наших сельских заказчиков);
- многострочным текстом не пользуемся (я лично его просто ненавижу, но это так, к слову).

Если по какой-либо причине (заблокированные слои например) часть пустого текста окажется неудаленной, не страшно. Удалится в следующий сеанс, т.к. эта утилитка стоит в автозапуске.

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

Ну вот, уже и поворчать низзя
Марка начала - отмены именно тебе, получается, и не требуется, поскольку лисп стоит в автозапуске. Так что извиняй, батьку

[Shoorup]

Pilot, подскажи как еще повесить твой лисп на кнопку (^C^C_-purge;_all;;_no;(if (null CelBt)(load "DelBt"))(DelBt nil) ето не работает)
ЗЫ. С лиспом не дружу - так что не злиться. "Как пользоваться лиспом опубликованном на форуме" тоже чиатал - просто не знаю как для этой проги сделать. В ручную запускаю на ура.