Перейти к содержимому


- - - - -

Макрос VBA Excel для извлечения текста из таблиц в DWG файлах

таблицы текст excel

  • Вы не можете ответить в тему
В этой теме нет ответов

#1 JZY

    Новичок

  • Пользователи
  • Pip
  • 1 сообщений

Отправлено 04 Июль 2016 - 18:57

Макрос VBA Excel для извлечения текста из таблиц в DWG файлах на листы Excel. Поддержка работы с NanoCAD Free 5.
Запускаете файл Excel для NanoCAD. Включаете поддержку макросов, нажимаете ALT+F8, ждете, по завершении увидите сообщение «Tables importing done.»
Особенности макроса:
а) Поддержка 1000 файлов в папке максимум
б) Нет ограничений на количество таблиц в каждом DWG файле
в) Все данные из таблиц в DWG файлах будут вставлены с «Форматом ячеек» - «Текстовый»
г) Текст из объединенных ячеек таблиц в DWG файле будет вставлен в крайнюю левую ячейку
д) Все форматирование текста из таблиц в DWG файлах убирается – в соответствии с данной спецификацией
https://knowledge.au...2E5967-htm.html

Прикрепленный файл  Макрос VBA Excel для извлечения текста из таблиц в DWG файлах.zip   85,72К   38 Количество загрузок:

Добавлено:
Макрос VBA Excel для извлечения таблиц из линий, полилиний, текста из DWG файлов в Excel с помощью NanoCAD Free
Если Ваши таблицы, спецификации сделаны с помощью линий, полилиний, текста, то для исключения ручного копирования содержимого в ячейки Excel подойдет специальный файл Excel с макросом.
Порядок работы следующий:
1. Скачайте архив и откройте файл “Extract_Line_Tables_from_DWG_to_Excel_NanoCAD.xlsm”, который содержит необходимый макрос Excel.
2. После открытия файла Excel нажмите “ALT+F11”, откроется редактор Microsoft Visual Basic for Application, выберите в меню “Tools - References”, и добавьте в список галочки:
“nanoCAD Type Library (NCAuto.dll)”
“OdaX Type Library (OdaX_csd.dll)”,
нажмите OK.
3. Закройте редактор Microsoft Visual Basic for Application.
4. Включите поддержку макросов в Excel
5. Скопируйте все Ваши DWG файлы в ту же папку, что и файл с макросом Excel. Ваши DWG файлы должны содержать таблицы, созданные с помощью линий, полилиний, текста.
6. Нажмите “ALT+F8” для запуска макроса “Extract_Line_Tables_from_DWG_To_Excel_NanoCAD”.
7. Макрос откроет приложение NanoCAD и просканирует все таблицы, созданные с помощью линий, полилиний, текста во всех DWG файлах. Таблицы с каждого нового листа файла DWG будут расположены на отдельных листах файла Excel с макросом.

Возможности макроса и ограничения:
а) Максимальное число DWG файлов для сканирования – 1000.
б) Нет ограничений на количество таблиц на одном листе, либо листах в DWG файлах. Если на одном листе расположено несколько таблиц, то их расположение на листе будет зависить от их координат в DWG файлах.
в) Внешний контур каждой таблицы должен быть замкнут.
г) Каждая ячейка таблицы в DWG файле должна быть прямоугольной, ступенчатые ячейки приведут к ошибкам обработки.
д) Весь найденный текст в ячейках таблиц DWG файла будет расположен в ячейках Excel в порядке сверху вниз.
е) Все таблицы в DWG файлах должны быть созданы с помощью примитивов - линий, полилиний (2D полилиния), Текст, МТекст.
ё) Если ваши таблицы созданы из блоков линий, полилиний, расчлените их перед запуском макроса.
ж) Если текст в Ваших таблицах создан с помощью блоков из примитивов Текст, МТекст, также расчлените их перед запуском макроса.
з) Макрос “Extract_Line_Tables_from_DWG_To_Excel” поддерживает сканирование объединенных ячеек в DWG файлах с корректным выводом в Excel.
и) Макрос извлечет текстовые данные даже если не установлены необходимые файлы шрифтов SHX, в Вашей CAD программе вместо текста отображаются символы “?????????”.
й) Весь текст из DWG файлов будет скопирован в ячейки Excel со свойством «Текст»
к) Все форматирование текста будет очищено в соответствии с указанной спецификацией:
https://knowledge.au...2E5967-htm.html

Код макроса открытый, доступен по “ALT+F11”. Принимаются пожелания, замечания, отзывы и т.д.
Добавлено: 12.07.2016 - Обновил архив, устранил ошибку разбиения полилиний на сегменты

Прикрепленные файлы


Сообщение отредактировал JZY: 12 Июль 2016 - 07:15






Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 скрытых пользователей