[求助]：我想一次修改所有的字体，可不可以做到

liyer · 发表于 2004-4-24 10:16:34

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

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

×

我想一次修改所有的字体，可不可以做到。有一些字体样式我做过改动的，没有用样式里的那种字体，就发现修改的这些字体只有一个一个的来了*-*1

lsjjm · 发表于 2004-4-24 11:49:37

请参考：
(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))
)
)

xbx7920 · 发表于 2004-4-24 23:59:04

先用FILTER过滤搜索TEXT，再用BONUS里面的EXCHPROP命令对其进行操作啊。

lsjjm · 发表于 2004-4-25 06:09:45

命令行操作也可以使用MA(MATCHPROP).

WRHCHINA · 发表于 2004-4-25 15:14:36

最初由 lsjjm 发布
[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-style... [/B]

真是好，我正想着用cad的哪些技巧可解决这个问题，这下省了大事了！

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

[求助]：我想一次修改所有的字体，可不可以做到

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

相关帖子

浏览过的版块