Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
jeder
Зарегистрирован: 28.08.2006 Сообщения: 10
|
Добавлено: Пн Окт 30, 2006 12:25 pm Заголовок сообщения: Как отрисовать линии по координатам из текстового файла? |
|
|
Имеем текстовый файл следующего формата:
X1,Y1,Z1,текст1
X2,Y2,Z2,текст2
.............
Xn,Yn,Zn,текстn
(вместо "," может быть пробел)
Как спомощью VBA отрисовать линии и в вершинах текст.
Больше всего интересует, как считать данные из текстового файла, т.е. чтобы текст X1 был воспринят, как число X1, текст Y1, как число Y1 и т.д.
Заранее благодарен всем! |
|
Вернуться к началу |
|
|
ВалВл
Зарегистрирован: 08.02.2006 Сообщения: 138
|
Добавлено: Пн Окт 30, 2006 1:03 pm Заголовок сообщения: |
|
|
Извечная мечта программистов: как одним махом решить вопрос с козой, капустой и волком...
У Вас ещё и другая проблема: назначить порядок обхода оточек линиями.
Я перегоняю текстовой файл в DXF, подключаю к DGN, а дальше ручками...ручками... |
|
Вернуться к началу |
|
|
jeder
Зарегистрирован: 28.08.2006 Сообщения: 10
|
Добавлено: Пн Окт 30, 2006 2:03 pm Заголовок сообщения: |
|
|
ВалВл писал(а): | Извечная мечта программистов: как одним махом решить вопрос с козой, капустой и волком...
У Вас ещё и другая проблема: назначить порядок обхода оточек линиями.
Я перегоняю текстовой файл в DXF, подключаю к DGN, а дальше ручками...ручками... |
1. По сути, вопрос один: "как считать данные из текстового файла, т.е. чтобы текст X1 был воспринят, как число X1, текст Y1, как число Y1 и т.д.?" Решив эту проблему (видимо создав массив) можно отрисовывать линии, полилинии, дуги (по трём точкам) и т.д.
2. Порядок обхода задан в самом файле, т.е. точки идут по порядку.
3. Я для импорта точек (в MS8) пользуюсь: Инструменты/Аннотация/XYZ текст/Импорт координат. Спомощью этого инструмента можно вставлять точки или фрагменты или тескт. "А дальше ручками...ручками..."
Но зачем ручками, когда есть VBA?
Кто знает как, подскажите! |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пн Окт 30, 2006 7:08 pm Заголовок сообщения: Re: Как отрисовать линии по координатам из текстового файла? |
|
|
jeder писал(а): |
Больше всего интересует, как считать данные из текстового файла, т.е. чтобы текст X1 был воспринят, как число X1, текст Y1, как число Y1 и т.д.
|
Что может быть проще
Код: |
Dim iFile As Integer
Dim sLine As String
Dim ar() As String
Dim x As Double
Dim y As Double
Dim z As Double
Dim s As String
iFile = FreeFile
Open "c:\myfile.txt" For Input As iFile
Do
Line Input #iFile, sLine
ar = Split(sLine, ",")
If UBound(ar) = 3 Then
x = Val(ar(0))
y = Val(ar(1))
z = Val(ar(2))
s = ar(3)
' process point...
Debug.Print x, y, z, s
End If
Loop Until EOF(iFile)
Close iFile
|
2 jeder
Учите мат.часть! |
|
Вернуться к началу |
|
|
jeder
Зарегистрирован: 28.08.2006 Сообщения: 10
|
Добавлено: Вт Окт 31, 2006 10:57 am Заголовок сообщения: |
|
|
Спасибо, Leonid!
И правда всё довольно просто
Я только в самом начале пути
Хорошо, что есть где и кого спросить, и есть люди, которые могут помочь! |
|
Вернуться к началу |
|
|
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
Powered by phpBB © 2001, 2005 phpBB Group
|