在Kean這篇文章（Creating a complex AutoCAD linetype containing text using .NET）的啟發(fā)下，修改了一個(gè)創(chuàng)建文字線型的函數(shù)，按自己的理解補(bǔ)充了一些注釋；增加了重復(fù)添加線型記錄時(shí)出現(xiàn)錯(cuò)誤的修。在繪圖時(shí)把圖形實(shí)體指定為本線型就可以了。

代碼如下：

[code=csharp]///

/// 創(chuàng)建帶文字的線型
///
/// 返回線型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
{
// 創(chuàng)建新的線型記錄.
LinetypeTableRecord ltr = new LinetypeTableRecord();
// ...設(shè)置線型記錄特性
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"]);//文字樣式設(shè)定
ltr.SetShapeNumberAt(1, 0);
//文字位置設(shè)定，用一二維向量控制
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");//文字內(nèi)容
// 線段Dash #3
ltr.SetDashLengthAt(2, -0.3);
// 添加新的線型記錄到線型表
ObjectId ltId = lt.Add(ltr);
tr.AddNewlyCreatedDBObject(ltr, true);
tr.Commit();

return ltId;//返回線型記錄ID
}
}
}[/code]