将选择的对象变为某个标注样式，通过快捷键切换，这个代码应该如何写

清水白粥

(defun c:GL()
  (setvar "clayer" "GL")
  (command "chprop" (ssget) "" "la" "GL" "") ; 使用 chprop 命令将已选择对象的图层属性更改为 "GL"
  (princ)
)
这个是将已选择对象的图层属性更改为 "GL"




通过快捷键切换，如何将选择的对象变为某个标注样式，，这个代码应该如何写
(defun c:di1()(command "dimstyle" "r" "Z1dim")  (princ))