[求助]：批量替换CAD字体问题

lhdlgmz · 发表于 2004-3-28 10:03:40

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

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

×

有时打开别人提供的CAD图,里面有很多字体需要替换,有没有批量替换的办法?

whongjin · 发表于 2004-3-28 23:33:30

有，改天给你贴个自编的lsp。

lsjjm · 发表于 2004-3-29 08:34:50

最初由 lhdlgmz 发布
[B]有时打开别人提供的CAD图,里面有很多字体需要替换,有没有批量替换的办法? [/B]

请参考:
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-stylename obj "standard")
(setq n (1+ n))
)
)

louistango · 发表于 2004-3-29 08:37:04

如果对LSP语言不熟，有没有其他的办法？

lsjjm · 发表于 2004-3-29 08:45:54

最初由 louistango 发布
[B]如果对LSP语言不熟，有没有其他的办法？ [/B]

Modify-Propertites修改Test- Style

lhdlgmz · 发表于 2004-3-29 22:42:29

谢谢指教

chenjun001 · 发表于 2004-3-30 00:24:46

我用st的时候,有些字能改,有些字却不能改,不知道是什么原因?

louistango · 发表于 2004-3-30 08:30:47

我也遇到过楼上的问题，有些字体改过后，图面上显示不出来，但是手动先在字的特性里把它换成别的样式名，再换回来，才会变成修改后的字体，

surechi · 发表于 2004-4-1 18:06:27

探索者TSSD可以做得到批量替换

scottfotis · 发表于 2004-4-1 21:15:58

(setq stylent (tblnext "style" 1));GET FIRST STYLE ENTRY
  (while stylent
(setq stylename (cdr (assoc 2 stylent)));GET STYLE NAME
(command "-style" stylename "simplex.shx,hzdx.shx" "" "" "" "" "" "");CHANGE STYLE
(setq stylent (tblnext "style"));GETNEXT
  )
  (COMMAND "REGEN")
  (command "regenauto" "on")
  (princ);QUITE EXIT
);MAIN END

改改可以用

ZXK68 · 发表于 2004-4-1 22:22:56

用Autocad2004可以批量改，
选中要改的字体（右键弹出“快速选择”，根据需要选中需要的文字样式），例如：框选所有对象，然后点击文字样式工具按钮，选种一种文字要样式即可全部修改成需要的样式。

jiji0714 · 发表于 2004-4-2 09:11:11

但是在mtext里如果你原本定义的字体是宋体，但是在mtext编辑的时候你把它变成了其他的字体样式。这样再用格式刷等工具的时候，autocad2004就不会给你改过来。除非你的autocad装的有问题。^_^

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

[求助]：批量替换CAD字体问题

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

相关帖子

Re: [求助]：批量替换CAD字体问题

浏览过的版块