MicroStation VBA 查找添加文本字体

'查找并设置文本样式格式
'参数:样式名、字体名、高度、宽度
'若样式不存在则创建，若存在则设置
Function adTextStyle(txtStyleName As String, txtFontName As String, txtStyleHeight As Single, txtStyleWidth As Single) As TextStyle
Dim aTextStyle As TextStyle
    Set aTextStyle = ActiveDesignFile.TextStyles.Find(txtStyleName)
    If aTextStyle Is Nothing Then
        Set aTextStyle = ActiveDesignFile.TextStyles.Add(Nothing, txtStyleName)
        aTextStyle.Height = txtStyleHeight
        aTextStyle.Width = txtStyleWidth
        aTextStyle.Font = FindFontByName(txtFontName)
    'Else
        'aTextStyle.Height = txtStyleHeight
        'aTextStyle.Width = txtStyleWidth
        'aTextStyle.Font = FindFontByName(txtFontName)
    End If
        Set adTextStyle = aTextStyle
End Function


TAG: 测量