(defun C:deleteLayouts ()
    (vl-load-com)
    (graphscr)

    (initget 1 "Yes No")
    (setq really (getkword "Delete all layouts? [Yes/No]"))
    (if 
        (= really "Yes")
        (vlax-for l (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
            (if (/= (vla-get-name l) "Model")
                (vla-delete l)
            )
        )        
    )
)