[讨论]：怎么样用entmake建立尺寸样式

lzy9788

怎么样用entmake建立如下的尺寸样式(尺寸名称1-100，可参数设置如下)？

(command "DIMSTYLE" "s" "1-100")
;设置标注参数
  (setvar "DIMALTD" 4)
   (setvar "DIMALTTD" 4)
   (setvar "DIMALTTZ" 0)
   (setvar "DIMALTU" 8)
   (setvar "DIMALTZ" 0)
   (setvar "DIMAPOST" "")
   (setvar "DIMASZ" 1)
   (setvar "DIMAUNIT" 0)
  ;判断ACAD版本号
  (setq acadver (getvar "acadver"))
   (if (= acadver "14.0")
      (setvar "dimblk" "DIMX")
       (setvar "DIMLDRBLK" "DIMX"))
   (setvar "DIMBLK1" "DIMX")
   (setvar "DIMBLK2" "DIMX")
   (setvar "DIMBLK" "DIMX")
   (setvar "DIMCEN" 2.5)
   (setvar "DIMCLRD" 256)
   (setvar "DIMCLRE" 256)
   (setvar "DIMCLRT" 256)
   (setvar "DIMDEC" 0)
   (setvar "DIMDLE" 0)
   (setvar "DIMDLI" 0)
   (setvar "DIMEXE" 250)
   (setvar "DIMEXO" 0)
   (setvar "DIMFIT" 5)
   (setvar "DIMGAP" 100)
   (setvar "DIMJUST" 0)
   (setvar "DIMSCALE" 1)
   (command "DIMLIM" "Off")
   (setvar "DIMPOST" "")
   (setvar "DIMRND" 0)
   (command "DIMSAH" "On")
   (command "DIMSD1" "Off")
   (command "DIMSD2" "Off")
   (command "DIMSE1" "Off")
   (command "DIMSE2" "Off")
   (command "DIMSHO" "On")
   (command "DIMSOXD" "Off")
   (setvar "DIMTAD" 1)
   (setvar "DIMTDEC" 4)
   (setvar "DIMTFAC" 1)
   (command "DIMTIH" "Off")
   (command "DIMTIX" "On")
   (setvar "DIMTM" 0)
   (command "DIMTOFL" "On")
   (command "DIMTOH" "Off")
   (command "DIMTOL" "Off")
   (setvar "DIMTOLJ" 1)
   (setvar "DIMTP" 0)
   (setvar "DIMTSZ" 0)
   (setvar "DIMTVP" 0)
   (setvar "DIMTXSTY" "ARIAL_NARROW")
   (setvar "DIMTXT" 250)
   (setvar "DIMTZIN" 0)
   (setvar "DIMUNIT" 2)
   (command "DIMUPT" "Off")
   (setvar "DIMZIN" 0)
)

lhg

关键是新图中无dimx图块？

lzy9788

我可以插个图块，主要是想知道下怎么样用ENTMAKE函数

urljit

老兄：看看我的吧
[PHP]
(entmake (list
                                 (cons 0 "DIMSTYLE")
                                 (cons 100 "AcDbSymbolTableRecord")
                                 (cons 100 "AcDbDimStyleTableRecord")
                                 (cons 2 "Sdimstyle_by_chen")
                                 (CONS 5 "_ARCHTICK")
                                 (CONS 6 "_ARCHTICK")
                                 (CONS 7 "_ARCHTICK")
                                 (cons 40 0.01)
                                 (cons 41 120.0)
                                 (cons 42 200.0)
                                 (cons 43 200.0)
                                 (cons 44 200.0)
                                 (cons 45 10.0)
                                 (cons 70 0)
                                 (cons 73 0)
                                 (cons 74 0)
                                 (cons 77 1)
                                 (cons 78 12)
                                 (cons 140 280.0)
                                 (cons 141 1.0)
                                 (cons 143 1.0)
                                 (cons 144 100.0)
                                 (cons 145 1.6667)
                                 (cons 146 0.1667)
                                 (cons 147 100.0)
                                 (cons 171 0)
                                 (cons 172 1)
                                 (cons 173 1)
                                 (cons 174 1)
                                 (cons 176 256)
                                 (cons 177 256)
                                 (cons 178 3)
                                 (cons 274 0)
                                 (cons 284 12)
                                 (cons 285 12)
                                 (cons 286 12)
                                 (cons 340 dltxt)
                               )
                      )[/PHP]

DLTXT 是文字样式的句柄
[PHP]
(if        (null stelst)
      (setq stelst (tblobjname "style" "standard"))
    )
    (setq stelst (entget stelst))
    (setq dltxt        (cdr
                  (assoc -1 stelst)
                )
    )[/PHP]

litss

请问urljit ，
你的lisp中没有对线性标注精度做改动吧？如果现有样式"standard"中的精度是“0.0001”，而我想要的精度是“0”，那相应的组码是多少啊？怎么改呢？
我只知道DIMDEC这个命令可以控制精度，但好像没法修改样式中的实际精度。

fylinwater

在扩展数据里修改

litss

能不能说得明白点？我不是太懂这些。最好结合上边的例子，给段代码吧。

aeo

关键是建一个合适的标注样式

有了样式，再用这样式用cad命令画一个,entget一下
entmake照搬就可以.



=========================
上面我看错了:)

用cad的命令建一个合适的标注样式

setvar --> ? -->回车

所有dim*的计下来，照搬，再慢慢调整就可以.