p align="justify"> (Setq t1 (list (+ X1 72) (+ Y1 21))) (command text t1 8 0 Гайка )
(Setq t1 (list (+ X1 2) (+ Y1 36))) (command text t1 3 0 Змін. )
(Setq t1 (list (+ X1 9) (+ Y1 36))) (command text t1 3 0 Лист )
(Setq t1 (list (+ X1 21) (+ Y1 36))) (command text t1 3 0 N докум. )
(Setq t1 (list (+ X1 43) (+ Y1 36))) (command text t1 3 0 Підпис )
(Setq t1 (list (+ X1 57) (+ Y1 36))) (command text t1 3 0 Дата )
(Setq t1 (list (- X2 46) (+ Y1 36))) (command text t1 3 0 Літ. )
(Setq t1 (list (- X2 32) (+ Y1 36))) (command text t1 3 0 Маса )
(Setq t1 (list (- X2 15) (+ Y1 36))) (command text t1 3 0 Масштаб )
(Setq t1 (list (- X2 46) (+ Y1 16))) (command text t1 3 0 Лист )
(Setq t1 (list (- X2 25) (+ Y1 16))) (command text t1 3 0 Листів 1 )
ДОДАТОК 3
Тверда копія креслення коркового крана
ДОДАТОК 4
Тверда копія креслення гайки
Тест 1
Введіть розмір під ключ (16..32) gt; 16
Введіть висоту гайки (2..16) gt; 2
Введіть кількість граней (4, 6, 8) gt; 4
Результат:
Тест 2
Введіть розмір під ключ (16..32) gt; 32
Введіть висоту гайки (2..16) gt; 16
Введіть кількість граней (4, 6, 8) gt; 6
Результат:
