下面代码运行后，可以切换成指定的标注样式（标注样式A），但是命令行有残留，如下图所示:

各位大佬帮忙看下，问题出在哪里？谢谢！

(defun c:ChangeDim ()
  (setvar "cmdecho" 0)  
  (setq olddim (getvar "dimstyle")
        dimstyle "标注样式A")
  
  (if (tblsearch "dimstyle" dimstyle)
      (progn
        (command "._dimstyle" "_restore" dimstyle "")
        (command "._dimstyle" "_current" dimstyle "")
        (setvar "dimstyle" dimstyle)
        (if (= (getvar "dimstyle") dimstyle)
            (princ (strcat "\n标注样式切换为: " dimstyle))
            (princ (strcat "\n切换失败，当前样式：" (getvar "dimstyle")))
        )
      )
      (princ (strcat "\n警告：标注样式 '" dimstyle "' 不存在，当前样式：" olddim))
  )
  
  (setvar "cmdecho" 1) 
  (princ "\n程序执行完成！")
  (princ)
)