如何创建标注样式

jwj0805

下面是我新建的标注样式，ii是我的比例从1：1-1：200，ii数值从1-200，我是想如果我换比例画图，则新建一个比例因子为ii的标注样式，但是通过下面的程序好像样式的变量都没有改，只是在画图有个样式替代，而样式本身的变量都还是“standard”样式的变量值，请问一下，这是什么原因？
(defun bz()                                                                                                                                       
  (setq scal ii)
  (setq bz (strcat "bz_" (rtos scal 2 0)))
  (setq bb (tblsearch "style" bz))
  (if (null bb)
      (command "_style" "bz" "楷体" (/ 125 ii) "" "" "" "" "")
  )
  (setq bb1 (tblsearch "layer" "标注"))
  (if (null bb1)               
    (command "_layer" "m" "标注" "c" "3" "标注" "")
  )
  (setq nam1 (strcat "jwj_" (rtos scal 2 0)))
  (setq bb2 (tblsearch "DIMSTYLE" nam1))
  (if (null bb2)               
    (progn
      (command "layer" "s" "标注" "")
      (command "DIMSTYLE" "S" nam1 "" "")
      (setvar "DIMLFAC" scal)
      (setvar "DIMASZ" (/ 125 ii))
      (setvar "DIMEXE" (/ 62.5 ii))
      (setvar "DIMEXO" (/ 31.25 ii))
      (setvar "DIMDLI" (/ 187.5 ii))
      (SETVAR "DIMCEN" (/ 125 ii))
      (setvar "DIMGAP" 0)
      (setvar "DIMDEC" 0)
      (setvar "DIMTAD" 1)
      ;(setvar "DIMTOH" "开")
      (setvar "DIMTXT" (/ 125 ii))
    )
   )
  (setvar "clayer" "标注")
  (command "-dimstyle" "r" "nam1" )
  (setq bb1 nil bb nil bb nil bb2 nil)
)

jwj0805

就是这种，而jwj_50本身系统变量都是和standard一样，有点不明白。

jwj0805

还有个问题是，标注多线段圆弧问题，en1 是多线段图元名，p2是圆弧段中点，c1是圆心，但是命令(command "dimradius" (list en1 p2) "" c1) 却提示选择不是圆弧。这该如何处理

jwj0805

已经解决，虽然还是样式替代不过基本能符合要求了