用.Net在AutoCAD中创建包含文字的线型

在Kean这篇文章（Creating a complex AutoCAD linetype containing text using .NET）的启发下，修改了一个创建文字线型的函数，按自己的理解补充了一些注释；增加了重复添加线型记录时出现错误的修。在绘图时把图形实体指定为本线型就可以了。

代码如下：

[code=csharp]///

/// 创建带文字的线型 /// /// 返回线型ID  public static ObjectId CreateLineTypeWithText() { Document doc = Autodesk.AutoCAD.ApplicationServices. Application.DocumentManager.MdiActiveDocument; Database db = doc.Database; Editor ed = doc.Editor; Transaction tr =db.TransactionManager.StartTransaction(); using (tr) { // 读出文字样式表 TextStyleTable tt = (TextStyleTable)tr.GetObject(db.TextStyleTableId, OpenMode.ForRead); // 读出线型表 LinetypeTable lt = (LinetypeTable)tr.GetObject(db.LinetypeTableId, OpenMode.ForWrite); if (lt.Has("Ben")) { return lt["Ben"]; } else { // 创建新的线型记录. LinetypeTableRecord ltr = new LinetypeTableRecord(); // ...设置线型记录特性 ltr.Name = "Ben"; ltr.AsciiDescription = "Ben Supply ---- Ben ---- Ben ---- Ben ----"; ltr.PatternLength = 1.1; ltr.NumDashes = 3; //分为三段 // 线段Dash #1 ltr.SetDashLengthAt(0, 0.5); // 线段Dash #2 ltr.SetDashLengthAt(1, -0.3); ltr.SetShapeStyleAt(1, tt["Standard"]);//文字样式设定 ltr.SetShapeNumberAt(1, 0); //文字位置设定，用一二维向量控制 ltr.SetShapeOffsetAt(1, new Vector2d(-0.1, -0.05)); ltr.SetShapeScaleAt(1, 0.1);//文字比例 ltr.SetShapeIsUcsOrientedAt(1, false); ltr.SetShapeRotationAt(1, 0);//文字方向,0为顺直接方向 ltr.SetTextAt(1, "Ben");//文字内容 // 线段Dash #3 ltr.SetDashLengthAt(2, -0.3); // 添加新的线型记录到线型表 ObjectId ltId = lt.Add(ltr); tr.AddNewlyCreatedDBObject(ltr, true); tr.Commit(); return ltId;//返回线型记录ID } } }[/code]