点与坐标文字关联

j15tty

该程序为根据扩展信息来判断关联。

2. using System;
   
3. using System.Collections.Generic;
   
4. using System.Text;
   
5. using Autodesk.AutoCAD.Runtime;
   
6. using Autodesk.AutoCAD.ApplicationServices;
   
7. using Autodesk.AutoCAD.DatabaseServices;
   
8. using Autodesk.AutoCAD.EditorInput;
   
9. using Autodesk.AutoCAD.Geometry;
   
10. using DotNetARX;
    
11. using System.Text.RegularExpressions;
    
12. using Autodesk.AutoCAD.Windows;
    
13. using System.Windows.Forms;
    
14. namespace MoveCircleEvent
    
15. {
    
16.     public class MovePoint
    
17.     {
    
18.         Database db = HostApplicationServices.WorkingDatabase;
    
19.         Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
    
20.         Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
    
21.         bool bMove;
    
22.         Point3d startPoint;
    
23. 
    
24.         void commandWillStart(object sender, CommandEventArgs e)
    
25.         {
    
26.             //设置全局变量bMove为True，表示移动命令开始
    
27.             bMove = true;
    
28.         }
    
29. 
    
30.         void objectOpenedForModify(object sender, ObjectEventArgs e)
    
31.         {
    
32.             //判断AutoCAD命令是否为移动
    
33.             if (bMove == false)
    
34.                 //如果AutoCAD命令为非移动，则返回
    
35.                 return;
    
36.             DBPoint pt = e.DBObject as DBPoint;
    
37.             //判断将要移动的对象是否为
    
38.             if (pt != null)
    
39.             {
    
40.                 //获取文字的中心，就是同心文字的文字心
    
41.                 startPoint = pt.Position;
    
42.             }
    
43.         }
    
44.         /// <summary>
    
45.         /// 去掉字符串中的数字及小数点
    
46.         /// </summary>
    
47.         /// <param name="key"></param>
    
48.         /// <returns></returns>
    
49.         public static string RemoveNumber(string key)
    
50.         {
    
51.             return System.Text.RegularExpressions.Regex.Replace(key, @"[\d \.]", "");
    
52.         }
    
53. 
    
54. 
    
55.         /// <summary>
    
56.         /// 去掉字符串中的字母及等号
    
57.         /// </summary>
    
58.         /// <param name="key"></param>
    
59.         /// <returns></returns>
    
60.         public static string RemoveNotNumber(string key)
    
61.         {
    
62. 
    
63.             return System.Text.RegularExpressions.Regex.Replace(key, @"[A-Z a-z \=]*", "");
    
64.         }
    
65. 
    
66.         void objectModified(object sender, ObjectEventArgs e)
    
67.         {
    
68.             //判断AutoCAD命令是否为移动
    
69.             if (bMove == false)
    
70.                 //如果AutoCAD命令为非移动，则返回
    
71.                 return;
    
72.             //断开所有的事件处理函数
    
73.             removeEvents();
    
74.             //判断移动过的对象是否为点
    
75.             DBPoint startPoint = e.DBObject as DBPoint;
    
76.             if (startPoint == null)
    
77.                 return;
    
78.             //设置选择集过滤器，只选择图形中的文字
    
79.             TypedValueList values = new TypedValueList();
    
80.             values.Add(typeof(DBText));
    
81.             SelectionFilter filter = new SelectionFilter(values);
    
82.             PromptSelectionResult resSel = ed.SelectAll(filter);
    
83.             //如果选择的是文字
    
84.             if (resSel.Status == PromptStatus.OK)
    
85.             {
    
86.                 //获取选择集中的文字对象
    
87.                 SelectionSet sSet = resSel.Value;
    
88.                 ObjectId[] ids = sSet.GetObjectIds();
    
89.                 //开始事务处理
    
90.                 try
    
91.                 {
    
92.                     using (Transaction trans = db.TransactionManager.StartTransaction())
    
93.                     {
    
94. 
    
95.                         TypedValueList list1 = startPoint.ObjectId.GetXData("测点");
    
96.                         if (list1 == null)
    
97.                         {
    
98.                             MessageBox.Show("点无扩展信息");
    
99.                         }
    
100.                         //循环遍历选择集中的文字
     
101.                         foreach (ObjectId id in ids)
     
102.                         {
     
103.                             //以读的方式打开文字对象
     
104.                             DBText followText = trans.GetObject(id, OpenMode.ForRead) as DBText;
     
105.                             double fText = Convert.ToDouble(RemoveNotNumber(followText.TextString.ToString()));
     
106.                             string qText = RemoveNumber(followText.TextString.ToString());
     
107.                             TypedValueList list2 = id.GetXData("测点");
     
108.                             string mc1 = "a", mc2 = "b", dh1 = "c", dh2 = "d";
     
109.                             if (list2 != null)
     
110.                             {
     
111.                                 mc1 = Convert.ToString(list1[0].Value.ToString());
     
112.                                 mc2 = Convert.ToString(list2[0].Value.ToString());
     
113.                                 dh1 = Convert.ToString(list1[2].Value.ToString());
     
114.                                 dh2 = Convert.ToString(list2[2].Value.ToString());
     
115.                             }
     
116.                             else
     
117.                             {
     
118.                                 continue;
     
119.                             }
     
120.                             //通过判断点与文字的扩展信息是否相同
     
121.                             if (qText == "Y=" && mc1 == mc2 && dh1 == dh2)
     
122.                             {
     
123.                                 //因为上面以读的方式打开了文字，所以必须改变为写
     
124.                                 followText.UpgradeOpen();
     
125.                                 //改变文字的内容保持和点位置Y坐标相同
     
126.                                 followText.TextString = "Y=" + startPoint.Position.X.ToString("0.000");
     
127. 
     
128.                             }
     
129.                             else if (qText == "Z=" && mc1 == mc2 && dh1 == dh2)
     
130.                             {
     
131.                                 //因为上面以读的方式打开了文字，所以为了改变文字的文字心必须改变为写
     
132.                                 followText.UpgradeOpen();
     
133.                                 //改变文字的内容保持和点位置Z坐标相同
     
134.                                 followText.TextString = "Z=" + startPoint.Position.Z.ToString("0.000");
     
135.                             }
     
136.                             else if (qText == "X=" && mc1 == mc2 && dh1 == dh2)
     
137.                             {
     
138.                                 //因为上面以读的方式打开了文字，所以为了改变文字的文字心必须改变为写
     
139.                                 followText.UpgradeOpen();
     
140.                                 //改变文字的内容保持和点位置X坐标相同
     
141.                                 followText.TextString = "X=" + startPoint.Position.Y.ToString("0.000");
     
142. 
     
143.                             }
     
144.                         }
     
145.                         //提交事务处理
     
146.                         trans.Commit();
     
147.                     }
     
148.                 }
     
149.                 catch
     
150.                 {
     
151.                     ed.WriteMessage("\n错误");
     
152.                 }
     
153.             }
     
154.             //连接所有的事件处理函数
     
155.             AddEvents();
     
156.         }
     
157. 
     
158. 
     
159.         void commandEnded(object sender, CommandEventArgs e)
     
160.         {
     
161.             if (bMove == true)//判断AutoCAD命令是否为移动
     
162.                 bMove = false;//设置全局变量bMove为False，表示移动命令结束
     
163.         }
     
164. 
     
165.         [CommandMethod("Add")]
     
166.         public void AddEvents()
     
167.         {
     
168.             //把事件处理函数与相应的事件进行连接
     
169.             db.ObjectOpenedForModify += objectOpenedForModify;
     
170.             db.ObjectModified += objectModified;
     
171.             doc.CommandWillStart += commandWillStart;
     
172.             doc.CommandEnded += commandEnded;
     
173.         }
     
174. 
     
175.         [CommandMethod("Remove")]
     
176.         public void removeEvents()
     
177.         {
     
178.             //断开所有的事件处理函数
     
179.             db.ObjectOpenedForModify -= objectOpenedForModify;
     
180.             db.ObjectModified -= objectModified;
     
181.             doc.CommandWillStart -= commandWillStart;
     
182.             doc.CommandEnded -= commandEnded;
     
183.         }
     
184.     }
     
185. }

