p1 (list (+ X1 40) (+ Y1 55)))
(Setq p2 (list (+ X1 40) Y1))
(command line p1 p2 )
; ***************************************** ********************
**********
(Setq p1 (list (+ X1 55) (+ Y1 55)))
(Setq p2 (list (+ X1 55) Y1))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (+ X1 65) (+ Y1 55)))
(Setq p2 (list (+ X1 65) Y1))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 50) (+ Y1 55)))
(Setq p2 (list (- X2 50) Y1))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 45) (+ Y1 20)))
(Setq p2 (list (- X2 45) (+ Y1 35)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 40) (+ Y1 20)))
(Setq p2 (list (- X2 40) (+ Y1 35)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 35) (+ Y1 20)))
(Setq p2 (list (- X2 35) (+ Y1 40)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 30) (+ Y1 15)))
(Setq p2 (list (- X2 30) (+ Y1 20)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 18) (+ Y1 20)))
(Setq p2 (list (- X2 18) (+ Y1 40)))
(command line p1 p2 )
; ***************************************** ******************************
; горизонтальні лінії
(Setq i 1)
(while ( lt; i 11)
(Setq p1 (list X1 (+ Y1 (* i 5))))
(Setq p2 (list (+ X1 65) (+ Y1 (* i 5))))
(command line p1 p2 )
(Setq i (+ i 1))
)
; ***************************************** ******************************
(Setq p1 (list (+ X1 65) (+ Y1 40)))
(Setq p2 (list X2 (+ Y1 40)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (+ X1 65) (+ Y1 15)))
(Setq p2 (list X2 (+ Y1 15)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 50) (+ Y1 35)))
(Setq p2 (list X2 (+ Y1 35)))
(command line p1 p2 )
; ***************************************** ******************************
(Setq p1 (list (- X2 50) (+ Y1 20)))
(Setq p2 (list X2 (+ Y1 20)))
(command line p1 p2 )
; ***************************************** ******************************
; настройка стилю шрифту
(command -style J_STYLE 0 0.45 20 N N N )
; заповнюємо штамп написами
(setq t1 (list (- X2 36) (+ Y1 4))) (command text t1 6 0 ХАІ гр.126ст )
(Setq t1 (list (+ X1 2) (+ Y1 26))) (command text t1 3 0 Разраб )
(Setq t1 (list (+ X1 2) (+ Y1 21))) (command text t1 3 0 Пров )
(Setq t1 (list (+ X1 2) (+ Y1 16))) (command text t1 3 0 Т. контр. )
(Setq t1 (list (+ X1 2) (+ Y1 6))) (command text t1 3 0 Н. контр. )
(Setq t1 (list (+ X1 2) (+ Y1 1))) (command text t1 3 0 Утв. )
(Setq t1 (list (+ X1 18) (+ Y1 26))) (command text t1 3 0 Шляга С.В. )
(Setq t1 (list (+ X1 18) (+ Y1 21))) (command text t1 3 0 Єфремов А.Ю. )
<...
