파일명만 얻을수 있는 함수..도와주세요..

안녕하세요.
리습을 만들다 한계에 다달아서요..ㅜㅜ;;
현재 도면의 파일명을 얻는방법은
(setq name(getvar “dwgname”))하면 되잖아요?
근데 문제는 확장자는 빼고 파일명만 얻고 싶습니다.
도와주세요.