Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

(new_dialog "platform_high" dcl_id) – открывает диалоговое окно

(if (not (new_dialog "platform_high" dcl_id))(exit)) – если диалоговое окно не открылось завершить выполнение программы

Для описание действий, которые выполнить программа при нажатии на кнопки используется функция action_tile. В общем виде она выглядит так:

(action_tile "код" "LISP-выражение")

«код» – код выбранной кнопки.

«LISP-выражение», которое необходимо выполнить.

(action_tile "accept" "(raz_platform) (done_dialog 1)") – при нажатии на кнопку «ОК» выполнить пользовательскую функцию (raz_platform) и функцию (done_dialog 1).

Функция (done_dialog 1) – закрывает диалоговое окно и передает числовое значение, которое можно будет прочитать функцией (start_dialog).

(action_tile "cancel" "(done_dialog 0)") – если нажата кнопка «Отмена», закрыть диалоговое окно со значением «0».

(start_dialog) – считывает с каким числовым значением было закрыто диалоговое окно;

unload_dialog dcl_id) – выгружает диалоговое окно с порядковым номером dcl_id;

(princ) – вывод пустой строки.

Алгоритм построения низкой платформы такой же как и высокой, но с небольшими изменениями. На низких платформах могут устанавливаться настилы. Габаритное расстояние от оси пути до края платформы, для низких платформ должно быть 1,75 м.

4.3.2 Проектирование координатной сетки

Теперь приступим к реализации координатной сетки элементов промежуточной железнодорожной станции.

Так как рисование таблицы не требует большого количества исходных данных, было принято решение не использовать язык DCL, а воспользоваться возможностями AutoLISP.

