マルチ テキスト オブジェクトを作成するには、まず MText オブジェクトのインスタンスを作成し、そのインスタンスをモデル空間またはペーパー空間を表すブロック テーブル レコードに追加します。MText オブジェクト コンストラクタはパラメータを使用しません。MText オブジェクトのインスタンスが作成されたら、プロパティを使用して、そのインスタンスに文字列、挿入点、および幅などの値を割り当てることができます。変更できるその他のプロパティの中には、オブジェクトの文字の高さ、位置合わせ、回転角度、および文字スタイルに影響を及ぼしたり、選択した文字に文字の書式設定を適用したりするものがあります。
次のコード例では、MText オブジェクトをモデル空間の座標(2, 2, 0)の位置に作成します。
Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry <CommandMethod("CreateMText")> _ Public Sub CreateMText() '' Get the current document and database Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database '' Start a transaction Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() '' Open the Block table for read Dim acBlkTbl As BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _ OpenMode.ForRead) '' Open the Block table record Model space for write Dim acBlkTblRec As BlockTableRecord acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _ OpenMode.ForWrite) '' Create a multiline text object Using acMText As MText = New MText() acMText.Location = New Point3d(2, 2, 0) acMText.Width = 4 acMText.Contents = "This is a text string for the MText object." acBlkTblRec.AppendEntity(acMText) acTrans.AddNewlyCreatedDBObject(acMText, True) End Using '' Save the changes and dispose of the transaction acTrans.Commit() End Using End Sub
using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.Geometry; [CommandMethod("CreateMText")] public static void CreateMText() { // Get the current document and database Document acDoc = Application.DocumentManager.MdiActiveDocument; Database acCurDb = acDoc.Database; // Start a transaction using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction()) { // Open the Block table for read BlockTable acBlkTbl; acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) as BlockTable; // Open the Block table record Model space for write BlockTableRecord acBlkTblRec; acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord; // Create a multiline text object using (MText acMText = new MText()) { acMText.Location = new Point3d(2, 2, 0); acMText.Width = 4; acMText.Contents = "This is a text string for the MText object."; acBlkTblRec.AppendEntity(acMText); acTrans.AddNewlyCreatedDBObject(acMText, true); } // Save the changes and dispose of the transaction acTrans.Commit(); } }
Sub CreateMText() Dim mtextObj As AcadMText Dim insertPoint(0 To 2) As Double Dim width As Double Dim textString As String insertPoint(0) = 2 insertPoint(1) = 2 insertPoint(2) = 0 width = 4 textString = "This is a text string for the mtext object." ' Create a text Object in model space Set mtextObj = ThisDrawing.ModelSpace. _ AddMText(insertPoint, width, textString) ZoomAll End Sub