求大佬帮助如何批量修改文字高度

1864953597 · 发表于 2021-11-15 09:02

大佬们，有很多的cad文件，需要修改其中某个图层的字体高度，如何批量处理

mikewolf2k · 发表于 2021-11-15 09:29

选中了，属性框里改

1864953597 · 发表于 2021-11-15 09:33

mikewolf2k 发表于 2021-11-15 09:29
选中了，属性框里改

有好几千个cad文件

mikewolf2k · 发表于 2021-11-15 09:35

批量，简单。可以发要求守株待兔。也可以发挥钞能力加速。

ssyfeng · 发表于 2021-11-16 10:52

可以用这个插件，配合一段简单的修改字高的代码就可以了。
http://bbs.mjtd.com/thread-109121-1-1.html

bssurvey · 发表于 2021-11-17 11:01

本帖最后由 bssurvey 于 2021-11-18 17:38 编辑

可以用SCRIPT的指令，寫一個SCR副檔名去執行以下供參
open
d:\test\1.dwg
(load "d:/test/chtxth.lsp")
tt
save

close

把上面open這一段存成test.scr，如果有很多檔案就複製這一段放在close的下方，再將要看的圖檔改成要改的圖檔，例:
d:\test\1.dwg
(load "d:/test/chtxth.lsp")
tt
save

close
open

d:\test\2.dwg
(load "d:/test/chtxth.lsp")
tt
save

close

open
d:\test\3.dwg
(load "d:/test/chtxth.lsp")
tt
save

close
再將下列代碼存成chtxth.lsp

(defun c:chgtxth()
  (setvar "CMDECHO" 0)
  (setq se(ssget "x" (list '(0 . "TEXT")(cons 8 "0")))) ;"0"是圖層名稱，可以修改自己想要的
  (setq selength(sslength se))
  (setq i -1)
  (repeat selength
(setq ent(entget(ssname se(setq i(1+ i)))))
(setq txt-h(subst (cons 40 50.) (assoc 40 ent) ent)) ;50.是字高，可以自己的喜好更改字的高度
(entmod txt-h)
  )
  (setvar "CMDECHO" 1)
)
；這是比較土法鍊鋼的方式，給您做參考

bluelover · 发表于 2021-11-19 09:18

如果是通过文字样式定义的，循环打开-->逐个更新文字样式-->关闭

账号		自动登录	找回密码
密码			注册

求大佬帮助 如何批量修改文字高度

求大佬帮助如何批量修改文字高度