치수레이어 변경관련 리습도움 부탁합니다

지금사용중인것은 명령어 FV를 사용해서 도면에있는 치수레이어를 모두 5로 바꾸는것입니다.
(defun c:FV ( / ch_la )
  (setvar “cmdecho” 0)
  (setvar “blipmode” 0)
  (if (= (tblsearch “layer” “5”) nil)
  (command “-layer” “m” “5” “c” “3” “” “”))
  (setq ch_la (ssget “x”‘((0 . “DIMENSION,LEADER”))))
  (command “change” ch_la “” “p” “la” “5” “”)
  (command “change” ch_la “” “p” “c” “BYLAYER” “”)
  (command “-layer” “s” “5” “c” “3” “” “s” “7” “” )
 )
근데 이것을 도면열때 자동으로 변경되게 바꿔보려고 아래처럼 명령어부분 지우고 리습을 적용했더니
(
  (setvar “cmdecho” 0)
  (setvar “blipmode” 0)
  (if (= (tblsearch “layer” “5”) nil)
  (command “-layer” “m” “5” “c” “3” “” “”))
  (setq ch_la (ssget “x”‘((0 . “DIMENSION,LEADER”))))
  (command “change” ch_la “” “p” “la” “5” “”)
  (command “change” ch_la “” “p” “c” “BYLAYER” “”)
  (command “-layer” “s” “5” “c” “3” “” “s” “7” “” )
 )
도면상에 치수가 있으면 잘실행이되는데 빈페이지나 치수가없거나 하면 캐드도움말창 뜨면서 오류가 납니다. 치수나 레이어가 없더라도 오류안나게 하려면 뭘 바꿔야하나요?
아무리 앞뒤로 짜집기해도 하수라서 오류납니다. 고수분들의 도움이 필요합니다.^^