(vl-load-com)

(setq excel (vlax-get-object "excel.application")
ExcelWorkbook (if excel (vlax-get-property excel "ActiveWorkbook"))
ExcelSheet (if ExcelWorkbook(vlax-get-property ExcelWorkbook "ACTIVESHEET"))
ExcelCells (if ExcelSheet(vlax-get-property ExcelSheet "CELLS"))
)
(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 5 1)))
(vl-load-com)

(setq excel (vlax-get-or-create-object "excel.application")
ExcelWorkbook (if excel (vlax-get-property excel "ActiveWorkbook"))
ExcelSheet (if ExcelWorkbook(vlax-get-property ExcelWorkbook "ACTIVESHEET"))
ExcelCells (if ExcelSheet(vlax-get-property ExcelSheet "CELLS"))
)
(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 5 1)))
(setq D (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 6 1)))
(setq D (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 7 1)))
(setq b (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 8 1)))
(setq k (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 9 1)))
(setq h1 (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 10 1)))
(setq d3 (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 11 1)))
(setq s (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 12 1)))
(setq r (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 13 1)))
(setq h2 (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 14 1)))
(setq d4 (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 15 1)))
(setq f (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 16 1)))
(setq Az (vlax-variant-value (vlax-get-property a "Value")))

(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 17 1)))
(setq d2 (vlax-variant-value (vlax-get-property a "Value")))

(vlax-release-object excel)
(vlax-release-object a)

(setq lx (+ (/ D 2) 1))
(setq ly (+ h1 6))


(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ d4 2) 0 0) (List 11 (- 0 (/ d4 2)) 0 0)))
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ d4 2) 0 0) (List 11 (+ (/ d4 2) f) f 0)))
(setq aws1 (ssadd)) 
(ssadd (entlast) aws1)
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (- 0 (/ d 2)) f 0) (List 11 (/ D 2) f 0)))
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ D 2) f 0) (List 11 (/ D 2) (+ f b) 0)))
(ssadd (entlast) aws1)
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ D 2) (+ f b) 0) (List 11 (- 0 (/ D 2)) (+ f b) 0)))
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ D 2) (+ f b) 0) (List 11 (/ d3 2) (+ f b) 0)))
(setq aws2 (entlast))
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ d3 2) (+ f b) 0) (List 11 (/ d1 2) (- h1 h2) 0)))
(setq aws3 (entlast))
(ssadd (entlast) aws1)
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ d1 2) (- h1 h2) 0) (List 11 (/ d1 2) h1 0)))
(setq aws4 (entlast))
(ssadd (entlast) aws1)
(entmake (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ d1 2) h1 0) (List 11 (- 0 (/ d1 2)) h1 0)))
(entmake (list (cons 0 "line") (cons 8 "AM_7") (List 10 0 (- 0 5) 0) (List 11 0 (+ h1 5) 0)))
(entmake (list (cons 0 "line") (cons 8 "AM_4") (List 10 (- 0 (/ d1 2)) (- h1 h2) 0) (List 11 (/ d1 2) (- h1 h2) 0)))
(entmake (list (cons 0 "line") (cons 8 "AM_7") (List 10 (- 0 (/ k 2)) (- 0 (- 5 f)) 0) (List 11 (- 0 (/ k 2)) (+ f b 5) 0)))
(ssadd (entlast) aws1)


(setvar "FILLETRAD" r) 
(command "_fillet" aws2 aws3)
(ssadd (entlast) aws1)

(setvar "FILLETRAD" r) 
(command "_fillet" aws3 aws4)
(ssadd (entlast) aws1)

(command "_mirror" aws1 "" "0,0" "0,50" "")

(command "_erase" aws2 "")

(setq aws (ssget "_W" (List (- 0 lx) (- 0 6)) (List lx ly)))


(command "_rotate" aws "" (List 0 0 0) pause)
(command "_move" aws "" "0,0" pause)