创建多重引线样式和绘制多重引线的问题

xgr

下列代码创建多重引线样式和绘制多重引线

2. using Autodesk.AutoCAD.ApplicationServices;
   
3. using Autodesk.AutoCAD.Colors;
   
4. using Autodesk.AutoCAD.DatabaseServices;
   
5. using Autodesk.AutoCAD.Geometry;
   
6. using Autodesk.AutoCAD.Runtime;
   
7. using 创建多重引线;
   
8. 
   
9. [assembly: CommandClass(typeof (Class1))]
   
10. 
    
11. namespace 创建多重引线
    
12. {
    
13.     public class Class1
    
14.     {
    
15.         [CommandMethod("AddML")]
    
16.         public static void DrawMleader()
    
17.         {
    
18.             var MLStyleId = CreateMleaderStyle("xuguang");
    
19.             //获取当前数据库
    
20.             var acDoc = Application.DocumentManager.MdiActiveDocument;
    
21.             var acCurDb = acDoc.Database;
    
22.             //启动事务
    
23.             using (var acTrans = acCurDb.TransactionManager.StartTransaction())
    
24.             {
    
25.                 //以读模式打开块表
    
26.                 var acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) as BlockTable;
    
27. 
    
28.                 //以写模式打开块表记录模型空间
    
29.                 var acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
    
30.                     OpenMode.ForWrite) as BlockTableRecord;
    
31. 
    
32.                 var pMLeader = new MLeader();
    
33.                 pMLeader.SetDatabaseDefaults();
    
34.                 pMLeader.MLeaderStyle = MLStyleId;
    
35.                 var pos = new Point3d(200, 200, 200);
    
36.                 var posTmp = new Point3d(220, 220, 0);
    
37.                 var sn = pMLeader.AddLeaderLine(pos);
    
38.                 pMLeader.AddFirstVertex(sn, pos);
    
39.                 pMLeader.SetFirstVertex(sn, pos);
    
40.                 pMLeader.SetLastVertex(sn, posTmp);
    
41. 
    
42.                 //创建多行文字（MText）注释
    
43.                 var pMtext = new MText();
    
44.                 pMtext.Contents = "创建多重引线";
    
45.                 pMtext.TextHeight = 3;
    
46.                 pMtext.TextStyleId = acCurDb.Textstyle;
    
47. 
    
48.                 pMtext.Location = posTmp;
    
49.                 pMLeader.MText = pMtext;
    
50.               
    
51.                 //添加新对象到模型空间，记录事务
    
52.                 acBlkTblRec.AppendEntity(pMLeader);
    
53.                 acTrans.AddNewlyCreatedDBObject(pMLeader, true);
    
54. 
    
55.                 //提交修改，回收内存
    
56.                 acTrans.Commit();
    
57.             }
    
58.             acDoc.Editor.Regen();
    
59.         }
    
60. 
    
61.         private static ObjectId CreateMleaderStyle(string MlName)
    
