리습이 안되는데..왜 그러는지 혹시 알수있나요??

(defun c:a1 (/ a b )
   (setq b (getpoint “n 기준점 지정”))
   (setq a (ssget ))   
   (command “copybase” b a “”)
   (command “pasteblock” b )
   (command “erase” a “”)
   (princ)
)
 
갑자기 이 리습이 안먹는데..
왜 그러는지 도통 모르겠어요
혹시 아시는분 계시는지…