[求助]：为什么LISP中不能够连续新建两个以上的尺寸标注样式，请高人指教代码问题

zhoujun518

如下代码只建一个标注样式时成立，但是再建一个就无效了，在LISP调用中会永远用前一个标注样式，请高手指教为什么？新设定的标注样式应如何调用呢？
(setq        dim_type_list
         '("DIMCLRD"        "DIMDLE"     "DIMDLI"          "DIMSD1"
           "DIMSD2"        "DIMCLRE"    "DIMEXE"          "DIMEXO"
           "DIMSE1"        "DIMSE2"     "DIMBLK"          "DIMASZ"
           "DIMTXSTY"        "DIMCLRT"    "DIMTXT"          "DIMTFAC"
           "DIMGAP"        "DIMTIX"     "DIMSCALE"          "DIMLUNIT"
           "DIMDEC"        "DIMLFAC"
          )
  )
  (setq n 0)
  (if (= nil (tblsearch "dimstyle" "Dim2"))
    (progn
      (foreach eachone dim_type_list
        (progn
          (setvar eachone
                  (nth n
                       '(3     150   150   0         0     3     150
                         600   0     0           "_archtick" 150   "romans"
                         2     300   0.72  150         1     1     2
                         0     1
                        )
                  )
          )
          (setq n (1+ n))
        )
      )
      (command "-dimstyle" "s" "Dim2")
    )
  )
  (setq n 0)
  (if (= nil (tblsearch "dimstyle" "Dim10"))
    (progn
      (foreach eachone dim_type_list
        (progn
          (setvar eachone
                  (nth n
                       '(3     150   150   0         0     3     150
                         600   0     0           "_archtick" 150   "romans"
                         2     300   0.72  150         1     1     2
                         0     0.1
                        )
                  )
          )
          (setq n (1+ n))
        )
      )
      (command "-dimstyle" "s" "Dim10")
    )
  )

lzy9788303

我这个程序集中有(成功加载时已建立好)
http://www.xdcad.net/forum/showthre...threadid=536147

NET-JOB

链接无效，无法找到网页