Получение параметрической модели чертежа инструмента на языке AutoLisp в графической среде AutoCAD_2.

Описание инструмента
РЕЗЕЦ - режущий инструмент, обычно стальной брусок прямоугольного, квадратного или круглого сечения. Режущая часть выполняется из материала значительно более твердого, чем обрабатываемый материал. Различаются по технологическим группам станков (токарные, строгальные, долбежные), выполняемым работам (проходные, подрезные, расточные, резьбовые и др.)...
Программная реализация
(defun c:a()
(command "osnap" "off")
(command "set" "0")
(command "zoom" "Scale" 50)

(command "-layer" "make" "Ramka_osi" "")
(command "-layer" "make" "razmer" "")
(command "-layer" "make" "text" "")
(command "-layer" "make" "detal" "")

(setq ch (getint "Ввод данных : с клавиатуры (1), из файла (2) : "))

(while (and (not (= ch 2)) (not (= ch 1)))
(write-line "Недопустимая команда!")
(setq ch (getint "Ввод данных : с клавиатуры (1), из файла (2) : "))
)

Введение...3.

1.Постановка задачи4.

2.Описание инструмента.5.

3.Алгоритм решения задачи6.

4.Используемые функции AutoLisp....7.

5.Программная реализация..8.

Приложение: распечатка чертежа инструмента с разными параметрами.15.

Встроенная справка AutoCAD