using System;<br /> using System.Collections.Generic;<br /> using System.Text;<br /> using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Runtime;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Geometry;<br /> using DotNetARX;<br /> using System.Text.RegularExpressions;<br /> using Autodesk.AutoCAD.Windows;<br /> using System.Windows.Forms;<br /> namespace MoveCircleEvent<br /> {<br />     public class MovePoint<br />     {<br />         Database db = HostApplicationServices.WorkingDatabase;<br />         Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;<br />         Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;<br />         bool bMove;<br />         Point3d startPoint;<br /> <br />         void commandWillStart(object sender, CommandEventArgs e)<br />         {<br />             //设置全局变量bMove为True，表示移动命令开始<br />             bMove = true;<br />         }<br /> <br />         void objectOpenedForModify(object sender, ObjectEventArgs e)<br />         {<br />             //判断AutoCAD命令是否为移动<br />             if (bMove == false)<br />                 //如果AutoCAD命令为非移动，则返回<br />                 return;<br />             DBPoint pt = e.DBObject as DBPoint;<br />             //判断将要移动的对象是否为<br />             if (pt != null)<br />             {<br />                 //获取文字的中心，就是同心文字的文字心<br />                 startPoint = pt.Position;<br />             }<br />         }<br />         /// <summary><br />         /// 去掉字符串中的数字及小数点<br />         /// </summary><br />         /// <param name="key"></param><br />         /// <returns></returns><br />         public static string RemoveNumber(string key)<br />         {<br />             return System.Text.RegularExpressions.Regex.Replace(key, @"[\d \.]", "");<br />         }<br /> <br /> <br />         /// <summary><br />         /// 去掉字符串中的字母及等号<br />         /// </summary><br />         /// <param name="key"></param><br />         /// <returns></returns><br />         public static string RemoveNotNumber(string key)<br />         {<br /> <br />             return System.Text.RegularExpressions.Regex.Replace(key, @"[A-Z a-z \=]*", "");<br />         }<br /> <br />         void objectModified(object sender, ObjectEventArgs e)<br />         {<br />             //判断AutoCAD命令是否为移动<br />             if (bMove == false)<br />                 //如果AutoCAD命令为非移动，则返回<br />                 return;<br />             //断开所有的事件处理函数<br />             removeEvents();<br />             //判断移动过的对象是否为点<br />             DBPoint startPoint = e.DBObject as DBPoint;<br />             if (startPoint == null)<br />                 return;<br />             //设置选择集过滤器，只选择图形中的文字<br />             TypedValueList values = new TypedValueList();<br />             values.Add(typeof(DBText));<br />             SelectionFilter filter = new SelectionFilter(values);<br />             PromptSelectionResult resSel = ed.SelectAll(filter);<br />             //如果选择的是文字<br />             if (resSel.Status == PromptStatus.OK)<br />             {<br />                 //获取选择集中的文字对象<br />                 SelectionSet sSet = resSel.Value;<br />                 ObjectId[] ids = sSet.GetObjectIds();<br />                 //开始事务处理<br />                 try<br />                 {<br />                     using (Transaction trans = db.TransactionManager.StartTransaction())<br />                     {<br /> <br />                         TypedValueList list1 = startPoint.ObjectId.GetXData("测点");<br />                         if (list1 == null)<br />                         {<br />                             MessageBox.Show("点无扩展信息");<br />                         }<br />                         //循环遍历选择集中的文字<br />                         foreach (ObjectId id in ids)<br />                         {<br />                             //以读的方式打开文字对象<br />                             DBText followText = trans.GetObject(id, OpenMode.ForRead) as DBText;<br />                             double fText = Convert.ToDouble(RemoveNotNumber(followText.TextString.ToString()));<br />                             string qText = RemoveNumber(followText.TextString.ToString());<br />                             TypedValueList list2 = id.GetXData("测点");<br />                             string mc1 = "a", mc2 = "b", dh1 = "c", dh2 = "d";<br />                             if (list2 != null)<br />                             {<br />                                 mc1 = Convert.ToString(list1[0].Value.ToString());<br />                                 mc2 = Convert.ToString(list2[0].Value.ToString());<br />                                 dh1 = Convert.ToString(list1[2].Value.ToString());<br />                                 dh2 = Convert.ToString(list2[2].Value.ToString());<br />                             }<br />                             else<br />                             {<br />                                 continue;<br />                             }<br />                             //通过判断点与文字的扩展信息是否相同<br />                             if (qText == "Y=" && mc1 == mc2 && dh1 == dh2)<br />                             {<br />                                 //因为上面以读的方式打开了文字，所以必须改变为写<br />                                 followText.UpgradeOpen();<br />                                 //改变文字的内容保持和点位置Y坐标相同<br />                                 followText.TextString = "Y=" + startPoint.Position.X.ToString("0.000");<br /> <br />                             }<br />                             else if (qText == "Z=" && mc1 == mc2 && dh1 == dh2)<br />                             {<br />                                 //因为上面以读的方式打开了文字，所以为了改变文字的文字心必须改变为写<br />                                 followText.UpgradeOpen();<br />                                 //改变文字的内容保持和点位置Z坐标相同<br />                                 followText.TextString = "Z=" + startPoint.Position.Z.ToString("0.000");<br />                             }<br />                             else if (qText == "X=" && mc1 == mc2 && dh1 == dh2)<br />                             {<br />                                 //因为上面以读的方式打开了文字，所以为了改变文字的文字心必须改变为写<br />                                 followText.UpgradeOpen();<br />                                 //改变文字的内容保持和点位置X坐标相同<br />                                 followText.TextString = "X=" + startPoint.Position.Y.ToString("0.000");<br /> <br />                             }<br />                         }<br />                         //提交事务处理<br />                         trans.Commit();<br />                     }<br />                 }<br />                 catch<br />                 {<br />                     ed.WriteMessage("\n错误");<br />                 }<br />             }<br />             //连接所有的事件处理函数<br />             AddEvents();<br />         }<br /> <br /> <br />         void commandEnded(object sender, CommandEventArgs e)<br />         {<br />             if (bMove == true)//判断AutoCAD命令是否为移动<br />                 bMove = false;//设置全局变量bMove为False，表示移动命令结束<br />         }<br /> <br />         [CommandMethod("Add")]<br />         public void AddEvents()<br />         {<br />             //把事件处理函数与相应的事件进行连接<br />             db.ObjectOpenedForModify += objectOpenedForModify;<br />             db.ObjectModified += objectModified;<br />             doc.CommandWillStart += commandWillStart;<br />             doc.CommandEnded += commandEnded;<br />         }<br /> <br />         [CommandMethod("Remove")]<br />         public void removeEvents()<br />         {<br />             //断开所有的事件处理函数<br />             db.ObjectOpenedForModify -= objectOpenedForModify;<br />             db.ObjectModified -= objectModified;<br />             doc.CommandWillStart -= commandWillStart;<br />             doc.CommandEnded -= commandEnded;<br />         }<br />     }<br /> }

bluefires

using DotNetARX这个应用的文件呢，建议可以上传到论坛，谢谢了！

xiongdi6k

就是这么精彩。。

a189233

点与坐标文字关联就是这么精彩。。

nijiea123

这个看起来不多的样子

czb203

using DotNetARX这个应用的文件呢，建议可以上传到论坛，谢谢了