ПЗ (1218806), страница 7

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

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

Данная процедура позволяет установить графическое обозначение упора. Упоры требуются для обозначения тупикового пути.

Рисунок 53 – Иконка операции Упор

Описываемая процедура из ряда простых операций. После нажатия на иконку, у пользователя запрашивает угол отрисовки и точка установления упора (рисунок 54).

Рисунок 54 – Упор

Данный упор имеет объектную привязку, поэтому «привязать» данный объект к пути, не составит труда.

4.7 Процедуры корректирования путей

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

4.7.1 Операция сопряжения

Данная процедура необходима, если требуется скруглить два участка одного пути, расположенных под углом относительно друг друга. Пусть имеется станционных путь, участки которого представляют собой ломанную линию (рисунок 55). Можно сказать, что это станционный путь с резким углом поворота.

Рисунок 55 – Станционный путь с резким

углом поворота

Такие повороты железнодорожного пути обязательно должны быть сопряжены. Причем радиус должен быть достаточен, так как малый радиус поворота небезопасен для подвижного состава. Чтобы этого избежать, повороты должны иметь форму дуги. Для достижения такого результата, необходимо воспользоваться операцией сопряжения (рисунок 56).

Рисунок 56 – Операция сопряжения путей

Программа осуществит вызов диалогового окна, в область которого необходимо ввести радиус сопряжения пути (рисунок 57).

Рисунок 57 – Диалоговое окно

операции сопряжения

После ввода радиуса сопряжения, программа требует выделить первый сегмент линии, потом второй. После этого осуществляется сопряжение путей (рисунок 58).

Рисунок 58 – Результат работы операции сопряжения путей

Данная проектная процедура используется часто в построении плавного поворота подвижного состава.

4.7.2 Операция «Удлинение»

Удлинение является простой операцией, которая также необходима в проектировании железнодорожных станций. Иконка этой процедуры изображена на рисунке 59.

Рисунок 59 – Операция удлинить

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

4.7.3 Операция «Перенести»

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

Рисунок 60 – Операция перенести

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

4.7.4 Операция «Обрезать»

Функция Обрезать необходима, если существует некоторый лишний отрезок, который требуется удалить.

Рисунок 61 – Операция обрезать

Чаще всего, такая ситуация складывается при построении пересечения путей. Операция является простейшей и используется также часто, как и вышеописанная операция переноса.

5 Разработка инструментов проектирования

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

5.1 Разработка программного кода

5.1.1 Интерпретатор Visual Lisp

Первым, и самым основным содержанием разработки является написание программного кода для различных проектных процедур модуля. В среде AutoCAD имеется Visual Lisp – встроенный интерпретатор программного кода, который создан для написания, отладки и реализации программ [9].

Рисунок 62 – Окно интерпретатора Visual Lisp.

На рисунке 62 показан интерфейс интерпретатора Visual Lisp, который осуществляет интерпретацию программного кода в среду AutoCAD. После чего, можно производить запуск той или иной запрограммированной команды. Также осуществляется подсвечивание синтаксиса, что придает удобства в разработке.

По мере написания программного кода, было описано 44 пользовательских функций, которые в своей связке представляют собой все проектные процедуры данного модуля проектирования. Все сохраненные файлы программы, имеют формат расширения *.lisp.

5.1.2 Часто используемые функции

Язык AutoLISP, содержит не малое количество функций, которые заранее определены и зарезервированы. Имя функции можно писать как на верхнем, так и на нижнем регистрах. Функция вызывается как список, где первый элемент является именем функции. Остальные элементы этого списка, являются аргументами функции, если имеется их наличие.

Список функций AutoLISP, которые использовались при написании программы:

• (and <выражение>) – данная функция способствует выполнению логического «И» над определенным списком выражений. Функция возвращает значение «nil», если любое из выражений, находящихся внутри этой функции, также возвращает «nil», иначе «T»;

• (command <команда> <атрибуты>) – функция, в которой осуществляется выполнение каких-либо команд, например: построение полилинии, создание окружности, создание точки и т.д. В атрибутах, как правило задается переменная, в которой хранятся координаты точек, свойства примитивов и многое другое;

