2) my_22 (* 3 ddiam) vp_rad (/ my_22 my_11))
(command circle cen ddiam)
; ========================== шестигранник
; (command polygon n cen C ddiam)
(command polygon n cen C (list (+ ddiam n_fx) n_fy))
; =================== внутрішня окружність
; (setq vn_rad (* ddn 0.66))
(command circle cen vn_rad)
(setq cir_m (entlast))
; ######################################### ####################
#######
; образмеріваніе виду зверху
(setq ext1 (list (+ n_fx ddiam) n_fy))
(setq ext2 (list (- n_fx ddiam) n_fy))
(setq ext3 (list n_fx (- n_fy (* 2 ddiam))))
(command dimlinear ext1 ext2 ext3)
(setq p2 (list (+ 20 (+ n_fx ddiam)) (+ n_fy ddiam)))
(setq cp2 (list (+ n_fx m_ra) n_fy))
(command dimdiameter cp2 p2)
; образмеріваніе основного виду
(setq ext4 (list fx (+ my 2)))
(setq ext5 (list fx (+ my h 2)))
(setq ext6 (list (- fx (* 2 ddiam)) (+ my 2)))
; (setq ext4 (list (+ fx ddiam) (+ my 2)))
; (setq ext5 (list (+ fx ddiam) (+ my h 2)))
; (setq ext6 (list (+ ddiam 10) (+ my (/ h 2))))
(command dimlinear ext4 ext5 ext6)
(command -linetype set Dashed2 )
(setq p1 (list 42123))
(setq p2 (list 178123))
(command line p1 p2 )
; ######################################### ####################
#########
; РАМКА І ОСН.НАДПІСЬ
; ***************************************** ********************
**********
(command -linetype set ByLayer )
(command limits (0 0) (210297))
(setq ln_ygol '(0 0))
(setq pv_ygol '(210297))
(command rectangle ln_ygol pv_ygol)
(command zoom Extents )
; ***************************************** ********************
**********
; прорисовуємо рамку
(setq ln_ramka '(20 травня))
(setq pv_ramka '(205292))
(command rectangle ln_ramka pv_ramka)
(setq X1 (nth 0 ln_ramka))
(setq Y1 (nth 1 ln_ramka))
(setq X2 (nth 0 pv_ramka))
(setq Y2 (nth 1 pv_ramka))
; ***************************************** ********************
**********
; основна напис
; ***************************************** ********************
**********
; вертикальні лінії
(Setq p1 (list X1 (+ Y1 273)))
(Setq p2 (list (+ X1 70) (+ Y1 273)))
; (command line p1 p2 )
; ***************************************** ********************
**********
(Setq p1 (list (+ X1 70) (+ Y1 273)))
(Setq p2 (list (+ X1 70) (+ Y1 287)))
; (command line p1 p2 )
; ***************************************** ********************
**********
(Setq p1 (list X1 (+ Y1 55)))
(Setq p2 (list X2 (+ Y1 55)))
(command line p1 p2 )
; ***************************************** ********************
**********
(Setq p1 (list (+ X1 7) (+ Y1 55)))
(Setq p2 (list (+ X1 7) (+ Y1 30)))
(command line p1 p2 )
; ***************************************** ********************
**********
(Setq p1 (list (+ X1 17) (+ Y1 55)))
(Setq p2 (list (+ X1 17) Y1))
(command line p1 p2 )
; ***************************************** ********************
**********
(Setq ...
