Пример использования АвтоЛиспа

В наиболее ходовой системе АвтоКад имеется возможность программирования чертежных работ на языке высокого уровня – АвтоЛисп. Язык АвтоЛисп включает встроенные функции и обеспечивает возможность реализации операций над двух- и трехмерными графическими объектами. Использование АвтоЛиспа для автоматизации рутинных чертежных операций с созданием графической базы данных позволяет пользователю уделять больше внимания задачам расчета. АвтоЛисп содержит некоторое число заранее определенных встроенных функций и функций, определенных пользователем. Каждая функция вызывается как список, первым элементом которого является имя функции, а остальные элементы – аргументами функции.

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

Команда: Введите длину

Команда: Укажите точку привязки

Аппарат вычерчивается после завершения ввода.

;Функция черчения колонного аппарата

(defun c:q()

(setq l (getreal «n\ Введите длину »))

(setq p (getpoint «\n Укажите точку привязки »))

(setq b (polar p (/ pi 2)))

(setq b1 (polar b 0.0 1))

(setq k (polar p (/ pi 2) (* 0.1 1)))

(setq k1 (polar k 0.0 1))

(setq k2 (polar p (/ pi 2) (* 0.3 1)))

(setq k3 (polar k2 0.0 1))

(setq k4 (polar p (/ pi 2) (* 0.5 1)))

(setq k5 (polar k4 0.0 1))

(setq k6 (polar p (/ pi 2) (* 0.7 1)))

(setq k7 (polar k6 0.0 1))

(setq z1 (polar k6 0.0 1))

(setq s 2/5)

(setq k11 (polar k 0.0 s))

(command «плиния» p «Ш» «0» «0» b b1 z1 «»)

(command «отрезок» k k1 «»)

(command «отрезок» k2 k3 «»)

(command «отрезок» k4 k5 «»)

(command «отрезок» k6 k7 «») (setq k21 (polar k2 0.0 s))

(setq k31 (polar k4 0.0 s))

(setq k41 (polar k6 0.0 s))

(command «зеркало» b «» z1 p «н»)

(command «зеркало» k11 k21 k31 k41 «» z1 p «н»)

(command «освежи»)

); Конец функции

Рис. 2.2. Схема установки для ректификации трехкомпонентной смеси: 1 – ректификационные колонны; 2 – испарители кубового остатка; 3 - дефлегматоры

В качестве примера использования АвтоКада для вычерчивания технологической схемы рассмотрен процесс трехкомпонентной ректификации (рис. 2.2). Исходная смесь, состоящая из трех компонентов А, В и С, где компонент А более летуч, чем В, а В – более летуч чем С, направляется на разделение в левую ректификационную колонну (1). С верха колонны отбирается смесь компонентов А и В, а из куба удаляется компонент С. Смесь компонентов А и В подается на разделение в правую колонну (1), где происходит удаление с верха колонны компонента А, а из куба – компонента В. Наряду с ректификационными колоннами на схеме показаны испарители (2) и дефлегматоры (3).

Г л а в а 3

________________________________________________________________

СИСТЕМЫ АВТОМАТИЗИРОВАННОГО
ПРОЕКТИРОВАНИЯ

________________________________________________________________