Основы автоматизированного проектирования химических производств. Миронов В.М - 131 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

131
GETSTRING - ввод строки;
GETPOINT - ввод точки;
GETDIST - ввод расстояния;
GETANGLE - ввод угла.
При использовании последних трех функций следует предварительно указать
точку. Все эти функции можно использовать в виде
GETINT_<подсказка>...).
;Программа 2. Построение окружности
(DEFUN_OCR()
(SETQ_PC_(GETPOINT_"\n Введите центр_"))
(SETQ_R_(GETDIST_PC_"\n Введите радиус_"))
(COMMAND_"круг"_PC_R)
) ;Конец программы
8.5. Построение параметризированных изображений
Для такого построения требуется задавать геометрические объекты
"внутри программы", т.е. без участия пользователя. Одна из функций такого
рода - (QUOTE_<выражение>) – возвращает выражение, не вычисляя его.
Равносильные выражения: (QUOTE_A) = '(A).
Способы задания точки в программе:
1.
(GETPOINT).
2.
(QUOTE_1.0_1.0) = '(1.0_1.0) – точка с координатами 1,1.
3.
Задание точки через другую точку, находящуюся от нее на указанном
расстоянии под указанным углом: (POLAR_<точка>_<угол>_<расстояние>).
Угол следует указать в радианах, он отсчитывается от оси Х против часовой
стрелки.
4.
Точка пересечения двух отрезков:
(INTERS_<точка1>_<точка2>_<точка3>_<точка4>_<признак>);
<признак> – любое выражение AutoLISPа. Если признак имеет значение NIL,
то точка пересечения может быть вне отрезков на бесконечной длине. Если
же <признак> - отличен от NIL или отсутствует, то точка пересечения ищется
внутри отрезков. Если в этом случае такая точка отсутствует, то возвращает-
ся
NIL.
Функция (ANGLE_<точка1>_<точка2>) – возвращает действительное чис-
ло, равное углу в радианах, образованному прямой, проходящей через точку1
и точку2 и осью Х.
Функция (DISTANCE_<точка1>_<точка2>) - возвращает действительное
число, равное расстоянию между двумя точками.
;Программа 3. Квадрат с вписанной окружностью
(DEFUN_QUADR()

Страницы