[Бася]

Уважаемые форумчане!
Есть файл - 66,5 мегабайт. Это один из файлов, которые нам выдал как подоснову Мосгоргеотрест.
Автокад виснет так, что просто нет слов - минут по 10-15 на вставку блока...
Что делать? Как можно оптимизировать.

Система - Windows 7 64bit, Intel I5- 3,20GHz, 16Гб ОЗУ

[Бася]

Добрый вечер всем!
Спасибо, что интерес не пропал, что крутите и вертите сие творение. А то я совсем приуныла в пятницу.
Завтра с новыми силами возьмусь за чертеж ( хотя надо уже результат показывать, а не эксперименты ставить).
П.с а что если все блоки деревьев переименовать ( по-моему есть команда -blockrename)?

[OlVish]

в Акаде в папке Sample\VBA есть BlockReplace.dvb
можно поробовать заменить однотипные блоки с номерами на один образец,
а его потом привести "в порядок"
(да, машина виснет не подетски)

[VVA]

Сообщение от Бася П.с а что если все блоки деревьев переименовать

Сообщение от OlVish можно поробовать заменить однотипные блоки с номерами на один образец,

Первое что пришло в голову. Анализ ситуации читай отсюда

[Olga_@@@]

Тоже посмотрела )) мдя.. файл неприятный, но не критично. С блоками несложно разобраться, если есть AutoCAD Civil или AutoCAD Map.
В двух словах:
1. экспорт в mif\mid, при этом имена блоков включить в Данные при экспорте
2. Открыть mid в текстовом редакторе и автозаменами исправить названия блоков.
3. Импорт из mif\mid c опцией вставка блока. Имя блока брать из таблицы.

Так можно обработать все блоки сразу.

Я понимаю, что описание получилось так себе, но если кому-то это реально нужно, могу описать подробно.

[Бася]

Сообщение от Аshаs-ка Все взорвал - 94 метра... Потер деревья - 23 метра... Там еще какие-то гадости наличествуют, похоже! Деревья - не самое страшное. Ну не будет на съемке "повернутых" деревьев... А вот направления стрелок линий электропередачи - это уже серьезнее. Одним словом, без вдумчивого ручного перелопачивания, пожалуй, не обойтись с этим файлом. Мы видим "собранный" файл. Нельзя ли получить доступ к файлам, из которых он состоит? Часть из них может оказаться вполне ничего себе, да и разбираться с деревьями проще в отдельном файле, если он есть?

потерли через ОЧИСТИТЬ?

Olga_@@@
Ольга, очень нужно! напишите, пожалуйста!

