lsp 에러메세지좀 잡아주세요..

(DEFUN C:pp (/ a b pt1 pt2 pt3 pt4)
      (setq lay (getvar “clayer”))
      (WHILE (= cd nil)
      (setq a (entsel “n 원을 선택 하세요. ^^* “))
      (setq b (entget (car a)))
      (setq cen (cdr (assoc 10 b)))
      (command “point” cen “” “”)
      (command “erase” a “” “”)))

원을 선택해서 클릭하면 바로 원이 삭제되면서 그자리에 점이 찍히는데요..
실행은 되는데 에러메세지가 많이 뜨네요.  에러메세지 없이 되도록 수정좀 부탁드립니다..;;;