Create non-existant text style

SRSDS — Thu, 05 Dec 2019 19:56:00 GMT

Some .doc files don't contain a text style I want to use.

The code: GetOrCreateTextStyle I found somewhere uses a variable called "bgfilename" which I assume points to a generic font template file.

Does anyone know what file path this variable might refer to?

Public Function GetOrCreateTextStyle(ByVal stylename As String, ByVal fontfilename As String, ByVal bgfilename As String, ByVal textheight As Double, ByRef trans As Transaction) As ObjectId
        Dim id As ObjectId = GetTextStyle(stylename, trans)
        If id = Nothing Then
            id = CreateTextStyle(stylename, fontfilename, bgfilename, textheight, trans)
        End If
        Return id
    End Function
    Public Function GetTextStyle(ByVal stylename As String, ByRef trans As Transaction) As ObjectId
        Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
        Return GetNonErasedTableRecordId(db.TextStyleTableId, stylename, trans)
    End Function
    Public Function GetNonErasedTableRecordId(ByVal TableId As ObjectId, ByVal Name As String, ByRef trans As Transaction) As ObjectId
        Dim id As ObjectId = Nothing
        Dim table As SymbolTable = DirectCast(trans.GetObject(TableId, OpenMode.ForRead), SymbolTable)
        If table.Has(Name) Then
            id = table(Name)
            If Not id.IsErased Then
                Return id
            End If
            For Each recId As ObjectId In table
                If Not recId.IsErased Then
                    Dim rec As SymbolTableRecord = DirectCast(trans.GetObject(recId, OpenMode.ForRead), SymbolTableRecord)
                    If String.Compare(rec.Name, Name, True) = 0 Then
                        Return recId
                    End If
                End If
            Next
        End If
        Return id
    End Function
    Public Function CreateTextStyle(ByVal stylename As String, ByVal filename As String, ByVal bgfilename As String, ByVal textheight As Double, ByRef trans As Transaction) As ObjectId
        Dim id As ObjectId = Nothing
        Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
        Try
            Dim tst As TextStyleTable = DirectCast(trans.GetObject(db.TextStyleTableId, OpenMode.ForRead, False), TextStyleTable)
            Using ts As New TextStyleTableRecord()
                ts.Name = stylename
                ts.FileName = filename
                If bgfilename <> String.Empty Then
                    ts.BigFontFileName = bgfilename
                End If
                ts.TextSize = textheight
                ts.XScale = 1.0
                tst.UpgradeOpen()
                tst.Add(ts)
                trans.AddNewlyCreatedDBObject(ts, True)
                id = ts.ObjectId
            End Using
        Catch ex As Exception
            MsgBox(Reflection.MethodBase.GetCurrentMethod.Name() + " Exception: " + ex.Message)
        End Try
        Return id
    End Function

Re: Create non-existant text style

Ajilal.Vijayan — Sun, 08 Dec 2019 06:32:48 GMT

This is to set the big font file property of text style.

If your new style is not shx font, then you can ignore this variable by giving an empty string ( "")

If you want to use then use and big font file name , like bigfont.shx or other

Re: Create non-existant text style

SRSDS — Sun, 08 Dec 2019 15:40:14 GMT

Thanks Ajilal,

That explains things.

I also worked out that the template file with the 'problem' was causing the app to fail to load correctly which was the cause of the missing font.

Re: Create non-existant text style

Ajilal.Vijayan — Mon, 09 Dec 2019 05:53:16 GMT

You're welcome, glad I could help.

topic Re: Create non-existant text style in .NET Forum

Create non-existant text style

Re: Create non-existant text style

Re: Create non-existant text style

Re: Create non-existant text style