VVA
программа требует регистрации(((

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

Сообщение от Бася программа требует регистрации(((

Какая программа?

[Бася]

Кулик Алексей aka kpblc, http://forum.dwg.ru/showpost.php?p=1371891&postcount=24

Сообщение от VVA Программу я не тестировал, из заявленных возможностей Как вариант взорвать блоки и проверить заявленные возможности

[trir]

Civil/Map 3D

[Бася]

trir, пардон, не поняла

[trir]

Olga_@@@ говорит про Civil/Map 3D

[Бася]

trir, я поняла. Только в цивиле не знаю алгоритма. Посмотрела, а там экспорт в двг и пр. мид и миф не увидела. можете расписать? Пожалуйста!

[trir]

_mapexport

[Бася]

trir, Olga_@@@, подскажите, пожалуйста!
экспортирую через сивил. Но потом в этом файле нет блоков (ищу вручную и поиском). Эскпортировала все элементы. Что я не так делаю?

[Аshаs-ка]

Так переименовать наверное и в DXF можно, только как по маске переименовывать?
И работать надо не со сборкой, а с составляющими ее файлами. Сколько прошу выложить, давно бы коллективными усилиями челу помогли...
А чел Бася все не въезжает! Хнык!

[АлексЮстасу]

В принципе, эта задача частный случай для темы "Подготовка подосновы"...

Блоки заменить можно, но потеряются углы разворота у деревьев и пр. - см. #31.
А что делать с линиями, заключенными в блоки, при том, что линии в них разбиты на штрихи-пробелы и т.п.?

Может быть правильнее было бы этот файл перевести в pdf или в dwf, и использовать как подложку? Раз в двадцать легче будут.

В принципе же, стоит послушать VVA, и написать письмо в Мосгоргеотрест, что с так представленными файлами работать невозможно.

[АлексЮстасу]

Подолбился методом Olga_@@@ с блоками отдельных деревьев. Пробовал и другие методы типа замены блоков, в т.ч. и в MicroStation, через dxf - все тухло. Нда... Еще и компьютер дома слабенький - Автокад на каждое действие, где нужно просматривать файл, параметры элементов, задумывался минут на 10-15, наверное. Т.е. почти на каждое. Прерывал работу Автокада раз десять - не меньше.
Замены блоков все работают с заменой блоков одного типа на другой, а чтобы много разных типов блоков на один - такого вроде бы не нашел. И было чувство, что при такой замене результатов не дождусь.
Через dxf с последующей заменой названий пробовал, но потом сообразил, что внутри блоков другие блоки с разными именами, и может получиться много-много ошибок описаний. В т.ч. потому, что внутри блоков деревьев есть по два блока эллипса разной формы - круглых и овальных. Если все заменять на одно, то деревья будут либо из двух овалов, либо из двух окружностей. Ну и пр.
Так что в конечном итоге методом Olga_@@@ - через mif/mid. Заодно и сам научился

Даешь pdf/dwf! Или исходные нормальные файлы.


Сделал тем же методом пикеты - слой Горизонтали.

[gomer]

http://forum.dwg.ru/showpost.php?p=994734&postcount=28

Вот с помощью чуть поправленной программки отсюда я минут за 10 я уменьшил файл вдвое. Дальше лень было... так как 19 мб гораздо шустрее 38мб
указываем имя блока_####
указываем маску имен имя блока_*
чистим дважды чертеж

Код:

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

 (defun C:BBA ( / s1 s2 la ss st vt )

  (prompt "\nЗамена блока на блок.")
  (setq s2 (getstring T "\nЗадай имя нужного блока: "))
  (setq s1 (getstring T "\nЗадай имя заменяемого блока: "))
  (setq la (getstring T "\nСлой, где заменить блок или <На всех слоях>: "))
  (if (/= la "")
    (setq ss (ssget "x" (list (cons 2 s1) (cons 8 la))))
   (setq ss (ssget "x" (list (cons 2 s1))))
  )
  (setq st (ssname ss 0))
  (while st
    (setq ss (ssdel st ss))
    (setq vt (entget st))
    (setq vt (subst (cons 2 s2) (assoc 2 vt) vt))
    (entmod vt)
    (setq st (ssname ss 0))
  )
  (setq ss nil)
  (prin1)
)

[АлексЮстасу]

Сообщение от gomer Вот с помощью чуть поправленной программки отсюда я минут за 10 я уменьшил файл вдвое. Дальше лень было... так как 19 мб гораздо шустрее 38мб указываем имя блока_#### указываем маску имен имя блока_* чистим дважды чертеж

Почему дважды?

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

Команда: BBA Замена блока на блок. Задай имя нужного блока: msdElementTypeCellHeader( DEREVO ) Задай имя заменяемого блока: msdElementTypeCellHeader( DEREVO )_* Слой, где заменить блок или <На всех слоях>: ; ошибка: неверный тип аргумента: lselsetp nil

[gomer]

Сообщение от АлексЮстасу Почему дважды?

да не дважды а один раз одно, другой раз другое
нужный блок -это например: msdElementTypeCellHeader( GAZON )_55
Маска для него - это: msdElementTypeCellHeader( GAZON )_*
Слой - жмем энтер

имя нужного блока узнаем из (entget (car (entsel)))

[АлексЮстасу]

Сообщение от gomer нужный блок -это например: msdElementTypeCellHeader( GAZON )_55 Маска для него - это: msdElementTypeCellHeader( GAZON )_* Слой - жмем энтер имя нужного блока узнаем из (entget (car (entsel)))

Пока все то же.
Например, делаю так:

Команда: (entget (car (entsel))) Выберите объект: ((-1 . <Имя объекта: 7ee45530>) (0 . "INSERT") (330 . <Имя объекта: 7ee4edd8>) (5 . "22296") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DER") (62 . 7) (6 . "Continuous") (370 . 0) (100 . "AcDbBlockReference") (2 . "msdElementTypeCellHeader( DEREVO )_9775") (10 171.671 1480.06 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)) Команда: *Прервано* Команда: BBA Замена блока на блок. Задай имя нужного блока: msdElementTypeCellHeader( DEREVO )_9775 Задай имя заменяемого блока: msdElementTypeCellHeader( DEREVO )_* Слой, где заменить блок или <На всех слоях>: ; ошибка: неверный тип аргумента: lselsetp nil