Основы проектирования химических производств

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

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

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

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

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

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

;Функция черчения колонного аппарата (defun c;q()

(setq I (getrea! «п Введите длину »))

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

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

(setq bl (polar b 0.0 !))

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

(setq kl (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 z I (polar k6 0.0 1))

(command «линия» p «111» «0» «0» b bl zl «»)

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

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

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

(command «отрезок» k6 k7 «»)

(setq s 2/5)

(sctqkll (polar k 0,0 s))

(setq k21 (polar k2 0.0 s))

(setq k31 (polar к4 0.0 s))

(setq к41 (polar кб 0.0 s))

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

(command «зеркало» kll k2l k31 k4l «»zl р«н»);

(command «освежи»)

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

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