[求助]怎样用LISP编写一个创建标注样式和设置其参数的LISP程序

ping0217

怎样用LISP来编写一个创建新标注样式和设置其具体参数的LISP程序呢？对于图层和文字样式都基本解决（COMMAND ”-layer" "m" "图层" "c" "1" ""）就可以实现。但对于标注样式还是想不通。。相对创建新图层和文字样式有更方便的方法也可以介绍下。。希望高手能解决一下！。在此谢了

ZZXXQQ

1、先使用SETVAR函数设置有关尺寸的系统参数；
2、使用(command "-dimstyle" "s" "newdimstyle")设置新字体；
   使用(command "-dimstyle" "s" "olddimstyle" "y")修改旧字体。

先进者

  (defun c:as()
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setvar "OSMODE" 183)
  (command "LTSCALE" "6")
  (command "units" 2 4 1 1 0.00 "n")
  (command "-style" "standard" "txt.shx,ctxt.shx" "" "0.8" "" "" "" "")
  (command "dimclrd" 13 "dimclre" 13  "dimdle" 0 "dimdli" 4 "dimexe" 1.5 "dimexo" 0.2  "dimtih" "off" "dimblk" "_OPEN30")
  (command "DIMASZ" "0.5" "DIMCEN" "0.5" "DIMCLRT" "4"
           "DIMDEC" "1" "DIMTAD" "0" "DIMTDEC" "1"
           "DIMTXT" "2" "DIMUNIT" "2" "DIMEXE" "0.5" "dimzin" "0"
           "dimpost" "."
           "DIMSTYLE" "S" "UNIT1"
           "DIMDEC" "2"
           "DIMSTYLE" "S" "UNIT2"
           "DIMDEC" "1"
           "dimpost" "%%c<>"
           "DIMSTYLE" "S" "UNIT11"
           "DIMDEC" "2"
           "DIMSTYLE" "S" "UNIT22"
  )
  )