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