如何用.net修改图纸中的文字样式

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
        [CommandMethod("my")]
        public void my()
        {
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            TypedValue[] tv = new TypedValue[1];
            tv[0] = new TypedValue((int)DxfCode.Start, "TEXT");
            SelectionFilter sf = new SelectionFilter(tv);
            PromptSelectionResult psres = ed.GetSelection(sf);
            if (psres.Status != PromptStatus.OK) return;
            SelectionSet sset = psres.Value;
            Database db = HostApplicationServices.WorkingDatabase;
            int num = 0;
            foreach (SelectedObject sobj in sset)
            {
                using (Transaction ta = db.TransactionManager.StartTransaction())
                {
                    Entity ent = (Entity)ta.GetObject(sobj.ObjectId, OpenMode.ForRead);
                    if (ent is DBText)
                    {
                        ent.UpgradeOpen();
                        DBText myText = ent as DBText;
                        TextStyleTable tst = ta.GetObject(db.TextStyleTableId, OpenMode.ForRead) as TextStyleTable;
                        myText.TextStyleId = tst["st"];
                        num++;
                    
                    }
                    ta.Commit();
                }
                
                ed.WriteMessage("\n修改文本数量："+num.ToString());
            }
        }

    ''' 
    ''' 样式改为一种
    ''' 
    ''' 改后的样式
    ''' 
    Public Sub TextStyleToSame(ByVal ToStyle As String)
        Using Trans As Transaction = MyBase.DB.TransactionManager.StartTransaction
            Dim StyTab As TextStyleTable = Trans.GetObject(DB.TextStyleTableId, OpenMode.ForWrite)
            ToStyle = ToStyle.Trim.ToUpper
            If StyTab.Has(ToStyle) Then
                Dim MainStyleRec As TextStyleTableRecord = Trans.GetObject(StyTab(ToStyle), OpenMode.ForWrite)
                Dim TempRec As TextStyleTableRecord = Nothing, TempName As String = ""
                For Each ID As ObjectId In StyTab
                    Try
                        TempRec = Trans.GetObject(ID, OpenMode.ForWrite)
                        TempName = TempRec.Name
                        If TempName.Trim = "" Then
                            Continue For
                        End If
                        If TempName.ToUpper  ToStyle Then
                            TempRec.CopyFrom(MainStyleRec)
                            TempRec.Name = TempName
                        End If
                    Catch ex As Autodesk.AutoCAD.Runtime.Exception
                    End Try
                Next
            End If
            Trans.Commit()
        End Using
    End Sub