Программирование в AutoCad. Салова И.А. - 46 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

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

Рубрика: 

46
7.6. Библиотека часто встречающихся функций
Обычно часто повторяющиеся в разных программах функции
располагают в отдельном файле. Таким файлом может быть ACAD.lsp
или файл ACADDOC.lsp. При запуске AutoCad всегда производится
поиск файла ACAD.lsp по библиотечному пути поиска. При обнаруже-
нии этого файла его содержимое загружается в оперативную память,
и функции становятся доступными для любой программы. По умол-
чанию файл ACAD.lsp загружается только один раз – при запуске
AutoCad. Если требуется, чтобы часто встречающиеся функции заг-
ружались всегда при открытии или создании чертежа, необходимо для
этих целей использовать файл ACADDOC.lsp, в который поместить
эти функции. Загрузкой файла ACAD.lsp с каждым вновь открывае-
мым чертежом можно управлять с помощью опции Load ACAD.LSP
with Every Drawing (Загружать ACAD.lsp с каждым рисунком), нахо-
дящейся на вкладке System (Система) диалогового окна Options (На-
стройка). Если этот флажок не установлен, в чертежи будет автома-
тически загружаться только файл ACADDOC.lsp. Оба файла
представляют собой обычные текстовые файлы. Ниже представлены
функции, которые могут составить основу файлов ACAD.lsp или
ACADDOC.lsp.
(defun _$rtd ($a) ; функция преобразования радианы в градусы
(* (/ 180.0 pi) $a)
(defun _$dtr ($a) ; функция градусы в радианы
(* (/ pi 180.0) $a)) (defun arcsin (x /)
; функция Arcsin угла, заданного в радианах
(cond
((= x 0.0) 0.0)
((= x 1.0) (/ pi 2))
((= x –1.0) (/ (- 0 pi) 2))
(t (atan (/ x (sqrt (abs (- 1 (* x x)))))))
)
)
(defun arccos (x /); функция Arccos угла, заданного в радианах
(cond
((= x 0.0) (/ PI 2.0))
((= x 1.0) 0.0)

Страницы