62.         {
    
63.             var acDoc = Application.DocumentManager.MdiActiveDocument;
    
64.             var db = HostApplicationServices.WorkingDatabase;
    
65. 
    
66.             using (var acTrans = acDoc.TransactionManager.StartTransaction())
    
67.             {
    
68.                 var DbDictionary = acTrans.GetObject(db.MLeaderStyleDictionaryId, OpenMode.ForWrite) as DBDictionary;
    
69.                 //获取所有样式
    
70.                 if (DbDictionary.Contains(MlName))
    
71.                 {
    
72.                     return DbDictionary.GetAt(MlName);
    
73.                 }
    
74.                 var newMleadStyle = new MLeaderStyle();
    
75.                 newMleadStyle.TextAlignAlwaysLeft = true;
    
76.                 newMleadStyle.Annotative = AnnotativeStates.True;
    
77.                 newMleadStyle.DrawMLeaderOrderType = DrawMLeaderOrderType.DrawLeaderFirst;
    
78.                 newMleadStyle.TextAttachmentType = TextAttachmentType.AttachmentMiddle; //Text连接方式
    
79.                 newMleadStyle.TextAttachmentDirection = TextAttachmentDirection.AttachmentHorizontal; //文字水平排列
    
80.                 newMleadStyle.TextAlignmentType = TextAlignmentType.CenterAlignment; //Text排列方式
    
81.                 newMleadStyle.LeaderLineColor =
    
82.                     Color.FromColorIndex(ColorMethod.ByLayer, 256);
    
83.                 newMleadStyle.LeaderLineType = LeaderType.StraightLeader;
    
84.                 newMleadStyle.ContentType = ContentType.MTextContent;
    
85.                 newMleadStyle.ArrowSize = 3.0; //箭头大小
    
86.                 newMleadStyle.BreakSize = 0.6; //基线打断大小
    
87.                 newMleadStyle.DoglegLength = 1.25; //基线距离
    
88.                 newMleadStyle.EnableLanding = true;
    
89.                 newMleadStyle.EnableDogleg = true; //显示基线
    
90.                 newMleadStyle.EnableFrameText = true; //显示文本框
    
91.                 newMleadStyle.LandingGap = 1; //基线间隙
    
92.                 newMleadStyle.MaxLeaderSegmentsPoints = 2; //最大引线点数
    
93.                 newMleadStyle.TextStyleId = acDoc.Database.Textstyle; //文字样式
    
94.                 newMleadStyle.TextHeight = 3.0;
    
95.                 newMleadStyle.PostMLeaderStyleToDb(db, MlName);
    
96.                 newMleadStyle.DowngradeOpen();
    
97.                 acTrans.Commit();
    
98.                 return newMleadStyle.ObjectId;
    
99.             }
    
100.         }
     
101.     }
     
102. }

