Автоматический разбор трассовки в DWG/DXF

Hresult · 14.12.2013, 02:51

Прошу подсказать

Есть Alignment Sheets (трассовки) - "чертежи" участков вдоль трубопровода по 600-1000 м. Таких трассовок на трубу может быть под 100.
Каждая трассовка состоит из "плана" и "подвала". На плане показано плановое положение с картой, в подвале - распределение некоторых характеристик самой трубы по длине - профиль земли, профиль трубы, толщина стенки итд.
Каждая трассовка - один файл DWG/DXF.

Нужно получить данные из "подвала" как можно более автоматическим способом.
Пусть сначала профиль земли и трубы.
Профиль земли и трубы - это две полилинии, каждая в своем слое. Во всех файлах одинаково.
Хотелось бы найти такую программу, которая выводит координаты вершин полилиний в текстовый (или MS Excel) файл, указав только имена слоев.
Идеальный вариант - по пакету DWG/DXF файлов.
Хорошо бы VB, LISP - темный лес для нас.
Может кто поможет?

trir · 14.12.2013, 07:34

А если бы это было сделано в Civil'е - то не было никаких проблем...

Hresult · 14.12.2013, 07:52

Цитата:

Сообщение от trir

А если бы это было сделано в Civil'е - то не было никаких проблем...

А еще лучше в ГИС. Вообще ничего делать не надо было бы.
А так - это наша задача. И у нас только DWG файлы. Кто их делал, когда и как - в общем случае неизвестно.

Do$ · 14.12.2013, 09:55

Получить данные с чертежа для того, кто знаком с DXF Reference/API автокада - не проблема. Больше вопросов по тому, как планируется взаимодействовать с чертежом.
VB - это просто Visual Basic или VB.NET? В какой среде программу хотите запускать: в автокаде или в Windows без запуска автокада?
P.S. И, пожалуй, самый главный вопрос - сами собираетесь делать программу или привлекать кого-то?

trir · 14.12.2013, 12:11

Неа, задача не для ГИС, а именно для Civil'а. Я бы стал делать так:
1. Посадить съёмку по координатам и "сшить"
2. Сделать по ней поверхность
3. Проверить соответствие поверхности - исходными данным
4. Построить трассу трубопровода
5. Получить профиль трубопровода - и вот его мучить

Do$ · 14.12.2013, 12:22

-1. Купить Civil 3D
0. Настроить стили и каталоги.
И через месяц-два-год можно приступать к пунктам 1-5

А потом узнаешь, что далеко не все данные можно вытащить в подпрофильную таблицу из трубопровода.

trir · 14.12.2013, 12:25

-1. Взять trial
0. В топку стили - ведь нужны только данные

Hresult · 14.12.2013, 12:26

Цитата:

Сообщение от trir

Неа, задача не для ГИС, а именно для Civil'а. Я бы стал делать так:
1. Посадить съёмку по координатам и "сшить"
2. Сделать по ней поверхность
3. Проверить соответствие поверхности - исходными данным
4. Построить трассу трубопровода
5. Получить профиль трубопровода - и вот его мучить

Мы же как раз ГИС и делаем. Ну, пытаемся запихнуть данные в ГИС.
Сам план мы уже пристроили именно так. Это не вызвало трудностей. Рельеф нас не очень интересует. Пока...
Вот получить профиль именно по чертежу - это то, что хотим автоматизировать. Вариантов много - вопрос о том, как эффективнее.

trir · 14.12.2013, 12:30

Цитата:

Мы же как раз ГИС и делаем. Ну, пытаемся запихнуть данные в ГИС.
Сам план мы уже пристроили именно так. Это не вызвало трудностей. Рельеф нас не очень интересует. Пока...
Вот получить профиль именно по чертежу - это то, что хотим автоматизировать. Вариантов много - вопрос о том, как эффективнее.

Разрез по рельефу ведь строится: LineString+TIN=>разрез!!!

Hresult · 14.12.2013, 12:33

Цитата:

Сообщение от Do$

-1. Купить Civil 3D
0. Настроить стили и каталоги.
И через месяц-два-год можно приступать к пунктам 1-5

А потом узнаешь, что далеко не все данные можно вытащить в подпрофильную таблицу из трубопровода.

Есть у нас Civil 3D. И не только. И глобермаппер, и много чего еще.
И технология кое-какая есть, особенно по плановому положению.
И как тянуть координаты тоже в принципе понятно. Просто мороки много.
Хотим быстро и красиво.

И нам не надо В подпрофильную таблицу. Нам надо ИЗ.
И, действительно, только циферки. Расстояние - высота, итд.

Do$ · 14.12.2013, 12:35

Цитата:

Сообщение от trir

А если бы это было сделано в Civil'е - то не было никаких проблем...

Кстати, вполне возможно, что это и было сделано в Civil, а выдано в обычном ACAD формате через экспорт.

Hresult · 14.12.2013, 12:37

