"justify"> (setq p2 (list (+ fx ddiam) (+ 2 (+ my h))))
(command line p1 p2 )
(Setq line3 (entlast))
; ================== верхня частина кришки
(setq p1 p2)
(setq p2 (list fx (+ (+ my h) 2)))
(command line p1 p2 )
(Setq line5 (entlast))
; ======================== фронтальна грань
(command -linetype set Dashed2 )
(command line (list (+ fx vn_rad) (+ my 2)) (list (+ fx vn_rad) (+ my h 2))
)
(Setq line9 (entlast))
(command -linetype set ByLayer )
(command mirror Line1 Line3 Line5 Line9 n_os v_os N )
(if (= n 4)
(PROGN
(setq p1 (list (+ fx ddiam) (+ my h)))
(setq p3 (list (- fx ddiam) (+ my h)))
(command arc p1 p2 p3)
(setq arc101 (entlast))
(setq p2 (list fx (+ my 2)))
(setq p1 (list (+ fx ddiam) (+ my 4)))
(setq p3 (list (- fx ddiam) (+ my 4)))
(command arc p1 p2 p3)
(setq arc102 (entlast))
)
(if (= n 6)
(PROGN
(setq p1 (list fx (+ my h)))
(setq p2 (list (+ (/ ddiam 2) fx) (+ my h 2)))
(setq p3 (list (+ ddiam fx) (+ my h)))
(command arc p1 p2 p3)
(setq arc103 (entlast))
(setq p1 (list fx (+ my 4)))
(setq p2 (list (+ (/ ddiam 2) fx) (+ my 2)))
(setq p3 (list (+ ddiam fx) (+ my 4)))
(command arc p1 p2 p3)
(setq arc104 (entlast))
(setq p5 (list fx my))
(setq p6 (list fx (+ my h)))
(command line p5 p6 )
(Setq line10 (entlast))
(command mirror arc103 arc104 line10 n_os v_os N )
)
)
(if (= n 8)
(PROGN
(setq px (list (+ fx (* ddiam 0.207105 2)) (+ my h)))
(setq xx (+ (/ (- ddiam 0.207105) 2) 0.207105))
(setq p2 (list (+ fx xx) (+ my h 1.5)))
(setq p3 (list (+ ddiam fx) (+ my h)))
(command arc px p2 p3)
(setq arc105 (entlast))
(setq p1 (list (- fx (* ddiam 0.207105 2)) (+ my h)))
(setq p2 (list fx (+ my h 2)))
(setq p3 (list (+ fx (* ddiam 0.207105 2)) (+ my h)))
(command arc p1 p2 p3)
(setq arc106 (entlast))
(setq px (list (+ fx (* ddiam 0.207105 2)) (+ my 4)))
(setq xx (+ (/ (- ddiam 0.207105) 2) 0.207105))
(setq p2 (list (+ fx xx) (+ my 2.3)))
(setq p3 (list (+ ddiam fx) (+ my 4)))
(command arc px p2 p3)
(setq arc107 (entlast))
(setq p1 (list (- fx (* ddiam 0.207105 2)) (+ my 4)))
(setq p2 (list fx (+ my 2.3)))
(setq p3 (list (+ fx (* ddiam 0.207105 2)) (+ my 4)))
(command arc p1 p2 p3)
(setq arc108 (entlast))
програма конструкторський складальний кран
(setq p5 (list (+ fx (* ddiam 0.207105 2)) (+ my 2)))
(setq p6 (list (+ fx (* ddiam 0.207105 2)) (+ my h 2)))
(command line p5 p6 )
(Setq line11 (entlast))
(command mirror arc105 arc106 arc107 arc108 line11 n_os v_os N )
)
)
; отзеркаливание
; (command mirror Line1 Line2 Line3 Line4 Line5 n_os v_os N )
; вид зверху
; фіксовані координати виду
(setq n_fx 113)
(setq n_fy 123)
; ===================== зовнішня окружність
(setq cen (list n_fx n_fy))
; (command circle cen r)
; (setq my_11 (* (sqrt 3) ...
