ОСНОВЫ ПРОЕКТИРОВАНИЯ. ХИМИЧЕСКИХ ПРОИЗВОДСТВ. И ОБОРУДОВАНИЯ

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

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

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

Команда: Введите длину Команда: Укажите точку привязки Аппарат вычерчивается после завершения ввода.

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

(setq 1 (getreal «и Введите длину «))

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

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

(setq bl (polar b 0.0 1))

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

(setq kl (polar k 0.0 1))

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

(setqk3 (polar k2 0.0 1))

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

(setqk5 (polar k4 0.0 1))

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

(setqk7 (polar k6 0.0 1))

(setq zl (polar k6 0.0 1))

(setq s 2/5)

(setq kl 1 (polar k 0.0 s))

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

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

(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 «« zl p «и»)

(command «зеркало» kl 1 k21 k31 k41 «« zip «и»)

(command «освежи»)

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

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