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

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 /> )

qq1254582201

.net中关于DBText注意事项

• 需要设置AdjustAligment
  参数传入HostApplicationServieces.WorkingDatabase
  且必须放置在最后，否则拖拽前后位置会发生变化。
• 1. DBText text = new DBText();
     
  2. text.SetDatabaseDefaults();//设置默认线型 图层等
     
  3. text.VerticalMode = TextVerticalMode.TextVerticalMid;//垂直对齐方式
     
  4. text.HorizontaiMode = TextHorizontalMode.TextLeft;//水平对齐方式
     
  5. text.ColorIndex = 3;//设置文字颜色索引
     
  6. text.WidthFactor = 0.65;//设置文字宽度因子
     
  7. text.Height = 5; //设置文字高度
     
  8. text.TextString = "Hello World"; //设置文本字符串
     
  9. text.Position = textPosition;  //设置文字位置
     
  10. text.TextStyleId = textStyleId;//一个非Null的Id
      
  11. //下面顺序不要变 否则过拽有问题
      
  12. text.AllignmentPoint = textPosition;//设置文字对齐位置
      
  13. text.AdjustAlignment(HostApplicationServieces.WorkingDatabase);//设置文字对齐

  复制代码
  
  

帮助文档对于AdjustAligment的解释是：
Normally when a text entity is closed,the text‘s position and allignment points are adjusted according to the text's justification settings and the text style.
But , if the text entity is embedded in another entity,it will never be closed in wihch case it won't automatically be adjusted.
Or, if the text is added to a transaction before it's first close(),and the graphics are flushed to the screen before the outemost transaction ends,the text will be displayed before the automatic adjustment takes place.

• when this method is called,the database used must be the current working database(as return by HostApplicationServiece()->workingDatabase())
• the text entity must have Non-Null text string data ,
• and a valid text style objectId that resides in the database being used;
  • 传入的参数必须是当前活动的数据库
  • 文本必须为非Null
  • 文字样式必须有效
    
  
  

你有种再说一遍

workingDatabase不应该是activeDatabase or currentDatabase.
应该翻译为工作数据库,它就像是一个厨师的案板.

工作数据库可能是不存在的,
例如你关闭全部文档之后操作后台数据库.
此时就不存在工作数据库,
此时后台操作是否发生文字偏移?大概率会发生.

CAD借用渲染层去处理文字包围盒,再回写到数据库,
所以会发生文字偏移,因此要保证工作数据库存在,
才有那么多规定.

设置text.Position在必须的,
你text.SetDefaultDatabase(db)就会默认给你一个,
为什么需要设置它,因为存在初始化顺序调整.

麻烦不是创建,而是修改.
在"调整"模式下,需要设置基点和对齐点,
然后组块之后修改属性,
你可以发现 对齐点=对齐点 之后,文字会跑.
原因是你需要把 属性的左下角换算到0,0 才可以.

这些基础的东西建议不要写了,
IFox都帮你写好了.