(求助)各位大神，请问如何创建固定尺寸的标注样式

999999

求助各位大神，本人在论坛找过相关贴子，但是下载用了，发现不会用，打开代码来也有些懵，看看路过有空的大神，能否帮小弟解决一下问题，，感谢感谢


间距1和间距2不同之处就是一个高度是30  一个高度是100

999999

;新建标注样式
(defun c:YU()
  (setq Y (getvar "osmode"));获取捕捉方式的值
  (setvar "osmode" 0)
  (setvar "cmdecho" 0) ;指令执行过程不响应
        (command "style" "黑体" "黑体" "0" "1" "0" "N" "N")        ;样式名，字体名，文字高度，宽度因子，倾斜角度，反向显示，颠倒显示，垂直显示
  (command "dimjust" "0" ;控制标注文字的水平位置
                       "dimlunit" "2" ;设置所有标注类型（角度标注除外）的单位
                       "dimdec" "0" ;设置标注主单位中显示的小数位数
                       "dimpost"  "mm"  ;设置标注文字前后缀
                       "dimtdec" "0" ;设置标注主单位的公差值中要显示的小数位数
                       "DIMALTD"  "0"   ;设置单位格式的精度
                       "dimclrt" "0"   ;为标注文字指定颜色
                (setvar "DIMTXSTY" "黑体")                ;文字样式
                       )
;新建名称为"沙盘尺寸"的标注样式
  (command "dimtxt"  "100" ) ;文字高度
  (if (not (tblsearch "dimstyle" "沙盘尺寸")) (command "dimstyle" "S" "沙盘尺寸"))
;新建名称为"楼间距"的标注样式
  (command "dimtxt"  "30" ) ;文字高度
  (if (not (tblsearch "dimstyle" "楼间距")) (command "dimstyle" "S" "楼间距"))
     (setvar "osmode" Y);还原捕捉方式
   (PRINC "\n新建标注样式完成")
        (PRINC))
根据论坛里的大师贴子找一些自己能看懂的拼起来的，哈哈，前前后后花了好几个小时琢磨，大神们不要笑哟，如果有更好的代码表达，麻烦大神们贴一下哟