'参数:样式名、字体名、高度、宽度
'若样式不存在则创建,若存在则设置
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: 测量
发表评论
【声明】 路桥吾爱刊载的资讯及其他内容均由网友提供分享 并且纯属作者个人观点,不表示路桥吾爱同意其说法或描述,仅为提供更多信息,也不构成任何建议。网友转载请注明原作者姓名及出处。如有侵犯到您的版权,请与我们联系,我们会马上进行重新整理!