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

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

Рекомендуемые сообщения

Макрос 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

Изменено пользователем JZY

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...

×
×
  • Создать...