【转载】关于单行\多行文字对齐点问题

qq1254582201

DBText有两个属性用于确定文本位置，AlignmentPoint（对齐点）和 Position（位置）
方法 Justify（对齐方式）用于确定文本对齐方式，当 Justify 发生变化时，Position 会随之变化，AlignmentPoint 则保持不变
开发过程中，我们一般会指定文本的 AlignmentPoint 和 Justify，而不会麻烦的去计算 Position，这时候可以用 DBText.AdjustAlignment(Database) 方法来自动更新 Position，正常情况下使用没毛病，但在新建数据库里使用就不行查资料发现这里作为参数的 Database 必须是当前活动数据库，否则该方法无效重点来了：

DBText dbText = new DBText();
dbText.SetDatabaseDefaults(db);
Database prevWorkingDb = HostApplicationServices.WorkingDatabase;
HostApplicationServices.WorkingDatabase = db;
dbText.AdjustAlignment(db);
HostApplicationServices.WorkingDatabase = prevWorkingDb;
这里面除了切换当前活动数据库是关键外，dbText.SetDatabaseDefaults(db)也是必要的，具体原因还没来得及深究
以下是外网上找的代码：

2. public void TextAlign()
   
3. {
   
4.     Document activeDoc = Application.DocumentManager.MdiActiveDocument;
   
5.     // For adding a text with alignment to the current document
   
6.     bool isInMemory = false;
   
7.     Database db = activeDoc.Database;
   
8. 
   
9.     // For adding a text to an in-memory database
   
10.     //bool isInMemory = true;
    
11.     //Database db = new Database(true, false);
    
12.     using (Transaction tr = db.TransactionManager.StartTransaction())
    
13.     {
    
14.         BlockTable bt = tr.GetObject(
    
15.                                         db.BlockTableId,
    
16.                                         OpenMode.ForRead
    
17.                                     ) as BlockTable;
    
18. 
    
19.         BlockTableRecord mSpace = tr.GetObject
    
20.                                 (
    
21.                                     bt[BlockTableRecord.ModelSpace],
    
22.                                     OpenMode.ForWrite
    
23.                                 ) as BlockTableRecord;
    
24. 
    
25.         DBText dbText = new DBText();
    
26.         dbText.SetDatabaseDefaults(db);
    
27.         dbText.Position = Point3d.Origin;
    
28.         dbText.Height = 5.0;
    
29.         dbText.TextString = "Autodesk";
    
30.         dbText.HorizontalMode = TextHorizontalMode.TextRight;
    
31.         dbText.AlignmentPoint = Point3d.Origin;
    
32. 
    
33.         if (isInMemory)
    
34.         {   // For adding a text with an alignment to an in-memory database
    
35.             // set the working database before using AdjustAlignment
    
36.             Database prevWorkingDb = HostApplicationServices.WorkingDatabase;
    
37.             HostApplicationServices.WorkingDatabase = db;
    
38.             dbText.AdjustAlignment(db);
    
39.             HostApplicationServices.WorkingDatabase = prevWorkingDb;
    
40.         }
    
41.         else
    
42.         {   // For adding a text with alignment to the current document
    
43.             // working database is already set
    
44.             dbText.AdjustAlignment(db);
    
45.         }
    
46.         mSpace.AppendEntity(dbText);
    
47.         tr.AddNewlyCreatedDBObject(dbText, true);
    
48.         tr.Commit();
    
49.     }
    
50. 
    
51.     if (isInMemory)
    
52.     {
    
53.         db.SaveAs("C:\\Temp\\Test.dwg", DwgVersion.Current);
    
54.         db.Dispose();
    
55.     }
    
56. }

