.NET TextStyles collection

[amaser]

how do i cycle through all the text styles in a drawing?

i'm using VB.NET 2008, and have the following code:

PublicSub FixTxtHt()
'define variables
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acDocDb As Database = acDoc.Database

Using acTrans As Transaction = acDocDb.TransactionManager.StartTransaction()
Dim acTxtTbl As TextStyleTable
acTxtTbl = 'NOT SURE WHAT GOES HERE
Dim acTxtTblRec As TextStyleTableRecord
ForEach acTxtTblRec In acTxtTbl
If acTxtTblRec.Name = "L70"Then
acTxtTblRec.TextSize = 0.07
EndIf
If acTxtTblRec.Name = "L80"Then
acTxtTblRec.TextSize = 0.08
EndIf
If acTxtTblRec.Name = "L90"Then
acTxtTblRec.TextSize = 0.09
EndIf
If acTxtTblRec.Name = "L100"Then
acTxtTblRec.TextSize = 0.1
EndIf
If acTxtTblRec.Name = "L120"Then
acTxtTblRec.TextSize = 0.12
EndIf
If acTxtTblRec.Name = "L140"Then
acTxtTblRec.TextSize = 0.14
EndIf
If acTxtTblRec.Name = "L200"Then
acTxtTblRec.TextSize = 0.2
EndIf
If acTxtTblRec.Name = "L240"Then
acTxtTblRec.TextSize = 0.24
EndIf
Next
acTrans.Commit()
EndUsing
EndSub

I'm not sure how to reference the TextStyles collection object to use int he for each statement. I've got a comment on the line where i'm not sure what to enter

[Kerry Brown]

You need to reference the acCurDb.TextStyleTableId

Perhaps something like this ...

       /// <summary>
        /// 
        /// </summary>  
        [CommandMethod("FTH")]
        public static void FixTextHeight()
        {
            // Get the current document and database, and start a transaction 
            Document doc = AcadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using(Transaction tr = db.TransactionManager.StartTransaction())
            {
                // Return the TextStyle table for the current database                  
                TextStyleTable tsTbl = tr.GetObject(db.TextStyleTableId, OpenMode.ForRead) as TextStyleTable;

                // Step through the TextStyle table
                foreach(ObjectId objId in tsTbl)
                {
                    TextStyleTableRecord tsTblRec = tr.GetObject(objId, OpenMode.ForWrite) as TextStyleTableRecord;
                    string textStyleName = tsTblRec.Name;
                    // If the StyleNAme matches, change the TextSize.
                    switch(textStyleName)
                    {
                        case "L70" :
                            tsTblRec.TextSize = Convert.ToDouble(AcadApp.GetSystemVariable("DIMSCALE")) * 0.07;
                            break;
                        case "L80":
                            tsTblRec.TextSize = Convert.ToDouble(AcadApp.GetSystemVariable("DIMSCALE")) * 0.08;
                            break;
                        default:
                            break;
                    }                    
                }
                tr.Commit();
                // Dispose of the transaction via the 'using' statement 
            }
        }

[Kerry Brown]

on a revisit :

The TextStyleTable does not need to be opened ForWrite .. ForRead will work

Code amended accordingly ...

[amaser]

that did the trick. i have no idea why it didn't work in vb.net, but your example worked.
thanx
'

You need to reference the acCurDb.TextStyleTableId

Perhaps something like this ...

       /// <summary>
        /// 
        /// </summary>  
        [CommandMethod("FTH")]
        public static void FixTextHeight()
        {
            // Get the current document and database, and start a transaction 
            Document doc = AcadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using(Transaction tr = db.TransactionManager.StartTransaction())
            {
                // Return the TextStyle table for the current database                  
                TextStyleTable tsTbl = tr.GetObject(db.TextStyleTableId, OpenMode.ForRead) as TextStyleTable;
 
                // Step through the TextStyle table
                foreach(ObjectId objId in tsTbl)
                {
                    TextStyleTableRecord tsTblRec = tr.GetObject(objId, OpenMode.ForWrite) as TextStyleTableRecord;
                    string textStyleName = tsTblRec.Name;
                    // If the StyleNAme matches, change the TextSize.
                    switch(textStyleName)
                    {
                        case "L70" :
                            tsTblRec.TextSize = Convert.ToDouble(AcadApp.GetSystemVariable("DIMSCALE")) * 0.07;
                            break;
                        case "L80":
                            tsTblRec.TextSize = Convert.ToDouble(AcadApp.GetSystemVariable("DIMSCALE")) * 0.08;
                            break;
                        default:
                            break;
                    }                    
                }
                tr.Commit();
                // Dispose of the transaction via the 'using' statement 
            }
        }