[编程申请]：求助高手，写一程序，将当前文档中所有文字样式的字体改成仿宋体

jiang820408

求助高手，写一程序，将当前文档中所有文字样式的字体改成仿宋体!小弟急用，实在急...谢谢!

lzhhtm

用文字样式直接修改不就可以了吗？

happy205010

有这么强的文件吗？ 2楼的方法也可以用，还有用格式刷也可以啊！

jiang820408

我说的是用编程的方式实现啊，点一下就全部修改过来了。还是自己努力，我快做出来了。
Sub Iteratelayer()
On Error Resume Next
Dim I As Integer
'定义MSG为字符串类型变量
Dim msg As String
msg = ""
'在图层集合中循环
For I = 0 To ThisDrawing.TextStyles.Count - 1
'在文本中输入新的内容换行
msg = msg + ThisDrawing.TextStyles.Item(I).Name + vbCrLf
Next
'弹出对话框显示输入内容
MsgBox msg
End Sub

hckdk

我也想要这种文程序啊，呵呵

zxdvip

迷你建筑里有字体合并,很好用.至于迷你建筑,麻烦自己搜一下.

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060122 (2003)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (setq style-list (xyp-get-tblnext "STYLE"))
    
17.   (foreach style
    
18.            style-list
    
19.            (command "_style" style "宋体" "0" "1" "0" "" "")
    
20.   )
    
21.   (CMDLA1)
    
22. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060122 (2003)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq style-list (xyp-get-tblnext "STYLE"))<br />   (foreach style<br />            style-list<br />            (command "_style" style "宋体" "0" "1" "0" "" "")<br />   )<br />   (CMDLA1)<br /> )[/FONT]

peiczg

可不可以换成所有文字样式的字体改成宋体的？
程序能不能改？

hululu

参考俺们结构的做法，运行cf

SONG421

我也需要这个程序，好人真多啊

qiaqiadeng

做事要简单：
(defun c:txt ()                                ;将所有文字样式改成tssdeng.shx字体
  (VL-LOAD-COM)
  (setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument Acadobject)
        TextColl     (vla-get-TextStyles AcadDocument)
  )
                                        ; (setq num (vla-get-count textcoll))
                                        ;(setq index 0)
  (vlax-for obj        textcoll
    (setq nameobj (vla-get-name obj))
    (command "STYLE"            nameobj           "宋体"
             "0"            ".8"           "0"
             "n"            "n"                   "n"
            )
    (prompt nameobj)
  )
)

Basilisk

可以用vba的方法
上面已经给出代码了

chinasuperpower

可以用fi命令来全选文字然后一下就能改过来。

boy_jun

谢谢楼主的程序