public void TextAlign()<br /> {<br />     Document activeDoc = Application.DocumentManager.MdiActiveDocument;<br />     // For adding a text with alignment to the current document<br />     bool isInMemory = false;<br />     Database db = activeDoc.Database;<br /> <br />     // For adding a text to an in-memory database<br />     //bool isInMemory = true;<br />     //Database db = new Database(true, false);<br />     using (Transaction tr = db.TransactionManager.StartTransaction())<br />     {<br />         BlockTable bt = tr.GetObject(<br />                                         db.BlockTableId,<br />                                         OpenMode.ForRead<br />                                     ) as BlockTable;<br /> <br />         BlockTableRecord mSpace = tr.GetObject<br />                                 (<br />                                     bt[BlockTableRecord.ModelSpace],<br />                                     OpenMode.ForWrite<br />                                 ) as BlockTableRecord;<br /> <br />         DBText dbText = new DBText();<br />         dbText.SetDatabaseDefaults(db);<br />         dbText.Position = Point3d.Origin;<br />         dbText.Height = 5.0;<br />         dbText.TextString = "Autodesk";<br />         dbText.HorizontalMode = TextHorizontalMode.TextRight;<br />         dbText.AlignmentPoint = Point3d.Origin;<br /> <br />         if (isInMemory)<br />         {   // For adding a text with an alignment to an in-memory database<br />             // set the working database before using AdjustAlignment<br />             Database prevWorkingDb = HostApplicationServices.WorkingDatabase;<br />             HostApplicationServices.WorkingDatabase = db;<br />             dbText.AdjustAlignment(db);<br />             HostApplicationServices.WorkingDatabase = prevWorkingDb;<br />         }<br />         else<br />         {   // For adding a text with alignment to the current document<br />             // working database is already set<br />             dbText.AdjustAlignment(db);<br />         }<br />         mSpace.AppendEntity(dbText);<br />         tr.AddNewlyCreatedDBObject(dbText, true);<br />         tr.Commit();<br />     }<br /> <br />     if (isInMemory)<br />     {<br />         db.SaveAs("C:\\Temp\\Test.dwg", DwgVersion.Current);<br />         db.Dispose();<br />     }<br /> }

代码来自：https://adndevblog.typepad.com/a ... ext-alignment-.html

qq1254582201

指定 MText 对象的连接点。

指定 MText 对象的连接点。 支持的平台：仅窗口 签名 工 务 局： object.AttachmentPoint对象 类型：MText 此属性适用的对象。 属性值 只读：不 类型：枚举acAttachmentPoint acAttachmentPointTopLeft acAttachmentPointTopCenter acAttachmentPointTopRight acAttachmentPointMiddleLeft acAttachmentPointMiddleCenter acAttachmentPointMiddleRight acAttachmentPointBottomLeft acAttachmentPointBottomCenter acAttachmentPointBottomRight 言论 连接点指定插入点与文本边界对齐的位置。您选择的选项确定相对于文本边界的文本对齐和文本溢出。 文本对齐的选项包括“左”、“右”和“居中”。文本溢出的选项包括“顶部”、“中间（中间）”和“底部”。 左上角 左对齐，溢出 顶部中心 居中对齐，向下溢出 右上 右对齐，溢出 左中 左对齐，上下溢出 中中心 居中对齐，上下溢出 右中 右对齐，上下溢出 左下角 左对齐，溢出 底部中心 居中对齐，溢出 右下角 正确对齐，溢出 更改属性时，现有边界框的位置不会更改;文本只是在边界框中重新对齐。 但是，属性反映正在使用的连接点的坐标，因此属性的值将更改以反映对齐方式的变化。 AttachmentPoint InsertionPoint InsertionPoint 例子 工 务 局： Sub Example_AttachmentPoint()     Dim MTextObj As AcadMText     Dim width As Double     Dim text As String     Dim count As Integer     Dim attachPoint As String     Dim corner(0 To 2) As Double     corner(0) = 3#: corner(1) = 3#: corner(2) = 0#     width = 10     text = "Hello, World."     ' Creates a MText object in model space     Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)     For count = 1 To 9         MTextObj.AttachmentPoint = count         ' Gets the attachment point of an MText object         attachPoint = Choose(MTextObj.AttachmentPoint, "TopLeft", "TopCenter",                               "TopRight", "MiddleLeft", "MiddleCenter",                               "MiddleRight", "BottomLeft", "BottomCenter",                               "BottomRight")         ThisDrawing.Regen True         MsgBox "The attachment point of the MText is now: " & attachPoint, vbInformation, "AttachmentPoint Example"     Next End Sub Sub Example_AttachmentPoint()<br />     Dim MTextObj As AcadMText<br />     Dim width As Double<br />     Dim text As String<br />     Dim count As Integer<br />     Dim attachPoint As String<br />     Dim corner(0 To 2) As Double<br />     corner(0) = 3#: corner(1) = 3#: corner(2) = 0#<br />     width = 10<br />     text = "Hello, World."<br />     ' Creates a MText object in model space<br />     Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)<br />     For count = 1 To 9<br />         MTextObj.AttachmentPoint = count<br />         ' Gets the attachment point of an MText object<br />         attachPoint = Choose(MTextObj.AttachmentPoint, "TopLeft", "TopCenter", <br />                               "TopRight", "MiddleLeft", "MiddleCenter", <br />                               "MiddleRight", "BottomLeft", "BottomCenter", <br />                               "BottomRight")<br />         ThisDrawing.Regen True<br />         MsgBox "The attachment point of the MText is now: " <br /> & attachPoint, vbInformation, "AttachmentPoint Example"<br />     Next<br /> End Sub public void ExampleAttachmentPoint() {     AcadMText mTextObject;     double width;     string text;     int count;     string attachPoint;     double[] corner = new double[3];     corner[0] = 3.0; corner[1] = 3.0; corner[2] = 0.0;     width = 10;     text = "Hello, World.";     // Creates a MText object in model space     mTextObject = ThisDrawing.ModelSpace.AddMText(corner, width, text);     for (count = 1; count <= 9; count++)     {         mTextObject.AttachmentPoint = count;         // Gets the attachment point of an MText object         attachPoint = Choose(mTextObject.AttachmentPoint, "TopLeft", "TopCenter", "TopRight",                               "MiddleLeft", "MiddleCenter", "MiddleRight",                               "BottomLeft", "BottomCenter", "BottomRight");         ThisDrawing.Regen(true);         System.Windows.Forms.MessageBox.Show("The attachment point of the MText is now: " + attachPoint,                                               "AttachmentPoint Example",                                               System.Windows.Forms.MessageBoxButtons.OK,                                               System.Windows.Forms.MessageBoxIcon.Information);     } } 复制代码 Visual LISP: (vl-load-com) (defun c:Example_AttachmentPoint()     (setq acadObj (vlax-get-acad-object))     (setq doc (vla-get-ActiveDocument acadObj))     (setq corner (vlax-3d-point 3 3 0)             width 10           text "Hello, World.")        ;; Creates a MText object in model space     (setq modelSpace (vla-get-ModelSpace doc))       (setq MTextObj (vla-AddMText modelSpace corner width text))        (setq count 1)     (repeat 9         (vla-put-AttachmentPoint MTextObj count)         ;; Gets the attachment point of an MText object         (cond             ((= (vla-get-AttachmentPoint MTextObj) 1)(setq attachPoint "TopLeft"))             ((= (vla-get-AttachmentPoint MTextObj) 2)(setq attachPoint "TopCenter"))             ((= (vla-get-AttachmentPoint MTextObj) 3)(setq attachPoint "TopRight"))             ((= (vla-get-AttachmentPoint MTextObj) 4)(setq attachPoint "MiddleLeft"))             ((= (vla-get-AttachmentPoint MTextObj) 5)(setq attachPoint "MiddleCenter"))             ((= (vla-get-AttachmentPoint MTextObj) 6)(setq attachPoint "MiddleRight"))             ((= (vla-get-AttachmentPoint MTextObj) 7)(setq attachPoint "BottomLeft"))             ((= (vla-get-AttachmentPoint MTextObj) 8)(setq attachPoint "BottomCenter"))             ((= (vla-get-AttachmentPoint MTextObj) 9)(setq attachPoint "BottomRight"))         )             (vla-Regen doc :vlax-true)         (alert (strcat "The attachment point of the MText is now: " attachPoint))                (setq count (1+ count))     ) ) (vl-load-com)<br /> (defun c:Example_AttachmentPoint()<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br /> <br />     (setq corner (vlax-3d-point 3 3 0)  <br />           width 10<br />           text "Hello, World.")<br />   <br />     ;; Creates a MText object in model space<br />     (setq modelSpace (vla-get-ModelSpace doc))  <br />     (setq MTextObj (vla-AddMText modelSpace corner width text))<br />   <br />     (setq count 1)<br />     (repeat 9<br />         (vla-put-AttachmentPoint MTextObj count)<br /> <br />         ;; Gets the attachment point of an MText object<br />         (cond<br />             ((= (vla-get-AttachmentPoint MTextObj) 1)(setq attachPoint "TopLeft"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 2)(setq attachPoint "TopCenter"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 3)(setq attachPoint "TopRight"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 4)(setq attachPoint "MiddleLeft"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 5)(setq attachPoint "MiddleCenter"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 6)(setq attachPoint "MiddleRight"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 7)(setq attachPoint "BottomLeft"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 8)(setq attachPoint "BottomCenter"))<br />             ((= (vla-get-AttachmentPoint MTextObj) 9)(setq attachPoint "BottomRight"))<br />         )<br />     <br />         (vla-Regen doc :vlax-true)<br />         (alert (strcat "The attachment point of the MText is now: " attachPoint))<br />       <br />         (setq count (1+ count))<br />     )<br /> )