求大佬帮助 如何批量修改文字高度
大佬们 ,有很多的cad文件, 需要修改其中某个图层的字体高度, 如何批量处理选中了, 属性框里改 mikewolf2k 发表于 2021-11-15 09:29
选中了, 属性框里改
有好几千个cad文件 批量,简单。可以发要求守株待兔。也可以发挥钞能力加速。 可以用这个插件,配合一段简单的修改字高的代码就可以了。
http://bbs.mjtd.com/thread-109121-1-1.html 本帖最后由 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)
)
;這是比較土法鍊鋼的方式,給您做參考
如果是通过文字样式定义的,循环打开-->逐个更新文字样式-->关闭
页:
[1]