[求助]：CAD里有没自动替换文字样式的办法？

GOFLYING · 发表于 2004-8-25 21:56:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

单位经常和外界交换图纸，他们的文字样式要么不合要求，要么没有字体。
每次都要一个一个的更改文字样式，非常麻烦。

请教一种办法可以自动批量更换文字样式的办法或工具，谢谢。。。

柔柔 · 发表于 2004-8-26 00:12:15

(defun c:rep (/ elist nm en cn enl)
(setq elist (tblnext "STYLE" T))
(while (/= elist nil)
   (setq nm (cdr (assoc 2 elist))
         en (cdr (assoc 3 elist))
         cn (cdr (assoc 4 elist))
         enl (strlen en)
   )
   (if (and
         (/= en nil)
         (= cn nil)
         (= (findfile en) nil)
         (= (strcase (substr en (- enl 2))) "SHX")
         )
      (command "_style" nm "romans.shx" "0.0" "0.8" "" "" "" "")
   )
   (if (and
         (/= cn nil)
         (= (findfile cn) nil)
         )
      (command "_style" nm "gbenor.shx,gbcbig.shx" "0.0" "1.0" "" "" "" "")
   )
   (setq elist (tblnext "STYLE"))
)
)

david96007 · 发表于 2004-8-25 22:05:26

我认为首先的规范字体，不要搞那么多种类，如果只有一种字体可用，就不会出现这种问题了！但现在一些二次开发的程序，为了达到自己的目的，经常建立一些自己所特有的字体，也就带来了楼主的问题！

柔柔 · 发表于 2004-8-25 22:11:02

这样的小程序到处有，我就曾经编过，找找吧。

GOFLYING · 发表于 2004-8-25 23:43:45

楼上的姐姐帮帮我吧，给个连接好不好？？

jurgzi · 发表于 2004-8-26 10:22:59

长老的lsp是把所有文字样式都改成仿宋体了，如果我要把所有样式都改成宋体的话，“gbenor.shx,gbcbig.shx”应该用什么代替啊？

mnyhk · 发表于 2004-8-26 11:49:40

直接用STYLE改不就行了吗？！

柔柔 · 发表于 2004-8-26 11:53:34

没有“把所有。。。”
(if (and
(/= en nil)
(= cn nil)
(= (findfile en) nil)
(= (strcase (substr en (- enl 2))) "SHX")
)

如果西文上有字体，中文没字体（大字体没设置），并且找不到那个西文字体文件（你电脑内没有），用的是shx字体，才。。。

(if (and
(/= cn nil)
(= (findfile cn) nil)

设置了大字体（当然西文也有），又找不到字体文件，才。。。

照你的要求更简单：
(defun c:rep (/ elist nm )
(setq elist (tblnext "STYLE" T))
(while (/= elist nil)
  (setq nm (cdr (assoc 2 elist)))
  (command "_style" nm "宋体" "0.0" "1.0" "" "" "")
  (setq elist (tblnext "STYLE"))
)
)

jxsd627 · 发表于 2004-8-26 15:29:06

我也看不懂，这些到底是改那个文件呀，能不能说详细点。

GOFLYING · 发表于 2004-8-26 22:35:55

多谢长老的代码。。。。

ruansh · 发表于 2004-8-27 15:00:34

用list查看一下样式,然后用style修改样式的字体就可以把该样式的所有文字都修改了呀?!

GOFLYING · 发表于 2004-8-27 20:41:34

请教长老一下，这段代码存成lsp文件，在cad里载入以后，怎么运行它呀？？

51768 · 发表于 2004-8-28 05:57:30

最初由 GOFLYING 发布
[B]请教长老一下，这段代码存成lsp文件，在cad里载入以后，怎么运行它呀？？ [/B]

可以存成rep.lsp，加载后命令rep。我把宋体改成仿宋后在高版本的cad上效果很爽，在14上可惜不是我想要的仿宋而是另外一种仿宋了。长老能再给个按文字样式名替换TT字体的吗？如KT就是TT楷体、XL就是隶书，除了几个其它都可以统一成宋体或仿宋啦。

XM970100 · 发表于 2004-8-28 13:54:16

多谢代码啊

GOFLYING · 发表于 2004-8-28 22:56:12

我运行后，怎么没有更改字体样式呀。。。

命令: rep
_style 输入文字样式名或 [?] <ZB2>: ZB1
现有样式。
指定完整的字体名或字体文件名 (TTF 或 SHX):  <txt>: gbenor.shx,gbcbig.shx
gbcbig.shx 是常规字体，不是大字体。
命令: 0.0 未知命令“0.0”。按 F1 查看帮助。

命令: 1.0 未知命令“1.0”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: _style 输入文字样式名或 [?] <ZB2>: TXT
现有样式。
指定完整的字体名或字体文件名 (TTF 或 SHX):  <txt>: gbenor.shx,gbcbig.shx
gbcbig.shx 是常规字体，不是大字体。
命令: 0.0 未知命令“0.0”。按 F1 查看帮助。

命令: 1.0 未知命令“1.0”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: _style 输入文字样式名或 [?] <ZB2>: ZB2
现有样式。
指定完整的字体名或字体文件名 (TTF 或 SHX):  <txt>: gbenor.shx,gbcbig.shx
gbcbig.shx 是常规字体，不是大字体。
命令: 0.0 未知命令“0.0”。按 F1 查看帮助。

命令: 1.0 未知命令“1.0”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: REP 未知命令“REP”。按 F1 查看帮助。

命令: nil

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

[求助] [求助]：CAD里有没自动替换文字样式的办法？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子