using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices;<br /> using Autodesk.AutoCAD.Colors;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.Geometry;<br /> using Autodesk.AutoCAD.Runtime;<br /> using 创建多重引线;<br /> <br /> [assembly: CommandClass(typeof (Class1))]<br /> <br /> namespace 创建多重引线<br /> {<br />     public class Class1<br />     {<br />         [CommandMethod("AddML")]<br />         public static void DrawMleader()<br />         {<br />             var MLStyleId = CreateMleaderStyle("xuguang");<br />             //获取当前数据库<br />             var acDoc = Application.DocumentManager.MdiActiveDocument;<br />             var acCurDb = acDoc.Database;<br />             //启动事务<br />             using (var acTrans = acCurDb.TransactionManager.StartTransaction())<br />             {<br />                 //以读模式打开块表<br />                 var acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) as BlockTable;<br /> <br />                 //以写模式打开块表记录模型空间<br />                 var acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],<br />                     OpenMode.ForWrite) as BlockTableRecord;<br /> <br />                 var pMLeader = new MLeader();<br />                 pMLeader.SetDatabaseDefaults();<br />                 pMLeader.MLeaderStyle = MLStyleId;<br />                 var pos = new Point3d(200, 200, 200);<br />                 var posTmp = new Point3d(220, 220, 0);<br />                 var sn = pMLeader.AddLeaderLine(pos);<br />                 pMLeader.AddFirstVertex(sn, pos);<br />                 pMLeader.SetFirstVertex(sn, pos);<br />                 pMLeader.SetLastVertex(sn, posTmp);<br /> <br />                 //创建多行文字（MText）注释<br />                 var pMtext = new MText();<br />                 pMtext.Contents = "创建多重引线";<br />                 pMtext.TextHeight = 3;<br />                 pMtext.TextStyleId = acCurDb.Textstyle;<br /> <br />                 pMtext.Location = posTmp;<br />                 pMLeader.MText = pMtext;<br />               <br />                 //添加新对象到模型空间，记录事务<br />                 acBlkTblRec.AppendEntity(pMLeader);<br />                 acTrans.AddNewlyCreatedDBObject(pMLeader, true);<br /> <br />                 //提交修改，回收内存<br />                 acTrans.Commit();<br />             }<br />             acDoc.Editor.Regen();<br />         }<br /> <br />         private static ObjectId CreateMleaderStyle(string MlName)<br />         {<br />             var acDoc = Application.DocumentManager.MdiActiveDocument;<br />             var db = HostApplicationServices.WorkingDatabase;<br /> <br />             using (var acTrans = acDoc.TransactionManager.StartTransaction())<br />             {<br />                 var DbDictionary = acTrans.GetObject(db.MLeaderStyleDictionaryId, OpenMode.ForWrite) as DBDictionary;<br />                 //获取所有样式<br />                 if (DbDictionary.Contains(MlName))<br />                 {<br />                     return DbDictionary.GetAt(MlName);<br />                 }<br />                 var newMleadStyle = new MLeaderStyle();<br />                 newMleadStyle.TextAlignAlwaysLeft = true;<br />                 newMleadStyle.Annotative = AnnotativeStates.True;<br />                 newMleadStyle.DrawMLeaderOrderType = DrawMLeaderOrderType.DrawLeaderFirst;<br />                 newMleadStyle.TextAttachmentType = TextAttachmentType.AttachmentMiddle; //Text连接方式<br />                 newMleadStyle.TextAttachmentDirection = TextAttachmentDirection.AttachmentHorizontal; //文字水平排列<br />                 newMleadStyle.TextAlignmentType = TextAlignmentType.CenterAlignment; //Text排列方式<br />                 newMleadStyle.LeaderLineColor =<br />                     Color.FromColorIndex(ColorMethod.ByLayer, 256);<br />                 newMleadStyle.LeaderLineType = LeaderType.StraightLeader;<br />                 newMleadStyle.ContentType = ContentType.MTextContent;<br />                 newMleadStyle.ArrowSize = 3.0; //箭头大小<br />                 newMleadStyle.BreakSize = 0.6; //基线打断大小<br />                 newMleadStyle.DoglegLength = 1.25; //基线距离<br />                 newMleadStyle.EnableLanding = true;<br />                 newMleadStyle.EnableDogleg = true; //显示基线<br />                 newMleadStyle.EnableFrameText = true; //显示文本框<br />                 newMleadStyle.LandingGap = 1; //基线间隙<br />                 newMleadStyle.MaxLeaderSegmentsPoints = 2; //最大引线点数<br />                 newMleadStyle.TextStyleId = acDoc.Database.Textstyle; //文字样式<br />                 newMleadStyle.TextHeight = 3.0;<br />                 newMleadStyle.PostMLeaderStyleToDb(db, MlName);<br />                 newMleadStyle.DowngradeOpen();<br />                 acTrans.Commit();<br />                 return newMleadStyle.ObjectId;<br />             }<br />         }<br />     }<br /> }

效果如图

问题是
1：程序起始生成的多重引线文字为何右对齐，需拖动后才显示正确的效果。
2：样式里面的文字连接位置-右怎样才可以设置为在文字中间，指在代码里设置。

雪山飞狐_lzh

试下用两个事务分别生成式样和mleader

xgr

雪山飞狐_lzh 发表于 2014-10-13 18:51
试下用两个事务分别生成式样和mleader

1. var pMLeader = new MLeader();
   
2.                 pMLeader.SetDatabaseDefaults();
   
3.                 //pMLeader.MLeaderStyle = MLStyleId;
   
4.                 pMLeader.MLeaderStyle = acCurDb.MLeaderstyle;
   
5.                 var pos = new Point3d(200, 200, 200);
   
6.                 var posTmp = new Point3d(220, 220, 0);
   
7.                 var sn = pMLeader.AddLeaderLine(pos);
   
8.                 pMLeader.AddFirstVertex(sn, pos);
   
9.                 pMLeader.SetFirstVertex(sn, pos);
   
10.                 pMLeader.SetLastVertex(sn, posTmp);

复制代码

可还不是这个问题
用系统默认的样式standard生成还是显示右对齐，