cadm0211 发表于 2006-10-19 16:10:00

[VBA]合并文字样式与修改文字字体

<P>&nbsp;&nbsp;&nbsp; 经常碰到客户图纸文字样式建的很多，且个文字样式的文字字体各不一样。给修改图纸带来不便，所以想有没有办法可以把所有的文字样式合并在一起，而不是删除，这样不会影响原有的图纸。下面一段是修改字体的一段程序，请帮助修改成能合并文字样式的，要求文字样式全修改成standard</P>
<P>Sub setfont()<BR>Dim i As Integer<BR>Dim stCount As Integer<BR>Dim TextObj As AcadTextStyles<BR>On Error Resume Next<BR>Set TextObj = ThisDrawing.TextStyles<BR>stCount = TextObj.Count<BR>For i = 0 To stCount - 1<BR>TextObj.Item(i).fontFile = "gbenor.shx"<BR>TextObj.Item(i).BigFontFile = "gbcbig.shx"<BR>TextObj.Item(i).Width = 1<BR>TextObj.Item(i).TextSize = 0<BR>Next<BR>MsgBox "所有字体已经全部更改!&nbsp;&nbsp;&nbsp; ", vbApplicationModal + vbInformation + vbOKOnly, "code by xukehang"<BR>End Sub<BR></P>

azjmjsj 发表于 2006-10-28 10:53:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=55585" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=55585</A>

chixun99 发表于 2022-4-20 18:13:57

有用，收藏一下。我想要的功能是一般使用图纸不能全改别人的字体样式，只是把缺了字形文件的字体替换为本机有的字体就行了。不知哪位大佬有做过？

guangdonglbq 发表于 2022-4-20 20:54:18

http://bbs.mjtd.com/thread-67164-1-1.html
页: [1]
查看完整版本: [VBA]合并文字样式与修改文字字体