Цитата:

Сообщение от trir

Разрез по рельефу ведь строится: LineString+TIN=>разрез!!!

Это мы умеем без всяких автокадов. Далеко не всегда в DWG есть рельеф. Мы используем все доступные данные. NASA, к примеру.
Задача именно взять эти полилинии из чертежа. Там по дороге куча тоннелей, и профиль самой трубы только на чертеже есть.

trir · 14.12.2013, 12:44

Цитата:

которая выводит координаты вершин полилиний в текстовый (или MS Excel) файл

_list

или
Autodesk.AutoCAD.EditorInput.Editor.GetEntity(message As String)

ну и конечно:

Код:

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

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices

<CommandMethod("OpenCloseObjectId")> _
Public Sub OpenCloseObjectId()

  '' Get the current document and database
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
  Dim acCurDb As Database = acDoc.Database
  '' Open the Block table for read
  Dim acBlkTbl As BlockTable
  acBlkTbl = acCurDb.BlockTableId.Open(OpenMode.ForRead)
  '' Open the Block table record Model space for read
  Dim acBlkTblRec As BlockTableRecord
  acBlkTblRec = acBlkTbl(BlockTableRecord.ModelSpace).Open(OpenMode.ForRead)
  '' Step through the Block table record
  For Each acObjId As ObjectId In acBlkTblRec
      acDoc.Editor.WriteMessage(vbLf & "DXF name: " & acObjId.ObjectClass().DxfName)
      acDoc.Editor.WriteMessage(vbLf & "ObjectID: " & acObjId.ToString())
      acDoc.Editor.WriteMessage(vbLf & "Handle: " & acObjId.Handle.ToString())
      acDoc.Editor.WriteMessage(vbLf)
  Next
  '' Close the Block table record
  acBlkTblRec.Close()
  acBlkTblRec.Dispose()
  '' Close the Block table
  acBlkTbl.Close()
  acBlkTbl.Dispose()
End Sub

Hresult · 14.12.2013, 13:32

Цитата:

Сообщение от trir

_list

или
Autodesk.AutoCAD.EditorInput.Editor.GetEntity(message As String)

"За кефир отдельное спасибо".
AutoCAD у нас есть, только пользоваться не умеем...
Так что, еще раз спасибо.
По одному файлу уже, вроде, проясняется. Как по пакету?

Для нас, конечно, идеальный вариант - отдали DWGшки - получили таблицы.
Просто, DWGшки так вот своими руками отдавать, нехорошо. Заказчик не поймет.
Сейчас обсуждаю с моим админом, можно ли организовать удаленный доступ к вирт машине с кадом.
Ну, чтобы, если кто заинтересован в подработке, физически осуществить. Какое-то время надо для решения.
Заодно, ответ на вопрос здесь был, как мы собираемся...

trir · 14.12.2013, 14:13

Цитата:

По одному файлу уже, вроде, проясняется. Как по пакету?

А консольный АкАд - на что?

Do$ · 14.12.2013, 14:19

Цитата:

Сообщение от Hresult

По одному файлу уже, вроде, проясняется. Как по пакету?

Все зависит от ответов на мои вопросы в #4. Есть разные варианты - COM, NET, чтение/разбор структуры DXF...

Hresult · 14.12.2013, 14:27

Цитата:

Сообщение от Do$

Все зависит от ответов на мои вопросы в #4. Есть разные варианты - COM, NET, чтение/разбор структуры DXF...

Да все равно... Все, что не касается AutoCAD - мы можем. Разве, что DXF разбирать - моветон.

trir · 14.12.2013, 14:28

Цитата:

Разве, что DXF разбирать - моветон.

Наоборот, самый простой вариант, при котором даже АкАд не нужен!

Hresult · 14.12.2013, 14:37

Цитата:

Сообщение от trir

А консольный АкАд - на что?

Я глянул - идея понятная. Особенно хорошо PDFы строгать. Для нас надо ж какой-то скрипт писать, смотреть как его грузить при каждом старте...
Насчет _List команды я еще понял, но она в таком компоте не пойдет напрямую.
А Vb надо, чтобы программисты посмотрели...

----- добавлено через ~4 мин. -----

Цитата:

Сообщение от trir

Наоборот, самый простой вариант, при котором даже АкАд не нужен!

Да, а потом думай, какая версия DXF, что там в самом оператор наворотил. Можно, конечно, только как-то 2013 на дворе...

Do$ · 14.12.2013, 15:18

Цитата:

Сообщение от Hresult

Да все равно... Все, что не касается AutoCAD - мы можем.

