替换标注样式中的文字样式

duotu007

      (while (setq dxf (tblnext "Dimstyle" (not dxf)))
        (setq style (tblobjname "STYLE" "我的文字"))
        (setq dxf (subst (cons 340 style) (assoc 340 dxf) dxf))
        (entmod dxf)
      )
似乎这样不可以，求助。

zhynt

----写错了，已删除。---------------------------------------

xiguao

贴一个相近的例子
;;;批量修改标注文安标高
(defun c:sbz (/ n)
  (princ "\n选择要改文字高度的标注：")
  (vlax-for n (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))
    (if (= "DIM_FONT" (vla-get-name n))
        (progn
          (vla-put-fontfile n "gbenor.shx")
          (vla-put-bigfontfile n "GBCBIG.shx")
          (vla-put-width n 1.0)
        )
      ))
  (if
     (ssget "_X" '((0 . "DIMENSION")(3 . "DIMN")))
    (vlax-for n
                (vla-get-activeselectionset
                  (vla-get-activedocument (vlax-get-acad-object))
                )
      
      (VLA-put-textheight n 400)
    )
  )
  (princ)
)
不用管样式，只看标注实例

duotu007

entmod 函数更新由 elist 的 -1 组中指定的图元名的数据库信息
可标注样式
((0 . "DIMSTYLE") (2 . "大样100") (70 . 0) (3 . "") (4 . "") (5 . "ArchTick") (6
. "") (7 . "") (40 . 1.0) (41 . 120.0) (42 . 100.0) (43 . 120.0) (44 . 100.0)
(45 . 0.0) (46 . 100.0) (47 . 0.0) (48 . 0.0) (140 . 200.0) (141 . 0.09) (142 .
0.0) (143 . 25.4) (144 . 1.0) (145 . 0.0) (146 . 1.0) (147 . 60.0) (71 . 0) (72
. 0) (73 . 0) (74 . 0) (75 . 0) (76 . 0) (77 . 1) (78 . 0) (170 . 0) (171 . 2)
(172 . 1) (173 . 0) (174 . 1) (175 . 0) (176 . 4) (177 . 3) (178 . 65) (270 .
2) (271 . 0) (272 . 0) (273 . 2) (274 . 2) (340 . <图元名: 7ef64218>) (275 . 0)
(280 . 0) (281 . 0) (282 . 0) (283 . 1) (284 . 0) (285 . 0) (286 . 0) (287 . 5)
(288 . 0))
不含由 elist 的 -1 组中指定的图元名的数据库信息
如何跟新，求助。

duotu007

已解决
      (while (setq dxf (tblnext "Dimstyle" (not dxf)))
        (setq e1 (entget (tblobjname "dimstyle" (cdr (assoc 2 dxf)))))
        (setq e2 (tblobjname "style" b1))
        (setq ed (subst (cons 340 e2)(assoc 340 e1) e1))
        (entmod ed)
      )

tm20038175

好像有点门道了，如何改标注的图层了？