• (defun <символ> (<аргументы функции />) <выражение> …) – Объявляет функцию с именем <символ>. Имя, следующее за функцией – это список аргументов, который может быть пустым, за которым следует косая черта (slash). После косой черты пишутся локальные аргумента функции. За списком аргументов и локальных переменных следует одно или более выражений, которые вычисляются в процессе выполнения функции. Если имеется необходимость, сделать имя функции командой AutoCAD, которая бы вводилась в командную строку, то требуется перед именем функции поставить символ «C:», который расшифровывается как «command». Иначе, все встроенные функции, являются недоступными

Например, объявим функцию YYY, которая должна складывать два числа, и которая должна выполнятся после ввода ее имени в командную строку.

(defun C:YYY (/)

(setq A 5)

(setq B 4)

(setq C (+ A B))

)

Теперь, необходимо всего лишь ввести в командную строку имя функции «YYY», в результате чего произойдет суммирование чисел 5 и 4. Результат суммирования (число 9) отобразится в области командной строки;

• (distance <точка1> <точка2>) – функция возвращает расстояние между двумя заданными точками. Все координаты точек, в AutoLISP, хранятся в виде: p1 (100.00 50.00 0.00). Первое число, является значением по координате X, второе – по координате Y. Третье число, является величиной координаты Z, но она используется лишь в случае трехмерного проектирования объектов, а следовательно в данном модуле не используется;

• (getangle [текст]) – эта функция возвращает значение угла между двумя точками. Также, данная функция требует выбрать две точки на рабочей области AutoCAD. В качестве текста, может быть задан любой набор символов. Обычно, это оповещение, которое говорит о указании точек.

• (getint [текст]) – запрашивает у пользователя ввод любого числа в виде [текста] в область ввода возле курсора, после чего, возвращает его.

• (getpoint [текст]) – эта функция просит у пользователя выбрать любую точку на рабочей области и возвращает координаты этой точки.

• (getvar <имя переменной>) – функция, возвращающая значение системного переменной AutoCAD. Имя системных переменных, заключено в кавычки и определяется в независимости от регистра. Если пользователь введет не существующую системную переменную, данная функция возвратит значение «nil»;

• (if <тест-выражение> <выражение-тогда> [<выражение-иначе>]) – Функция исполняющая выражения по определенному условию. Если тест-выражение не «nil», тогда исполняется <выражение-тогда>, иначе исполняется <выражение-иначе>;

• (polar <точка> <угол> <расстояние>) – эта функция возвращает точку, находящуюся на определенном расстоянии, а также под определенным углом, который выражается в радианах;

• (prong <выражение> …) – эта функция вычисляет каждое выражение последовательно и возвращает значение последнего выражения. Данная функция полезна, если требуется выполнение нескольких операций в ветке условия if;

• (rtos <число> [<режим> [<точность>]]) – эта функция возвращает строковую константу, которая представляет <число> (действительная величина) в соответствии со значениями <режима>, <точности> и размерной переменной AutoCAD. <Режим> и <точность> – это целочисленные величины, которые назначают режим представления и его точность. В таблице 3 представлены все возможные значения <режима>;

Таблица 3 – Формат представления единиц измерения

• (setq <символ1> <выражение1> [<символ2> <выражение2>]…) – данная функция объявляет переменную с именем <символ1> и присваивает ей <выражение1>. Это основная функция присвоения в языке AutoLISP;

• (setvar <имя-системной переменной> <значение>) – эта функция присваивает системного переменной заданное значение и возвращает его. Имя системного переменной пишется в кавычках;

• (while <тест-выражение> <выражение> …) – Эта функция имеет принцип работы цикла. Вначале она вычисляет <тест-выражение> и, если оно не является «nil», вычисляет другие выражения, затем снова переходит к повторной проверке <тест-выражения> и т.д. Как только, <тест-выражение> перестанет быть истинным, функция завершит вычисление <выражения>.

– (exit) – данная функция осуществляет выход из программы. В этом модуле данная функция используется лишь в привязке к программам диалоговых окон. Весь программный код на языке AutoLISP, будет приведен в Приложении А.

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

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