;Kod yardımı için ehya arkadaşımıza teşekkürlerimi sunarım.

(defun c:fsil ()
(setvar "cmdecho" 0)
;(setq olderr *error*
;*error* yaerror)
(setq os_mode (getvar "osmode"))
(setvar "osmode" 0)
; (setq isim (getstring "\nBlok ismi: "))
(initget 1)
(setq tip (getstring "\n<H>atch <S>olid <D>imension"))
(if (/= tip nil)
(progn
(cond ((= tip "h")
(setq selection (ssget (list (cons 0 "HATCH"))))
)
; Hatch Silme Satırı
((= tip "d")
(setq selection (ssget (list (cons 0 "dimension"))))
)
;Ölçü Silme Satırı
((= tip "s")
(setq selection (ssget (list (cons 0 "Solid"))))
)
;solid silme satırı

)
(command "erase" selection "")
)
)
(princ)
)