Тогда, как я понимаю, вам нужно написать приложение под автокад, которое будет информацию вытягивать из чертежей и сохранять в нужном вам виде. Я бы это сделал с помощью .NET API. Он и по чертежам "пройтись" позволяет легко, даже не открывая их (визуально). И возможности по взаимодействию с другими приложениями, типа excel у него широчайшие. Автокад в этом случае будет как среда выполнения этой программы. То есть, его нужно будет запустить, подгрузить в него NET-плагин и запустить его на выполнение. Результатом выполнения будет какой-то файл с данными формата txt, xml, csv, xls... с нужным вам форматированием. Потом уже эти данные вы будете обрабатывать как-то своими средствами.
Насколько я знаю, все то же самое и даже немножко больше можно сделать с помощью COM API.
В принципе, с этой задачей может справиться и LISP-приложение. Эффективность будет ниже и больше мороки с такими вещами как вывод данных в нужном формате и многодокументная работа. Но эти вопросы решаемы, а в результате вы получите практически независимую от версии автокада программу(если будет грамотно написана).

loginovskiy · 16.12.2013, 13:57 **info**

Данные с профилей выудить можно и записать их в файл можно, но полного автомата не получится.
Есть такие понятия как условный горизонт, вертикальный и горизонтальный масштабы и пр.
Координат там вообще нет. Т.о. для получения реальных данных нужно не прсто взять линию поверхности, но и "перевычислить". Кроме того нужно будет как то привязать эти данные к реальному плану или местности, т.к. предполагается что это будет ГИС. Учитывая все это нужно будет либо вводить эти праметры с клавиатуры, либо "тыкать мышкой" на соответствующий текст.
Если задача актуальна, пишите на:loginovskiy_sn@mostovik.ru

----- добавлено через ~16 мин. -----
Повторно! Что то не вижу своего первого сообщения.

Данные с профилей выудить можно и записать их в файл можно, но полного автомата не получится.
Есть такие понятия как условный горизонт, вертикальный и горизонтальный масштабы и пр.
Координат там вообще нет. Т.о. для получения реальных данных нужно не прсто взять линию поверхности, но и "перевычислить". Кроме того нужно будет как то привязать эти данные к реальному плану или местности, т.к. предполагается что это будет ГИС. Учитывая все это нужно будет либо вводить эти праметры с клавиатуры, либо "тыкать мышкой" на соответствующий текст.
Если задача актуальна, пишите на:loginovskiy_sn@mostovik.ru

Boxa · 16.12.2013, 15:44

Что то идей на тему как реализовать нету, а 2 исполнителя уже нашлось. Может сюда переместиться http://forum.dwg.ru/forumdisplay.php?f=33 ?

Do$ · 16.12.2013, 16:16

А первый кто, я что ли?

Это вряд ли. Просто у меня уже был опыт программной обработки профилей трубопровода, мог бы что-то подсказать.
Раз нашелся исполнитель, не вижу причин ему мешать своими советами

Hresult · 16.12.2013, 19:38

Спасибо за помощь. Кое-что стало понятнее.
С исполнителями пока не получается. Отдавать DWG неправильно, а удаленный доступ админ обставляет разными рогатками.

Тут напряглись чуток и сваяли свой LISP скрипт, который разбирает подвал - профиль земли, трубы, подписи, и все выталкивает в XML с координатами и текстами.
Единственно что пока не получилось - чтобы все файлы из директории сразу. Приходится выбирать первый и жать GO (это так остроумно программу назвали). Он выводит XML и подгружает следующий, и опять GO.
Вот девочка сидит и жмет клаву. С другой стороны, лучше 70 раз нажать GO, чем склеивать профиля неделю.

Все оказалось не так страшно, просто нервов потратили немеряно. В 21 веке это выглядит, как Гуантанамо какой-то.

Дима_ · 16.12.2013, 22:04

Цитата:

Сообщение от Hresult

Приходится выбирать первый и жать GO

пожалейте девочку - посмотрите в поиск - не один десяток постов про кучу способов реализации пакетной обработки

Do$ · 16.12.2013, 23:24

Цитата:

Сообщение от Hresult

Единственно что пока не получилось - чтобы все файлы из директории сразу. Приходится выбирать первый и жать GO (это так остроумно программу назвали). Он выводит XML и подгружает следующий, и опять GO.
Вот девочка сидит и жмет клаву.

Оу! Как же я забыл про мегаинструмент ScriptPro?! http://forum.dwg.ru/showpost.php?p=989015&postcount=32
Он мне очень много времени и нервов в свое время сэкономил!

Hresult · 16.12.2013, 23:48

Я ж говорю, темные мы, автокада не знаем.
ScriptPro я скачал. Будем разбираться.
Спасибо еще раз.

VVA · 17.12.2013, 19:43

Цитата:

Сообщение от Hresult

Единственно что пока не получилось - чтобы все файлы из директории сразу. Приходится выбирать первый и жать GO (это так остроумно программу назвали).

Последовательное применение lisp-функции к множеству файлов DWG

Do$ дал ссылку на те же тему. Добавил п.6 про ScriptPro

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
почему трещит автомат АП	Jоhnny	Инженерные сети	35	29.03.2010 13:14