빠른 블럭생성 리습 입니다. 문의 드립니다

빠른 블럭 생성이란 리습을 잘 사용하고 있었는데요
빠른 블럭 생성이란
블럭을 생성(컨드롤+시프트+C) → 원본 삭제 → 블럭붙혀넣기(컨트롤+시프트+V)
를 한번에 하는 리습인데요

요 녀석이 OSNAP 영향으로 자꾸 그자리에 생성되는게 아니고 돌아 다녀서
앞 뒤로 OSNAP 수정 문구를 딴 리습에서 따와서 넣고 싶은데요

===================== 빠른 블럭생성 =====================

(defun c:VC( / pros oldcmd a p1)
(SETQ pros (getvar "OSMODE")
    oldcmd (getvar "cmdecho"))
           (setvar "osmode" 5055)
           (setvar "cmdecho" 0)
        (graphscr)
        (setq p1 (getpoint "nt 기준점을 선택하세용♡ :"))
        (while (/= p1 nil)
                (command "Copybase" p1 a "")
                (command "Erase" "P" "")
                (command "Pasteblock" p1)
)
(setvar "OSMODE" 4135)
(setvar "cmdecho" OLDCMD)
        (princ)
)

이렇게 하면
(LOAD "C:/Program Files/Autodesk/AutoCAD 2013/Support/블럭생성.lsp") ; 오류: AutoCAD 변수 설정이 거부됨: "cmdecho" nil

이런 문구가 뜨면서 로드가 안되요..ㅠ
고수님들 도와 주세요~


미리 새해복 많이 받으세요~