Подробное описание
 (defun sechen1( / f1 xkor ykor xspn yspn lk2 pk2
                    ls1 ps1 xspn1 q3  q44p t5 lk1 pk1 yspn1 cen3
                    t16 t0 f3 f44 q44p q4 q2 q1 q11p f22 nt i buf1
                    buf2 n1 n2 xkor1 ykor1 xkor2 ykor2 xspn2 yspn2
                    f1f22 cen1 f3f1 f44f3 cen4 q11pq2 q2q3 cen2
                    pr31 pr30 pr33 pr32 t10 t11 t9 t8 t7 t6 t15
                    t17 t14 t12 t13 pr35 pr37 pr36 pr38 t1 t2 pr3
                    pr1 pr5 pr6 pr4 pr2 pr7 pr8 pr pr50)        
  (load "..\\shtamp\\ln_crv")
  (load "..\\shtamp\\smepr")
  (load "..\\shtamp\\kont")
  (load "..\\shtamp\\kon2")
  (load "..\\shtamp\\sechm")
      (setq wl 0.6)
   (setq f1 (open "nou.dat" "r"))
   (setq xkor (read-line f1) xkor (read xkor)
         ykor (read-line f1) ykor (read ykor)
         xspn (read-line f1) xspn (read xspn)
         yspn (read-line f1) yspn (read yspn))
   (close f1)
   (setq lk2 (list (car xkor) (car ykor))
         pk2 (list (last xkor) (last ykor))
         ls1 (list (car xspn) (car yspn))
         ps1 (list (last xspn) (last yspn)))
   (SECHM xkor ykor) (SECHM xspn yspn)
   (setq f1 (open "sech.dat" "r"))
   (setq xkor (read-line f1) xkor (read xkor)
         ykor (read-line f1) ykor (read ykor))
    (close f1)
   (setq lk1 (list (car xkor) (car ykor))
         pk1 (list (last xkor) (last ykor)))
 (setq t0 '(0 0) ht (getvar "dimtxt"))
; p бзҐв в®зҐЄ
 (setq f1 (list xf1 (- 0 yf1))
       f3 (list xf3 (- 0 yf3))
       f44 (list xf44 (- 0 yf44))
       q44p (list xq44p (- 0 yq44p))
       q4 (list xq4 (- 0 yq4))
       q3 (list xq3 (- 0 yq3))
       q2 (list xq2 (- 0 yq2))
       q1 (list xq1 (- 0 yq1))
       q11p (list xq11p (- 0 yq11p))
       f22 (list xf22 (- 0  yf22))
)
   (setq nt (- (length xkor) 1) i 0 buf1 nil buf2 nil)
   (repeat nt
       (if (< (abs (- (nth i ykor) (cadr q1))) 0.3) (setq n1 i))
       (if (< (abs (- (nth i ykor) (cadr q4))) 0.3) (setq n2 i))
       (setq i (+ i 1))
    );repeat
    (setq i 0)
    (repeat n1
       (setq buf1 (cons (nth i xkor) buf1)
             buf2 (cons (nth i ykor) buf2))
       (setq i (+ i 1))
     );repeat
      (setq buf1 (cons (car q1) buf1)
            buf2 (cons (cadr q1) buf2))
     (setq xkor1 (reverse buf1)
           ykor1 (reverse buf2))
    (SECHM xkor1 ykor1)
    (setq i n2 buf1 nil buf2 nil nt (+ nt 1))
    (repeat (- nt n2)
       (setq buf1 (cons (nth i xkor) buf1)
             buf2 (cons (nth i ykor) buf2))
       (setq i (+ i 1))
     );repeat
     (setq xkor2 (reverse buf1)
           ykor2 (reverse buf2))
     (setq xkor2 (cons (car q4) xkor2)
           ykor2 (cons (cadr q4) ykor2))
    (SECHM xkor2 ykor2)
   (setq nt (- (length xspn) 1) i 0 buf1 nil buf2 nil)
   (repeat nt
       (if (< (abs (- (nth i yspn) (cadr f22))) 0.3) (setq n1 i))
       (if (< (abs (- (nth i yspn) (cadr f44))) 0.3) (setq n2 i))
       (setq i (+ i 1))
    );repeat
    (setq i 0)
    (repeat n1
       (setq buf1 (cons (nth i xspn) buf1)
             buf2 (cons (nth i yspn) buf2))
       (setq i (+ i 1))
     );repeat
      (setq buf1 (cons (car f22) buf1)
            buf2 (cons (cadr f22) buf2))
     (setq xspn1 (reverse buf1)
           yspn1 (reverse buf2))
    (SECHM xspn1 yspn1)
    (setq i n2 buf1 nil buf2 nil nt (+ nt 1))
    (repeat (- nt n2)
       (setq buf1 (cons (nth i xspn) buf1)
             buf2 (cons (nth i yspn) buf2))
       (setq i (+ i 1))
     );repeat
     (setq xspn2 (reverse buf1)
           yspn2 (reverse buf2))
     (setq xspn2 (cons (car f44) xspn2)
           yspn2 (cons (cadr f44) yspn2))
    (SECHM xspn2 yspn2)
 (setq f1f22 (SMEPR f1 f22 rhey) f3f1 (SMEPR f3 f1 rhey)
       cen1 (inters (car f1f22) (cadr f1f22) (car f3f1) (cadr f3f1) nil)
       f44f3 (SMEPR f44 f3 rhey)
       cen4 (inters (car f3f1) (cadr f3f1) (car f44f3) (cadr f44f3) nil)
       q11pq2 (SMEPR q11p q2 rhey) q2q3 (SMEPR q2 q3 rhey)
       cen2 (inters (car q11pq2) (cadr q11pq2) (car q2q3) (cadr q2q3) nil)
       q3q44p (SMEPR q3 q44p rhey)
       cen3 (inters (car q2q3) (cadr q2q3) (car q3q44p) (cadr q3q44p) nil)
 )
     (setq pr31 (polar t0 1.571 60)
           pr30 (polar t0 4.712 60)
           pr33 (polar t0 pi 83)
           pr32 (polar t0 0 83)
           t10 (list (- 0 (/ al1 2)) (+ basv 10))
           t11 (polar t10 0 al1)
          t9 (polar t10 (rad 275) 10)
          t8 (list (- 0 (/ aa 2)) basv)
           t9 (list (car t9) (cadr t8))
           t7 (polar t8 4.712 (+ basv basn))
           t6 (list (car t9) (- 0 basn))
           t5 (polar t6 (rad 240) 10)
          t16 (polar t5 0 al1)
          t15 (list (/ al1 2) (- 0 basn))
          t17 (list (car t0) (+ (cadr t5) 3))
          t14 (list (/ aa 2) (- 0 basn))
           t12 (list (/ al1 2) (cadr t8))
           t13 (list (/ aa 2) (cadr t12))
)
     (setq pr35 '(-3 -5.5)
           pr37 (polar pr35 (rad (+ 90 alney)) 30)
           pr36 '(3 -5.5)
           pr38 (polar pr36 (rad (- 90 alney)) 30))
           (ln_crv xspn yspn pr35 pr37)
      (setq t1 cr)
           (ln_crv xspn yspn pr36 pr38)
       (setq t2 cr)
      (setq pr35 (polar t1 (rad (+ 270 alney)) (/ 5.5 (cos (rad alney))))
            pr35  (list -3 (cadr pr35))
            pr36 (polar pr35 0 6))  
        (setq pr3 (inters t8 t7 lk1 (polar lk1 pi 10) nil)
          pr1 (inters t8 t7 lk2 (polar lk2 pi 10) nil)
           pr5 (polar ls1 (rad 225) 3)
           pr6 (inters t8 t7 pr5 (polar pr5 pi 10) nil)
           pr4 (inters t13 t14 pk1 (polar pk1 0 10) nil)
           pr2 (inters t13 t14 pk2 (polar pk2 0 10) nil)
           pr7 (polar ps1 (rad 315) 3)
           pr8 (inters t13 t14 pr7 (polar pr7 0 10) nil)
     )
;Є®­вга-------------------------------
 (command "zoom" "w" (polar t5 -2.3 30) (polar t11 0.7 30))
 (command "pline" lk2 "w" 0.5 0.5 pr1 t8 t9 t10 t11 t12 t13 pr2 pk2 ""
          "pline" ls1 "w" 0.5 0.5 pr5 pr6 t7
           t6 t5 t17 t16 t15 t14 pr8 pr7 ps1 ""
         "pline" pk1 "w" 0.5 0.5 pr4 ""
         "pline" lk1 "w" 0.5 0.5 pr3 "")
(KONT (list f22 cen1 cen4 f44)
      (list 0 rhey rhey 0))
(KONT (list q11p q1 cen2 cen3 q4 q44p)
      (list 0 0 (- 0 rhey) (- 0 rhey) 0 0))
(setq pr (list (nth 2 xkor1) (nth 2 ykor1))
      pr50 (list (nth 2 xkor2) (nth 2 ykor2)))
(command "hatch" "u" 45.0 3.0 "" t10  pr q1 pr50 "")
(setq pr (list (nth 2 xspn1) (nth 2 yspn1))
      pr50 (list (nth 2 xspn2) (nth 2 yspn2)))
(command "hatch" "u" 45.0 3.0 "" t7 pr pr50 f22 "")
(command "linetype" "s" "center" ""
         "pline" pr30 "w" 0.5 0.5 pr31 ""
         "pline" pr33 "w" 0.5 0.5 pr32 "")
(command "linetype" "s" "hidden" ""
          "pline" t1 "w" 0.5 0.5 pr35 pr36 t2 "")
(command "linetype" "s" "continuous" "")
(command "zoom" "a")
;(command "block" "pero" t0 "c" (list (- (car psv1) 20) (- (cadr psv1) 50))
;                             (list (car psv2) (+ (cadr psv2) 50)) ""
;         "wblock" "..\\product\\results\\pero" "pero")
;(command "redraw")
;(setq sechm nil kont nil kon2 nil smepr nil ln_crv nil)
 ) ; end sechen1