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

cnstal

图纸中已经存在很多文字样式，用的字体也都乱七八糟，现在想写一个.net程序，让所有文字都刷成同一种文字样式，使用相同的字体，该怎么做？
我刚开始学着做.net cad，没多少思路，麻烦给提示下。

cnstal

有人帮助一下吗？

qiuljun

顶一下,我也在找!如何改变dwg中字体!

liuxu042

试试如下代码，需要将字体样式名字改为你想的，为了简单处理，没有加判断处理，所以必须保证图幅中存在此名称的文本样式，使用时请注意

2. using Autodesk.AutoCAD.Runtime;
   
3. using Autodesk.AutoCAD.ApplicationServices;
   
4. using Autodesk.AutoCAD.DatabaseServices;
   
5. using Autodesk.AutoCAD.EditorInput;
   
6. 
   
7.         [CommandMethod("my")]
   
8.         public void my()
   
9.         {
   
10.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
11.             TypedValue[] tv = new TypedValue[1];
    
12.             tv[0] = new TypedValue((int)DxfCode.Start, "TEXT");
    
13.             SelectionFilter sf = new SelectionFilter(tv);
    
14.             PromptSelectionResult psres = ed.GetSelection(sf);
    
15.             if (psres.Status != PromptStatus.OK) return;
    
16.             SelectionSet sset = psres.Value;
    
17.             Database db = HostApplicationServices.WorkingDatabase;
    
18.             int num = 0;
    
19.             foreach (SelectedObject sobj in sset)
    
20.             {
    
21.                 using (Transaction ta = db.TransactionManager.StartTransaction())
    
22.                 {
    
23.                     Entity ent = (Entity)ta.GetObject(sobj.ObjectId, OpenMode.ForRead);
    
24.                     if (ent is DBText)
    
25.                     {
    
26.                         ent.UpgradeOpen();
    
27.                         DBText myText = ent as DBText;
    
28. 
    
29.                         TextStyleTable tst = ta.GetObject(db.TextStyleTableId, OpenMode.ForRead) as TextStyleTable;
    
30.                         myText.TextStyleId = tst["st"];
    
31.                         num++;
    
32.                     
    
33.                     }
    
34.                     ta.Commit();
    
35.                 }
    
36.                
    
37.                 ed.WriteMessage("\n修改文本数量："+num.ToString());
    
38.             }
    
39.         }

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

ps122hb

是这效果么？

mkhsj928

跟我很久以前的想法一样，呵呵，已经基本实现这个功能，只是少数图纸还替换不完全，没找到原因。
CAD文档中牵涉到文字的有如下几种实体：
1.纯文本：DBText，MText'
2.标注样式：DimStyleTableRecord
3.块定义实体（非块参照，只要把块定义中含有的文字样式替换掉，所有参照都替换了）：BlockTableRecord
4.属性定义实体：这个好像要对每个块参照都要判断 AttributeReference
5.表格样式和表格单元格中的文字样式：本来以为修改字体样式可以自动修改，但经过试验，好像有些不行
我说实现的就这些，还有木有？知道的说下！

zhengjian211

请问楼上那个字体预览功能是怎么做的,谢谢!

guohq

如果要改成一个效果，可能通过更改样式表，这样可以将有到此样式的所有文字、块中的文字等全部改掉。

2.     '''
   
3.     ''' 样式改为一种
   
4.     '''
   
5.     ''' 改后的样式
   
6.     '''
   
7.     Public Sub TextStyleToSame(ByVal ToStyle As String)
   
8.         Using Trans As Transaction = MyBase.DB.TransactionManager.StartTransaction
   
9.             Dim StyTab As TextStyleTable = Trans.GetObject(DB.TextStyleTableId, OpenMode.ForWrite)
   
10.             ToStyle = ToStyle.Trim.ToUpper
    
11.             If StyTab.Has(ToStyle) Then
    
12.                 Dim MainStyleRec As TextStyleTableRecord = Trans.GetObject(StyTab(ToStyle), OpenMode.ForWrite)
    
13.                 Dim TempRec As TextStyleTableRecord = Nothing, TempName As String = ""
    
14.                 For Each ID As ObjectId In StyTab
    
15.                     Try
    
16.                         TempRec = Trans.GetObject(ID, OpenMode.ForWrite)
    
17.                         TempName = TempRec.Name
    
18.                         If TempName.Trim = "" Then
    
19.                             Continue For
    
20.                         End If
    
21.                         If TempName.ToUpper <> ToStyle Then
    
22.                             TempRec.CopyFrom(MainStyleRec)
    
23.                             TempRec.Name = TempName
    
24.                         End If
    
25.                     Catch ex As Autodesk.AutoCAD.Runtime.Exception
    
26. 
    
27.                     End Try
    
28.                 Next
    
29.             End If
    
30.             Trans.Commit()
    
31.         End Using
    
32.     End Sub

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