CAD文字不正常显示（文字显示“???“）——vba插件可批量改变

cad中经常出现文字不显示完整，显示为“？？？”，这时字体设置原因。当有大量cad文件需要改字体时，可通过vba插件一键实现。

插件使用方法：

加载方法：CAD任务栏输入“vbaman”加载此插件，输入“rbarun”运行即可。

 

可批量修改一个文件夹内所有dwg文件：

下图可见，文字已恢复正常。

 

批量改变多个dwg文件内字体，此插件也可实现。

部分代码如下

Sub 批量CAD文件设置宋体()
On Error Resume Next
Set mytxtstyle = ThisDrawing.TextStyles.Add("mytxt")
mytxtstyle.fontFile = "c:\windows\fonts\STSONG.TTF" '设置字体文件为仿宋体
ThisDrawing.ActiveTextStyle = mytxtstyle  '将当前文字样式设置为mytxt
ThisDrawing.SelectionSets.Item("mysel2").Delete
Set sel = ThisDrawing.SelectionSets.Add("mysel2")
sel.Select acSelectionSetAll, , , ftypetxt, fdatatxt
'''''''''''''''''''''''''''''''''''
'''完整代码qq443440204
'''
'''
'''''''''''''''''''''''''''''''''''

sel.Delete
ZoomExtents
MsgBox "已完成!" & vbCr & "qq:443440204", , "版权所有qq:443440204"
End Sub