Перейти к содержанию

JZY

Пользователи
  • Публикаций

    1
  • Зарегистрирован

  • Посещение

Репутация

0 Обычный

Информация о JZY

  • Звание
    Новичок
  1. Макрос 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 Добавлено: Макрос 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 - Обновил архив, устранил ошибку разбиения полилиний на сегменты Extract_Line_Tables_from_DWG_to_Excel.zip
×
×
  • Создать...