[求助]：怎样快速代换已知字体

CADABC · 发表于 2007-4-22 10:59:36

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

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

×

大家好,怎样快速代换多种字体样式中,大字体,如,只要SHX字体为:romans.的大字体都换成:HZTEXT.谢谢,

jasan · 发表于 2007-4-23 09:41:06

用那么多字体干吗，偶最多用3种字体。简洁

hhhhyyyyzzzz · 发表于 2007-4-30 16:35:17

R14版本中有个 CHT 命令可以做到！

and2008 · 发表于 2007-5-1 09:03:34

在字体样式栏,一一改过来就OK

carrot1983 · 发表于 2007-5-3 15:27:13

[PHP]
(defun c:ft()
  (setq elist (tblnext "STYLE" T))
  (while (/= elist nil)
   (setq nm (cdr (assoc 2 elist))
         en (cdr (assoc 3 elist))
   )
(if (= en "romans.shx")
(command "_style" nm "romans.shx,hztxt.shx" "0.0" "0.8" "" "" "" "")
)
(setq elist (tblnext "STYLE"))
)
)
[/PHP]

CADABC · 发表于 2007-5-10 12:40:58

carrot1983 你好！先谢谢你的帮助，试了一下，只能修第一个字体样式，后面的不能一一修改过来，请再帮帮忙，谢谢。

netbee · 发表于 2007-5-10 13:30:54

其实用4楼的方法就行了。一个图形文件中定义的字体不会太多，没有必要再编程处理吧？

qiaqiadeng · 发表于 2007-5-12 21:58:07

(defun *$dyq-error$* (msg)
  ;(command ".undo" "")
  (setq *error* &olderr&)
  ;(princ)
)

(defun c:xt (/ AcadObject AcadDocument textColl obj nameobj)
  (prompt "将所有文字样式改成tssdeng.shx字体...")
  (setq &olderr& *error*)
  (setq *error* *$dyq-error$*)
  (setvar "cmdecho" 0)
  (VL-LOAD-COM)
  (setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
TextColl    (vla-get-TextStyles AcadDocument)
  )
  (vlax-for obj textcoll
(setq nameobj (vla-get-name obj))
(command "STYLE" nameobj "tssdeng.shx,tssdchn.shx" 300 ".7" "0" "n" "n" "n")
(prompt (strcat nameobj "****"))
  )
  (setq *error* &olderr&)
  (princ)
)

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

[求助] [求助]：怎样快速代换已知字体

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

相关帖子