'查找文字样式是否存在
For Each AcadTxtStyle In ThisDrawing.TextStyles
If AcadTxtStyle.Name = "样式1" Then
AcadTxtStyle.fontFile = "Simplex.shx"
AcadTxtStyle.BigFontFile = "hztxt.shx"
AcadTxtStyle.ObliqueAngle = "0"
AcadTxtStyle.Height = "0"
AcadTxtStyle.Width = "0.85"
Exit For
End If
Next