[求助]创建指定样式名的单行文字

carrot1983

1.         // 由插入点、文字内容、文字高度和倾斜角度创建单行文字的函数.
2.         public static ObjectId AddText(Point3d position, string textString, ObjectId style, double height, double oblique)
3.         {
4.             try
5.             {
6.                 DBText ent = new DBText();
7.                 ent.Position = position;
8.                 ent.TextString = textString;
9.                 ent.Height = height;
10.                 ent.Oblique = oblique;
11.                 ObjectId entId = AppendEntity(ent);
12.                 return entId;
13.             }
14.             catch
15.             {
16.                 ObjectId nullId = ObjectId.Null;
17.                 return nullId;
18.             }
19.         }

复制代码

2. public void CreateStyle()
3.         {
4.             Database db = HostApplicationServices.WorkingDatabase;
5.             using (Transaction trans = db.TransactionManager.StartTransaction())
6.             {
7.                 TextStyleTable st = (TextStyleTable)trans.GetObject(db.TextStyleTableId, OpenMode.ForWrite);
8.                 String StyleName = "工程图";
9.                 if (st.Has(StyleName) == false)
10.                 {
11.                     TextStyleTableRecord str = new TextStyleTableRecord();
12.                     str.Name = StyleName;
13.                     str.FileName = "simfang.ttf";
14.                     //---------------------------------------------
15.                     // 设置SHX字体
16.                     // str.FileName = "gbenor"
17.                     //设置大字体.
18.                     // str.BigFontFileName = "gbcbig"
19.                     // --------------------------------------------
20.                     str.ObliquingAngle = 15 * Math.PI / 180;
21.                     str.XScale = 0.67;
22.                     ObjectId TextstyleId = st.Add(str);
23.                     trans.AddNewlyCreatedDBObject(str, true);
24.                     db.Textstyle = TextstyleId;
25.                     trans.Commit();
26.                 }
27.             }
28.         }

