请问如何获取cad中已经存在的文字样式名字并且设置其中的某一个文字样式为当前样式

pucx

请问使用C#如何获取cad中已经存在的文字样式名字并且设置其中的某一个文字样式为当前样式？谢谢。

guohq

2. Function GetTextStyleS() As String()
   
3.         '功能:获取样式数组
   
4.         Using Trans As  Transaction = DB.TransactionManager.StartTransaction
   
5.             Dim StyleT As TextStyleTable = Trans.GetObject(DB.TextStyleTableId, OpenMode.ForRead)
   
6.             Dim Styles As New List(Of String), StyleTR As TextStyleTableRecord = Nothing
   
7.             For Each ID In StyleT
   
8.                 StyleTR = Trans.GetObject(ID, OpenMode.ForRead)
   
9.                 Styles.Add(StyleTR.Name)
   
10.             Next
    
11.             GetTextStyleS = Styles.ToArray
    
12.             Trans.Commit()
    
13.         End Using
    
14. End Function

Function GetTextStyleS() As String()<br />         '功能:获取样式数组<br />         Using Trans As  Transaction = DB.TransactionManager.StartTransaction<br />             Dim StyleT As TextStyleTable = Trans.GetObject(DB.TextStyleTableId, OpenMode.ForRead)<br />             Dim Styles As New List(Of String), StyleTR As TextStyleTableRecord = Nothing<br />             For Each ID In StyleT<br />                 StyleTR = Trans.GetObject(ID, OpenMode.ForRead)<br />                 Styles.Add(StyleTR.Name)<br />             Next<br />             GetTextStyleS = Styles.ToArray<br />             Trans.Commit()<br />         End Using<br /> End Function

guohq

设置当前样式：
Application.SetSystemVariable("textstyle", "当前样式名")

pucx

非常感谢、