Программирование в AutoCAD 2

Функция связи с AutoCAD

Функция выполняет команды AutoCAD
(command [аргум1]… [аргумN]) → nil
Аргументы
Имена

Функция связи с AutoCAD

(setq y "0,0")
(command "_line" "10,10" y '(10 15)

Функция связи с AutoCAD

В функцию Command не могут быть вложены функции

Функции обработки списков

(Car список) → первый элемент списка
(Car ‘(x y z))

Функции обработки списков

(Cdr список) → список без первого элемента
(Cdr ‘(10 20

Функции обработки списков

(C…R список) - композиция функций Car и Cdr
Порядок применения

Функции обработки списков

(Cons НПЭ список) → список, дополненный новым первым элементом
(Cons

Функции обработки списков

(Nth n-1 список) → n–ный элемент списка
(Nth 0

Формирование списков

(List S-выраж1… S-выражN) → список
(Setq x 10.0 y 20.0 z

Функции обработки списков

(Append список1… списокN) → объединение нескольких списков в один

Функция Atom

(Atom S-выраж) → t или nil
(Setq a ‘(x y z)

Функция Eq-физическое равенство

(Eq S-выраж S-выраж) → t или nil
Проверяет равенство указателей

Функции ввода данных

Создают паузу для интерактивного ввода информации
Подсказка – текст в

Функции ввода данных

(Getangle [point] [подсказка]) ввод значения угла в радианах (Real)

Функции ввода данных

(Getpoint [point] [подсказка]) ввод координаты точки (List)
(Getreal [подсказка]) ввод

Геометрические функции

(Distance point1 point2) – расстояние между двумя точками (Real)
(Distance ‘(1.0

Геометрические функции

(Polar pt a d) – координата конца вектора, который выходит

Функция для определения пользовательской функции

(Defun Имя ([fp1…fpn] [ / lp1…lpm]) Тело

Функция для определения пользовательской функции

(defun c:breakat () (command “_break” pause “f” “@”)
Расширение

Ввод комментария

;;; - выравнивание комментария по левому краю
;; - уровень вторых

Функции работы с примитивами

(Entlast) → имя последнего созданного примитива
(Setq E (entlast))
(Entnext)

Функции работы с примитивами

(Entsel [подсказка]) - служит для указания примитива
Если нет

Логические функции

=
/=
<
<=
>
>=
And
Or
Not
Null

Функции организации циклов

(Repeat K S-выр1… S-вырN)
Выполняется каждое S-выражение K раз
K имеет

Функции организации циклов

(While условие S-выр1… S-вырN)
Выполняется каждое S-выражение пока условие истинно

Функции организации разветвлений

(If условие S-выр-тогда S-выр-иначе)
Результат – значение последнего S-выражения
(If

Программа моделирования основы (1)

(defun c:osnova ( / h1 h2 bt bt1

Программа моделирования основы (2)

(setq c1 (entlast)
x1 (nth 0 bt)
y1

Программа моделирования основы (3)

(command "cylinder" bt1 r2 d2 )
(setq c2 (entlast))
(command

( defun c:masotv ( / rotv hotv rmas bt n n1