[讨论]：文字样式问题,应当如何处理？

leasu

一张cad图中使用了几种文字样式，要想把几种文字样式统一为其中一种，并把其余的文字样式全部删除，应当如何做？*-*8

xiaping

用过滤器选中想删除的文字样式替换为想保留的文字。使用使用工具清理没有使用的文字样式即可。

sunyaer

最初由 leasu 发布
[B]一张cad图中使用了几种文字样式，要想把几种文字样式统一为其中一种，并把其余的文字样式全部删除，应当如何做？*-*8 [/B]

如果你用Autocad2002 的话, 用CAD标准很快就能把几种文字样式统一为其中一种.先用你想保留的那种文字样式建一个标准文件,然后进行CAD标准检查.

lsjjm

试试这个程序:
(defun c:test ( / ss)
  (vl-load-com)
  (setq tstyles (vla-get-TextStyles
                  (vla-get-activedocument
                    (vlax-get-Acad-Object))))
  (setq ent (entsel "\nSelect entity to change TextStyle of Text: "))
  (setq tsty (vla-get-Stylename (vlax-ename->vla-object (car ent))))
  (setq ss (ssget "x" '((0 . "*TEXT"))))
  (setq n 0)
  (while (< n (sslength ss))
    (vla-put-Stylename (vlax-ename->vla-object (ssname ss n)) tsty)
    (setq n (1+ n))
  )
  (command "._purge" "All" "*" "N")
  (princ)
)

leasu

楼上几位朋友的方法我都不行啊。按2楼朋友的介绍，我在cad2002中找不到过滤器；按3楼朋友的方法，在cad标准配置时，又找不到需要的标准文件；3楼朋友的程序我可是一窍不通哦。各位朋友能不能再详细一点？

♂笨笨♀

最初由 leasu 发布
[B]楼上几位朋友的方法我都不行啊。按2楼朋友的介绍，我在cad2002中找不到过滤器；按3楼朋友的方法，在cad标准配置时，又找不到需要的标准文件；3楼朋友的程序我可是一窍不通哦。各位朋友能不能再详细一点？ [/B]

"在cad标准配置时，又找不到需要的标准文件"-----这个标准文件需要自己做的，你可以设置好文字样式后保存为*.dws即可

leasu

多谢笨笨的指点，我再试一下。