(DEFUN c:coord_grid ( / tsz osm len k_table k_rect1 k_rect2 k_t1 k_t2 k_t3 k_t4 k_t5 k_t6 k_t44 k_t66)

(setq len (getint "\n Укажите полную длину станции")

k_table (getpoint "\n Укажите расстояние от оси OX \n")

y (cadr k_table)

k_table (list 0.0 y 0.0)

)

(setq len (getint "\n Укажите полную длину станции") – просит пользователя ввести полную длину станции, возможен ввод только целых чисел;

k_table (getpoint "\n Укажите расстояние от оси OX \n") – просит указать пользователя точку нижней границы таблицы;

y (cadr k_table) – извлекает значение координат по вертикальной оси и сохраняет их в переменную y;

k_table (list 0.0 y 0.0) – переназначает координаты базовой точки на ось OY для построения таблицы.

(setq k_rect1 (polar k_table pi (+ (/ len 2) 40))

k_rect1 (polar k_rect1 (/ pi 2) 45)

k_rect2 (polar k_table 0 (/ len 2))

k_t1 (polar k_rect1 (* 3 (/ pi 2)) 15)

k_t2 (polar k_rect1 (* 3 (/ pi 2)) 30)

k_t3 (polar k_rect1 0 30)

k_t4 (polar k_t3 (* 3 (/ pi 2)) 15)

k_t5 (polar k_t3 (* 3 (/ pi 2)) 30)

k_t6 (polar k_t3 (* 3 (/ pi 2)) 45)

k_t44 (polar k_rect2 (/ pi 2) 30)

k_t55 (polar k_rect2 (/ pi 2) 15)

)

Вычисляет координаты точек прямоугольника и вспомогательных точек для изображения строку и столбцов.

(setq tsz (getvar "textsize"))

(setq osm (getvar "osmode"))

(setvar "textsize" 3)

(setvar "osmode" 0)

Запоминает текущий размер текста и привязки пользователя в переменные tsz и osm соответственно. Затем изменяет размер текста и отключает привязки.

(command "_rectang" k_rect1 k_rect2 "")

(command "_line" k_t3 k_t6 "")

(command "_line" k_t1 k_t44 "")

(command "_line" k_t2 k_t55 "")

Строит таблицу по указанным точкам.

(command "_mtext" k_rect1 "_j" "_mc" k_t4 "X" "")

(command "_mtext" k_t1 "_j" "_mc" k_t5 "Y" "")

(command "_mtext" k_t2 "_j" "_mc" k_t6 "Название\nточки" "")

(setvar "textsize" tsz)

(setvar "osmode" osm)

Заполняет ячейки с названиями строк. Текст выравнивается по центру ячейки. Возвращает размер текста и привязки пользователя, установленные перед выполнением программы.

Теперь следует реализовать простановку координат элементов с подписями в координатную сетку.

Так как при простановке координат требует проводить штриховую линию к таблице, необходимо реализовать проверку на существование штрихового типа линии в базе данных по аналогии с проверкой существования штрихпунктирной линии в функции mp_platform_high.

(DEFUN c:mp_coord_center_turnout (/ tsz osm clt numb k_m0 x_m0 y_m0 k_txt1 k_txt2 k_txt3 name k_ln dcl_id ddi)

(if (not (tblsearch "ltype" "ACAD_ISO02W100")) (alert "Загрузите штриховую линию ACAD_ISO02W100")

(if (not (tblsearch "ltype" "ACAD_ISO02W100")) (alert "Загрузите штриховую линию ACAD_ISO02W100") – проверяет существования штрихового типа линий в базе данных AutoCAD. Если таковой не найдено, выводится сообщение об ошибке, выполнение программы останавливается.

Так как на станции не малое количество центров стрелочных переводов, столбиков и светофоров и параллельных соединений. Было принято решение:

• для простановки координат часто используемых элементов станции использовать цикл, счетчик которого после каждой итерации увеличивается на 2;

• в цикле должна присутствовать возможность остановки пользователем.

В связи с этим добавим диалоговое окно на языке DCL, в котором будет вводиться начальное значение счетчика.

coord: dialog {label = "Координаты элементов";

: edit_box {label = "Нумерация с:"; key = "numb"; edit_width=5; value = "";}

ok_cancel;

}

Coord – название диалога, по которому оно будет вызываться;

По умолчанию текстовое поле пустое, это сделано для удобства использования.

(DEFUN count ()

(setq numb (atoi (get_tile "numb")))

)

Функция получения начального значения счетчика из диалогового окнаи сохранения его в переменную numb.

Далее следует функция рисования. По аналогии с вышеуказанными примерами, запоминаем привязки пользователя, размер текста и тип линии.

(while (< numb 999)

(setq k_m0 (getpoint "\n Укажите центр стрелочного перевода \n")

x_m0 (car k_m0)

y_m0 (cadr k_m0)

k_txt1 (list (+ x_m0 1) (+ y 31) 0.0)

k_txt2 (list (+ x_m0 1) (+ y 16) 0.0)

k_txt3 (list (+ x_m0 1) (+ y 4) 0.0)

x_m0 (rtos x_m0)

y_m0 (rtos y_m0)

numb (itoa numb)

name (strcat "ЦСП" numb)

numb (atoi numb)

numb (+ numb 2)

)

Запуск цикла с предусловием. В теле цикла вычисляются координаты точек, которые впоследствии будут использованы для заполнения текста. Перевод числовых значений в строковые с последующим склеиванием с названием элемента. Перевод строкового значения счетчика в целое и увеличение счетчика на 2.

(if (= numb 2) (setq name "ЦСП"))

Так как не принято обозначать элементы с нуля, проверяем начальное значение счетчика. Если оно было пустое, оставить название элемента без нумерации.

(command "_text" k_txt1 "2" "90" x_m0 "")

(command "_text" k_txt2 "2" "90" y_m0 "")

(command "_text" k_txt3 "2" "90" name "")

Вставка текста координат и названия элемента в места, заранее указанные точками k_txt1, k_txt2, k_txt3. Размер текста равен 2, угол поворота 90 градусов. Двойные кавычки имитируют нажатие клавиши «Enter».

(setq x_m0 (atof x_m0)

k_ln (list x_m0 y 0.0)

)

(command "_line" k_m0 k_ln "")

(setvar "textsize" tsz)

(setvar "osmode" osm)

(setvar "CELTYPE" clt)

Чертить штриховую линию от указанного элемента к таблице. Возвращает размер текста, привязки и тип линии.

Простановка координат для предельных столбиков, светофоров, упоров и вершин угла реализуются таким же способом, за исключением упоров. Упор не имеет цикла, так как всегда проставляется без номера.

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

4.4 Создание файла адаптации

Для реализации переносимости модуля на другие компьютеры требуется создать файл частичной адаптации рабочего пространства. Чтобы его создать необходимо в диалоговом окне «Адаптация пользовательского интерфейса» перейти во вкладку «Перевести» и в правой части окна в выпадающем списке выбрать «Новый файл» (рисунок 30). После этого необходимо сохранить его с расширением .ciux.

Рисунок 30 – Адаптация пользовательского интерфейса

После того как создали файл частичной адаптации, необходимо настроить какие элементы интерфейса он будет содержать. Для этого следует перейти обратно во вкладку «Адаптация», и в блоке «Адаптация: Все файлы» необходимо открыть созданный ранее файл частичной адаптации.

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

Чтобы добавить новые команды, необходимо в нижней части окна в списке команд добавить новую команду и заполнить все необходимые поля.

После того как все необходимые команды добавлены, необходимо определиться с их расположением в рабочем окне AutoCAD. Команды могут быть расположены: на панели быстрого доступа, на ленте.

Решено было организовать команды на ленте в новой вкладке с названием «САПР ЖС». После создания всех панелей, вкладок и добавления в них команд, файл частичной адаптации выглядит следующим образом (рисунок 31).

Рисунок 31 – Иерархия элементов

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

Последним шагом для адаптации пользовательского интерфейса необходимо в выпадающем списке выбрать «Все файлы адаптации», выбрать «Рисование и аннотации», и в правой части в окна в блоке «Содержимое рабочего пространства» нажать «адаптация рабочего пространства». Для сохранения изменений в пользовательском интерфейсе нажать «Применить», затем нажать «Ок».

Для установки модуля нужно проделать следующее:

1. скопировать папку SAPR_JS в любую папку, к которой пользователь имеет доступ;

2. в рабочем окне AutoCAD перейти на вкладку «Управление» и нажать «Загрузить приложение»;

3. в появившемся диалоговом окне в блоке «Автозагрузка» нажать «Приложения…» и добавить файл gridiron.lsp из папки SAPR_JS в автозагрузку;

4. в рабочем окне AutoCAD в левом верхнем углу выбрать «Параметры», или написать в командную строку «_options»;

5. в диалоговом окне перейти на вкладку «Файлы» из списка выбрать «Путь доступа к вспомогательным файлам» и нажать кнопку «Добавить»;

6. указать полный путь к папке SAPR_JS;

7. сохранить изменения, нажав кнопку «Применить» и «ОК».

Теперь при каждом запуске AutoCAD автоматически будет загружаться модуль для проектирования элементов путевого развития промежуточных станций.

5 ТЕХНИКО-ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ ПРОЕКТА

В данном разделе представлено технико-экономическое обоснование разработки модуля для проектирования элементов путевого развития промежуточных станций.

5.1 Обоснование целесообразности разработки проекта

Безопасность движения и эффективность организации перевозочного процесса являются основными слагаемыми для удовлетворения потребности в перевозках грузов и пассажиров железнодорожным транспортом. Значительную роль в обеспечении этой работы имеют раздельные пункты.

Промежуточные станции являются наиболее распространенным типом раздельных пунктов. Кроме операций, выполняемых обычно на разъездах и обгонных пунктах, на промежуточных станциях также производится: обслуживание пассажиров, погрузка, выгрузка и хранение грузов, багажа и почты; маневровые операции по отцепке и прицепке вагонов к сборным поездам и взвешивание вагонов; обслуживание подъездных путей; оформление документов на перевозку. На промежуточных станциях предусматриваются устройства для обслуживания пассажирского и грузового движения и производства грузовых операции.

Модуль для проектирования элементов путевого развития создан с помощью современного языка программирования AutoLISP, который зарекомендовал себя как эффективный инструмент для автоматизации проектирования в системе AutoCAD. Созданный модуль призван увеличить скорость работы проектировщика при проектировании путевого развития промежуточных станций.

5.2 Планирование комплекса работ по разработке модуля

Для разработки было задействовано два человека: руководитель проекта и исполнитель (программист).

Руководитель выполняет постановку задачи, курирует ход работ и дает необходимые консультации при разработке модуля. Исполнитель отвечает за проектирование пользовательского интерфейса, программирование необходимых процедур, реализацию возможности массового использования [20].

Процессы жизненного цикла программных средств, устанавливающих стадии разработки программных продуктов, приведены в таблице 2.

Таблица 2 – Комплекс работ по разработке проекта

Продолжение таблицы 2

5.3 Расчет затрат на разработку проекта

Капитальные вложения, связанные с автоматизацией обработки информации, рассчитываются по формуле

Характеристики

Список файлов ВКР