dimstyle을 바꿔주는 리습 수정

다음은 현재의 dimstyle을 ahn으로 바꿔주는 리습인데요
여기서 수정 할 부분은
 *** 만약에 ahn이라는 dimstyle이 없을때 없다고 메세지만 띄우지 말고 ahn 이라는 dimstyle을 만들어 주고 싶은데요.
예를 들면 (command “-dimstyle” “s” “ahn”)  이런식으로요. 어떻게 수정해야 할지 고수분들의 도움 요청드립니다.

(defun c:CCSA(/ @1 dst)
(setvar “cmdecho” 0)
(setq @1 “ahn”)
(command “dimstyle” “r” @1)
(setq dst (getvar “dimstyle”))
(if (= dst @1)
(progn (princ “현재스타일을 “)(princ dst)(princ ” 로 변경하였습니다.”))
(princ “스타일이 없습니다”))
(princ)
);defun