public void CreateStyle()         {             Database db = HostApplicationServices.WorkingDatabase;             using (Transaction trans = db.TransactionManager.StartTransaction())             {                 TextStyleTable st = (TextStyleTable)trans.GetObject(db.TextStyleTableId, OpenMode.ForWrite);                 String StyleName = "工程图";                 if (st.Has(StyleName) == false)                 {                     TextStyleTableRecord str = new TextStyleTableRecord();                     str.Name = StyleName;                     str.FileName = "simfang.ttf";                     //---------------------------------------------                     // 设置SHX字体                     // str.FileName = "gbenor"                     //设置大字体.                     // str.BigFontFileName = "gbcbig"                     // --------------------------------------------                     str.ObliquingAngle = 15 * Math.PI / 180;                     str.XScale = 0.67;                     ObjectId TextstyleId = st.Add(str);                     trans.AddNewlyCreatedDBObject(str, true);                     db.Textstyle = TextstyleId;                     trans.Commit();                 }             }         }

                String StyleName = "工程图";
                string textStr = "%%u" + "单行文字ABC123" + "%%u";
                // 我现在不知道怎么将类型为string的StyleName转成我需要的style(其类型为ObjectId)。。。。。
                AddText(new Point3d(0, 0, 0), textStr, style, 0, 0);

carrot1983

上面的两个函数原文取自：

《AutoCAD VBA&VB.NET开发基础与实例教程》

作者：曾洪飞 张帆 卢择临编著 书自带光盘

如果没有看错，第一个函数可能少了一句。ent.TextStyle = style;

oblique属性应该是文字倾斜度（一般用不上这个属性）

应该改为角度Rotation比较实用吧

carrot1983

给个Lisp的建立单行文字的。

3. ;;;(JW-MK_TEXT PT STRING STYLE HEIGHT ANG)
4. (defun JW-MK_TEXT (PT STRING STYLE HEIGHT ANG)
5.   (if (entmake (list (cons 0 "TEXT")
6.        (cons 100 "AcDbEntity")
7.        (cons 100 "AcDbText")
8.        (cons 1 STRING)
9.        (cons 7 STYLE)
10.        (cons 10 PT)
11.        (cons 40 HEIGHT)
12.        (cons 50 ANG)
13.         )
14.       )
15.     (entlast)
16.   )
17. )

;;;(JW-MK_TEXT PT STRING STYLE HEIGHT ANG) (defun JW-MK_TEXT (PT STRING STYLE HEIGHT ANG)   (if (entmake (list (cons 0 "TEXT")        (cons 100 "AcDbEntity")        (cons 100 "AcDbText")        (cons 1 STRING)        (cons 7 STYLE)        (cons 10 PT)        (cons 40 HEIGHT)        (cons 50 ANG)         )       )     (entlast)   ) )

雪山飞狐_lzh

文字式样记录存在于文字式样表里
首先打开文字式样表，然后
txt.TextStyle = tst[tsname]
另，创建文字式样记录的函数最好返回Id：
下面是我的自定义类里的函数

1.         public ObjectId AddTextStyle(string name, string smallfont, string bigfont, double height, double xscale)
2.         {
3.             ObjectId id = GetRecordId(m_TextStyleTable, name);
4.             if (id == ObjectId.Null)
5.             {
6.                 TextStyleTableRecord tstr = new TextStyleTableRecord();
7.                 tstr.Name = name;
8.                 tstr.FileName = smallfont;
9.                 tstr.BigFontFileName = bigfont;
10.                 tstr.TextSize = height;
11.                 tstr.XScale = xscale;
12.                 m_TextStyleTable.UpgradeOpen();
13.                 id = m_TextStyleTable.Add(tstr);
14.                 m_Transaction.AddNewlyCreatedDBObject(tstr, true);
15.             }
16.             return id;
17.         }

复制代码

sailorcwx

2. Public Sub addtext()
3.         Dim mytext As New DBText
4.         mytext.TextString = "测试"
5.         mytext.Position = New Point3d(0, 0, 0)
6.         Dim Db As Database = HostApplicationServices.WorkingDatabase
7.         Using Trans As Transaction = Db.TransactionManager.StartTransaction
8.             Dim TSB As TextStyleTable = Trans.GetObject(Db.TextStyleTableId, OpenMode.ForRead)
9.             mytext.TextStyle = TSB.Item("工程图")
10.             Dim spc As BlockTableRecord = Trans.GetObject(Db.CurrentSpaceId, OpenMode.ForWrite)
11.             spc.AppendEntity(mytext)
12.             Trans.AddNewlyCreatedDBObject(mytext, True)
13.             Trans.Commit()
14.         End Using
15.     End Sub

Public Sub addtext()         Dim mytext As New DBText         mytext.TextString = "测试"         mytext.Position = New Point3d(0, 0, 0)         Dim Db As Database = HostApplicationServices.WorkingDatabase         Using Trans As Transaction = Db.TransactionManager.StartTransaction             Dim TSB As TextStyleTable = Trans.GetObject(Db.TextStyleTableId, OpenMode.ForRead)             mytext.TextStyle = TSB.Item("工程图")             Dim spc As BlockTableRecord = Trans.GetObject(Db.CurrentSpaceId, OpenMode.ForWrite)             spc.AppendEntity(mytext)             Trans.AddNewlyCreatedDBObject(mytext, True)             Trans.Commit()         End Using     End Sub

雪山飞狐_lzh

TextStyleTable 有默认索引器

VBNet直接写

mytext.TextStyle  = TSB("工程图")

另外，Cad2008以下符号表索引器和Has函数有Bug，2009没试过
ObjectId id = GetRecordId(m_TextStyleTable, name);
参见我的DBTransaction 类的相关函数

sailorcwx

那是item的省略模式，在VB时代就有了，不过我还是喜欢用item比较清楚明了

carrot1983

感谢，感动啊。。。

谢谢版主。（问遍超级群，没有高手回答。还是这里好）

要是能把 sailorcwx 翻译成C#就更好了。

虽然是很简单的事情，但是对于初学者来说，那层窗户纸就是不知道怎么捅。。

carrot1983

2. using System;
3. using System.Text;
4. using Autodesk.AutoCAD.ApplicationServices;
5. using Autodesk.AutoCAD.DatabaseServices;
6. using Autodesk.AutoCAD.EditorInput;
7. using Autodesk.AutoCAD.Geometry;
8. using Autodesk.AutoCAD.Runtime;
9. namespace CsMgd25
10. {
11.     public class Class1
12.     {
13.         Database db = HostApplicationServices.WorkingDatabase;
14.         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
15.         [CommandMethod("Test")]
16.         public void Test()
17.         {
18.             ObjectId styleid = AddTextStyle("工程图", "txt.shx", "gbcbig.shx", 0, 0.7);
19.             ObjectId id = AddText(new Point3d(0, 0, 0), "明经通道", styleid, 2.5, 0);
20.         }
21.         // 将图形对象加入到模型空间的函数.
22.         public static ObjectId AppendEntity(Entity ent)
23.         {
24.             Database db = HostApplicationServices.WorkingDatabase;
25.             ObjectId entId;
26.             using (Transaction trans = db.TransactionManager.StartTransaction())
27.             {
28.                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);
29.                 BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
30.                 entId = btr.AppendEntity(ent);
31.                 trans.AddNewlyCreatedDBObject(ent, true);
32.                 trans.Commit();
33.             }
34.             return entId;
35.         }
36.         // 由插入点、文字内容、文字高度和倾斜角度创建单行文字的函数.
37.         public static ObjectId AddText(Point3d position, string textString, ObjectId style, double height, double rotation)
38.         {
39.             try
40.             {
41.                 DBText ent = new DBText();
42.                 ent.Position = position;
43.                 ent.TextString = textString;
44.                 ent.Height = height;
45.                 ent.Rotation = rotation;
46.                 ObjectId entId = AppendEntity(ent);
47.                 return entId;
48.             }
49.             catch
50.             {
51.                 ObjectId nullId = ObjectId.Null;
52.                 return nullId;
53.             }
54.         }
55.         //取得符号表的Id
56.         public ObjectId GetIdFromSymbolTable(SymbolTable st, string key)
57.         {
58.             using (Transaction trans = db.TransactionManager.StartTransaction())
59.             {
60.                 if (st.Has(key))
61.                 {
62.                     ObjectId idres = st[key];
63.                     if (!idres.IsErased)
64.                         return idres;
65.                     foreach (ObjectId id in st)
66.                     {
67.                         if (!id.IsErased)
68.                         {
69.                             SymbolTableRecord str = (SymbolTableRecord)trans.GetObject(id, OpenMode.ForRead);
70.                             if (str.Name == key)
71.                                 return id;
72.                         }
73.                     }
74.                 }
75.             }
76.             return ObjectId.Null;
77.         }
78.         //建立文字样式
79.         public ObjectId AddTextStyle(string name, string smallfont, string bigfont, double height, double xscale)
80.         {
81.             using (Transaction trans = db.TransactionManager.StartTransaction())
82.             {
83.                 TextStyleTable TST = (TextStyleTable)trans.GetObject(db.TextStyleTableId, OpenMode.ForWrite);
84.                 ObjectId id = GetIdFromSymbolTable(TST, name);
85.                 if (id == ObjectId.Null)
86.                 {
87.                     TextStyleTableRecord TSTR = new TextStyleTableRecord();
88.                     TSTR.Name = name;
89.                     TSTR.FileName = smallfont;
90.                     TSTR.BigFontFileName = bigfont;
91.                     TSTR.TextSize = height;
92.                     TSTR.XScale = xscale;
93.                     TST.UpgradeOpen();
94.                     id = TST.Add(TSTR);
95.                     trans.AddNewlyCreatedDBObject(TSTR, true);
96.                 }
97.                 return id;
98.             }
99.         }
100.     }
101. }

using System; using System.Text; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.Runtime; namespace CsMgd25 {     public class Class1     {         Database db = HostApplicationServices.WorkingDatabase;         Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;         [CommandMethod("Test")]         public void Test()         {             ObjectId styleid = AddTextStyle("工程图", "txt.shx", "gbcbig.shx", 0, 0.7);             ObjectId id = AddText(new Point3d(0, 0, 0), "明经通道", styleid, 2.5, 0);         }         // 将图形对象加入到模型空间的函数.         public static ObjectId AppendEntity(Entity ent)         {             Database db = HostApplicationServices.WorkingDatabase;             ObjectId entId;             using (Transaction trans = db.TransactionManager.StartTransaction())             {                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);                 BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);                 entId = btr.AppendEntity(ent);                 trans.AddNewlyCreatedDBObject(ent, true);                 trans.Commit();             }             return entId;         }         // 由插入点、文字内容、文字高度和倾斜角度创建单行文字的函数.         public static ObjectId AddText(Point3d position, string textString, ObjectId style, double height, double rotation)         {             try             {                 DBText ent = new DBText();                 ent.Position = position;                 ent.TextString = textString;                 ent.Height = height;                 ent.Rotation = rotation;                 ObjectId entId = AppendEntity(ent);                 return entId;             }             catch             {                 ObjectId nullId = ObjectId.Null;                 return nullId;             }         }         //取得符号表的Id         public ObjectId GetIdFromSymbolTable(SymbolTable st, string key)         {             using (Transaction trans = db.TransactionManager.StartTransaction())             {                 if (st.Has(key))                 {                     ObjectId idres = st[key];                     if (!idres.IsErased)                         return idres;                     foreach (ObjectId id in st)                     {                         if (!id.IsErased)                         {                             SymbolTableRecord str = (SymbolTableRecord)trans.GetObject(id, OpenMode.ForRead);                             if (str.Name == key)                                 return id;                         }                     }                 }             }             return ObjectId.Null;         }         //建立文字样式         public ObjectId AddTextStyle(string name, string smallfont, string bigfont, double height, double xscale)         {             using (Transaction trans = db.TransactionManager.StartTransaction())             {                 TextStyleTable TST = (TextStyleTable)trans.GetObject(db.TextStyleTableId, OpenMode.ForWrite);                 ObjectId id = GetIdFromSymbolTable(TST, name);                 if (id == ObjectId.Null)                 {                     TextStyleTableRecord TSTR = new TextStyleTableRecord();                     TSTR.Name = name;                     TSTR.FileName = smallfont;                     TSTR.BigFontFileName = bigfont;                     TSTR.TextSize = height;                     TSTR.XScale = xscale;                     TST.UpgradeOpen();                     id = TST.Add(TSTR);                     trans.AddNewlyCreatedDBObject(TSTR, true);                 }                 return id;             }         }     } }

using (Transaction trans = db.TransactionManager.StartTransaction()){}
每个类里面我都要写一次，怎么解决？

carrot1983

第一次来的时候就看了“DBTransaction 类”的贴子，当时看不懂。

现在再回来看，太棒了。

http://www.mjtd.com/BBS/dispbbs.asp?BoardID=33&replyID=10813&id=76123&skin=0