리습 수정좀 부탁드려도 될까요?

사용중인 리습은 아래와 같습니다.
그림 선택하고 문자열 선택하고나면
basepoint 를 입력하라고 그러는데
basepoint 선택을 안하고 그냥 넘어가고싶은데 방법없을까요




(defun c:WBB(/ os cm ss en1 en2 bn1 bn2 bn ins path) ; eazy wblock
;->*error* start
 (defun *error* (msg)(princ “error: “)(princ msg)
 (setvar “osmode” os) (setvar “cmdecho” cm)
 (if en1 (redraw en1 4)) (if en2 (redraw en2 4))
 (princ))
;-<*error* end
 (prompt “n>>wblock 쉽게 만들기..”)
 (setq os (getvar “osmode”)
       cm (getvar “cmdecho”))
 (setvar “cmdecho” 0)
 (setq ss (ssget))
;————————————
 (setq en1 nil en2 nil)
 (while (= en1 nil) (setq en1 (car (entsel “n파일이름 텍스트선택<도면번호>:”))))
 (redraw en1 3)
 (setq bn (cdr (assoc 1 (entget en1))))
;————————————
 (setq ins (getpoint “nBase point Click :”))
 (redraw en1 4)
 (setq path (strcat “d:block/” bn “.dxf”))
 (setvar “osmode” 0)
 (command “wblock” path “” ins ss “”)
 (command “insert” path ins 1 1 0)
 (command “explode” (entlast))
 (setvar “osmode” os)
 (setvar “cmdecho” cm)
(princ)
);defun