Либо через автокад, либо через вот такой скрипт:
Sub Coordinates2File()
On Error GoTo err_ssub
Dim OCounter As Long, MaxIndex As Long
Dim NewX As Double, NewY As Double
Dim OutputFName As String, OutputPipe As Long
MaxIndex = ActiveDocument.ActivePage.ActiveLayer.Shapes.Count
OutputFName = ""
OutputFName = InputBox("Число объектов в активном слое:" & MaxIndex & ". Введите имя выходного файла для координат объектов", "Имя выходного файла")
If OutputFName = "" Then Exit Sub
OutputPipe = FreeFile
Open OutputFName For Output As #OutputPipe
Print #OutputPipe, "X,Y"
For OCounter = 1 To MaxIndex
NewX = ActiveDocument.ActivePage.ActiveLayer.Shapes.Item(OCounter). PositionX
NewY = ActiveDocument.ActivePage.ActiveLayer.Shapes.Item(OCounter). PositionY
Write #OutputPipe, NewX, NewY
Next OCounter
Close #OutputPipe
Exit Sub
err_ssub:
Select Case Err
Case Else
Call MsgBox(Title:="Ну... вобщем какая-то ошибка. На всякий случай прекращаю выполнение", Prompt:=Err & ":" & Error(Err), buttons:=vbCritical)
Close #OutputPipe
Exit Sub
End Select
End Sub
Этот скрипт собирает координаты
каждого объекта в активном документе в текущем слое и выдаёт их в
указанный файл.
Как его запустить: когда на текущем слое (или просто в документе corel)
собраны все объекты скважин, запускай редактор Visual Basic (меню
"Tools" - "Visual Basic" - "Visual Basic Editor").
Там слева будет окно со списком проектов. Надо выбрать VBAProject
текущего документа (лучше закрой лишние документы в corel, чтобы не
запутаться). Далее вставь в текущий документ модуль: меню "Insert" -
"Module". А в этот модуль нужно вставить сам текст скрипта (через
буфер обмена). Теперь запускай его (по клавише [F5]). Он выдаст
число объектов в текущем слое и спросит имя выходного файла. Лучше
ввести имя вместе с путём (напр. "S:\Trash\coord.txt"), поскольку я не
знаю, где именно он решит его создать. Всё. Файл с координатами готов.
В ArcMap можно вставить слой событий прямо из этого файла. Но, не знаю
как ваша версия ArcMap, а наша корректно работает с текстовыми файлами
только если стоят американские региональные установки. Кроме того,
если работаете с базой геоданных, то желательно, а иногда просто необходимо
привести координаты объектов в соответствие с координатным доменом
текущего набора пространственных объектов (например в EXCELе).
