Список форумов Конференция САПР Bentley MicroStation Конференция САПР Bentley MicroStation
www.ustation.ru
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Как отрисовать линии по координатам из текстового файла?

 
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное
Предыдущая тема :: Следующая тема  
Автор Сообщение
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 и т.д.


Что может быть проще Smile

Код:

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
Учите мат.часть! Wink
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
jeder



Зарегистрирован: 28.08.2006
Сообщения: 10

СообщениеДобавлено: Вт Окт 31, 2006 10:57 am    Заголовок сообщения: Ответить с цитатой

Спасибо, Leonid!
И правда всё довольно просто Embarassed Smile
Я только в самом начале пути Smile
Хорошо, что есть где и кого спросить, и есть люди, которые могут помочь!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group