[求助]请教在LISP几个标注样式中的参数

chariszdp

各位告诉我怎么创建标注精度只有一位小数的标住样式,程序怎么写?谢谢了

ygrzz

我自己在用的

(defun S::STARTUP ()
  (setvar "cmdecho" 0)
  (setvar "CELTSCALE" 3)
  (if (not (tblsearch "LAYER" "CENTER"))
    (command "_.layer" "n" "CENTER" "_color" "1" "CENTER" "_ltype" "CENTER"
             "CENTER" ""
    )
  )
  (if (not (tblsearch "layer" "DIM"))  ; 判断是否存在Dim层，无则创建。
    (command "layer" "n" "DIM" "")
  )
  (if (not (tblsearch "STYLE" "mold"))
    (progn
      (command "STYLE" "mold" "Tssdeng,hztxt" "0" "0.7" "0" "n" "n" "n")
      (setvar "TEXTSTYLE" "mold")
    )
  )
  (if (not (tblsearch "DIMSTYLE" "mold15"))
    (progn
      (SETVAR "DIMZIN" 8)
      (setvar "DIMDEC" 2)              ; 精度
      (setvar "DIMASZ" 1.2)            ; 箭头大小
      (setvar "DIMADEC" 1)             ; 角度精度
      (setvar "DIMDLI" 1.5)            ; 尺寸线间距
      (setvar "DIMTXT" 1.5)            ; 文字高度
      (setvar "DIMGAP" 0.3)            ; 文字偏移
      (setvar "DIMTOH" 1)              ; 文字对齐ISO
      (setvar "DIMCLRD" 8)             ; 尺寸线 颜色
      (setvar "DIMCLRE" 8)
      (setvar "DIMEXO" 0)              ; 尺寸界线起点偏移
      (command "DIMTXSTY" "mold")
      (command "DIMSTYLE" "S" "mold15")
    )
  )
  (if (not (tblsearch "DIMSTYLE" "mold35"))
    (progn
      (SETVAR "DIMZIN" 8)
      (setvar "DIMDEC" 3)              ; 精度
      (setvar "DIMTXT" 3.5)            ; 文字高度
      (setvar "DIMGAP" 0.4)            ; 文字偏移
      (setvar "DIMASZ" 2)              ; 箭头大小
      (setvar "DIMADEC" 1)             ; 角度精度
      (setvar "DIMEXO" 0)              ; 尺寸界线起点偏移
      (command "DIMTXSTY" "mold")
      (command "DIMSTYLE" "S" "mold35")
    )
  )
  (if (not (tblsearch "DIMSTYLE" "mold70"))
    (progn
      (SETVAR "DIMZIN" 8)
      (setvar "DIMTXT" 7.0)            ; 文字高度
      (command "DIMTXSTY" "mold")
      (command "DIMSTYLE" "S" "mold70")
    )
  )
  (command "DIMSTYLE" "r" "mold35")
  (setvar "cmdecho" 1)
  (princ)
)