Проектирование автомобильных дорог

Для того чтобы точки после экспорта в RoAD'е помечались определёнными условными знаками необходимо перед экспортом указать на соответствующую точке строку таблице курсором и на панели «Символы станций» выбрать нужный условный знак.

Если после экспорта в RoAD вычисленные координаты точек будут изменятся это приведёт к соответствующим изменениям координат точек на чертеже.

Результаты экспорта смотрите на рис. 5 и рис. 6.

Рисунок 5. Пример экспорта данных в Microsoft Excel.

Введённые данные вы также можете сохранить, нажав кнопку «Сохранить», либо открыть ранее сохранённые, нажав кнопку «Открыть»

Рисунок 6. Пример экспорта данных в RoAD.

Приложение 4. Руководство программиста программы «Теодолитный ход»

Программа написана на языке Object Pascal в среде Delphi 5 и оформлена в виде dll- модуля к редактору RoAD.

Формируемая в программе ведомость расчёта координат теодолитного хода хранится в визуальном компоненте Journayl типа TstringGrid. Ввод начальных данных в ведомость осуществляется с помощью компонент AngleEdit типа TAngleEdit (используется для ввода измеренных углов) и LengthEdit типа TMySpinEdit (используется для ввода измеренных длин сторон). Связь компонента Journayl с компонентами AngleEdit и LengthEdit осуществляется с помощью процедур и функций:

1. Procedure ReadDataFromGridAngle(ARow:integer) - считывает значение из ячейки таблицы которая находится в первом столбце и в строке с номером ARow, преобразует его в вещественное значение и передаёт его в компонент AngleEdit;

2. Procedure WriteDataInToGridAngle(ARow:integer) - значение находящееся в компоненте AngleEdit преобразует в строковое значение и записывает в ячейку таблицы которая находится в первом столбце и в строке с номером Arow;

3. Procedure ReadDataFromGridLength(ARow:integer) - считывает значение из ячейки таблицы которая находится в третьем столбце и в строке с номером ARow, преобразует его в вещественное значение и передаёт его в компонент LengthEdit;

4. Procedure WriteDataInToGridLength(ARow:integer) - значение находящееся в компоненте LengthEdit преобразует в строковое значение и записывает в ячейку таблицы которая находится в третьем столбце и в строке с номером ARow,

5. Function RadToStr(Val:extended):string - данная функция преобразует величину угла Val заданного в радианах в строку вида gg° mm? ss?? где gg - значение угла в градусах, mm - значение угла в минутах, ss - значение угла в секундах.

6. Function StrToRad(Str:string):extended - функция преобразует строку Str вида gg° mm? ss?? в величину угла заданного в радианах.

Все основные расчёты производятся в процедуре N4Click. В этой процедуре смотрится текущее значение компонента TypeComboBox типа TСomboBox в котором выбирается тип теодолитного хода и в соответствии с выбранным значением производится расчёт координат и заполнение оставшихся не заполненными столбцов таблицы Journayl.

Далее перечислены ещё несколько основных процедур:

1. Procedure SaveClick - осуществляет запись введённых данных в файл с расширением .tw.

2. Procedure OpenClick - осуществляет считывание ранее сохранённых данных и файла типа .tw.

3. Procedure ExportTextClick - экспортирует таблицу с расчётами и остальные данные в текстовый файл.

4. Procedure ExportExcelClick - экспортирует таблицу с расчётами и остальные данные в Microsoft Excel. Если в момент работы программы Microsoft Excel запущен, то в нём создастся файл с именем ВедомостьN.xls и сформируется ведомость. Если Microsoft Excel не запущен, то он запустится, если же на вашем компьютере Microsoft Excel не установлен, то никаких действий выполнено не будет.

5. Procedure ExportRoADClick - эта процедура создаёт в графическом редакторе RoAD точки с вычисленными координатами, и при надобности соединяет их линиями.

Размещено на Allbest.ru