치수리습 관련해서 질문드립니다!!

(defun c:DFF (/ data lyr) 연속치수
    (defun *error* (msg) (princ msg) (setvar “clayer” cla)
   (command “undo” “e”)
  (princ)
 )
 
 (setq cla (getvar “clayer”))
 (SETVAR “CMDECHO” 0)
 (GRAPHSCR)
   (command “undo” “group”)
  (command “layer” “s” “DIM” “”)
 (COMMAND “DIMCONTINUE” “”)
  (command “undo” “e”)
 (GRAPHSCR)

  (setvar “clayer” cla)
  (princ)
);defun end

위리습입니다.
dimcontinue로 생기는 치수들이 dim치수로 기입되고  기본 레이어가 변경되지 않았으면 좋겠습니다.
연속치수 명령어 특성상 esc를 눌러 명령 종료하는 점때문인지 dim 치수로 기입이 되지 않습니다.
error시에도 dim치수로 기입되었으면 좋겠습니다 ㅜㅜ 어떻게 해결해야할지 검토 부탁드립니다.
감사합니다