(defun c:forma ()

(setq p1 (getpoint "indique o ponto inicial"))
(command "ucs" p1 "")
;box1
(command "box" (list 0 0 0) (list 40 40 0) 40)
(setq box1 (entlast))
;box2
(command "cylinder" (list 20 20 40) 10 10)
(setq box2 (entlast))
;box3
(command "cylinder" (list 20 20 40) 5 10)
(setq box3 (entlast))
(command "subtract" box2 "" box3 "")
)