(command "VSLIDE" "C:\\wrk\\autocad\\lab4")
;              	(setq h 10)
              	(setq h (getreal "Enter h (rebro) [10]:"))
(while (< h 0)	(setq h (getreal "Enter h (rebro) [10]:")))
;		(setq a 30)
		(setq a (getreal "Enter a e (verh) [30]:"))
(while (< a b)	(setq a (getreal "Enter a e (verh) [30]:")))
;		(setq c 20)
		(setq c (getreal "Enter c d (osnova) [20]:"))
(while (< c 0)	(setq c (getreal "Enter c d (osnova) [20]:")))
;		(setq d 100)
		(setq d (getreal "Enter d f (height) [100]:"))
(while (< d (+ a c))
		(setq d (getreal "Enter d f (height) [100]:")))
;		(setq f 20)
		(setq f (getreal "Enter f b (vnutr) [20]:"))
(while (< f 0)	(setq f (getreal "Enter f b (vnutr) [20]:")))
;		(setq e 40)
		(setq e (getreal "Enter e a (rad1) [40]:"))
(while (< e f)	(setq e (getreal "Enter e a (rad1) [40]:")))
;		(setq y 80)
		(setq y (getreal "Enter y c (rad2) [80]:"))
(while (< y e)	(setq y (getreal "Enter y c (rad2) [80]:")))

(setq   ttx	200
	tty	(- 150 (/ d 2))
	xxl1	(- ttx (/ f 2))
	xxr1	(+ ttx (/ f 2))
	xxl2	(- ttx (/ e 2))
	xxr2	(+ ttx (/ e 2))
	xxl3	(- ttx (/ y 2))
	xxr3	(+ ttx (/ y 2))
	yy1	(+ tty c)
	yy2	(- (+ tty d) a)
	yy3	0
	yy4	(+ tty d)
)
;(command "LINETYPE" "S" "CENTER" "")
;(command "LINE" (list ttx (- tty 10)) (list ttx (+ tty (+ d 20))) "")
;(command "osnap" "off" "")
;(command "LINETYPE" "S" "continuous" "")
(command "PLINE"
	 (list ttx tty)
	 "W" 0.9 0.9
	 (list xxl3 tty)
	 (list xxl3 yy1)
	 (list ttx  yy1)
	 (list xxl2 yy1)
	 (list xxl2 yy2)
	 (list xxl3 yy1)
	 (list xxl2 yy2)
	 (list ttx  yy2)
	 (list xxl1 yy2)
	 (list xxl1 yy1)
	 (list xxl1 yy2)
	 (list ttx  yy2)
	 (list xxl2 yy2)
	 (list xxl2 yy4)
;L-U corner
	 (list xxr1 yy4)
	 (list xxr1 yy2)
	 (list ttx  yy2)
	 (list xxr1 yy2)
	 (list xxr1 yy4)
	 (list xxr2 yy4)
	 (list xxr2 yy1)
	 (list xxr3 yy1)
	 (list xxr2 yy2)
	 (list xxr3 yy1)
	 (list xxr3 tty)
	 (list ttx tty)
	 "")
;(command "LINETYPE" "S" "CENTER" "")
(command "LINE" (list ttx (- tty 10)) (list ttx (+ yy4 10)) "")
;(command "LINETYPE" "S" "ByLayer" "")
(command "dimlinear" (list xxl2 tty) (list xxl2 yy4) (list (- xxl3 30) yy4))
(command "dimlinear" (list xxl3 tty) (list xxl3 yy1) (list (- xxl3 15) yy1))
(command "dimlinear" (list xxl2 yy2) (list xxl2 yy4) (list (- xxl2 30) yy4))
(command "dimlinear" (list xxl2 yy4) (list xxr2 yy4) (list ttx (+ yy4 30) ))
(command "dimlinear" (list xxl1 yy4) (list xxr1 yy4) (list ttx (+ yy4 15) ))
(command "dimlinear" (list xxl3 tty) (list xxr3 tty) (list ttx (- tty 30) ))

(command "HATCH" "LINE" 1 45 "" "N"
	 (list ttx  tty)
	 (list ttx  yy2)
	 (list xxr1 yy2)
	 (list xxr1 yy4)
	 (list xxr2 yy4)
	 (list xxr2 yy1)
	 (list xxr3 yy1)
	 (list xxr3 tty)
	 "C" "")

(command "REDRAW")