程序结束，CAD命令行不能返回Command提示，为什么？

xgr

问题如图和题目

程序代码:

2. namespace Xgtool
   
3. {
   
4.     public class ZbbzMain
   
5.     {
   
6.         [CommandMethod("clzbbz")]      
   
7.         static public void clzbbz()
   
8.         {
   
9.             #region 检查是否已经设置了比例尺并取得比例尺
   
10.             double Blc;
    
11.             if (System.Convert.ToInt32(Application.GetSystemVariable("Userr1")) == 0.0000)
    
12.             {
    
13.                 tongyong.Srblc();
    
14.                 Blc = Convert.ToDouble(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("Userr1"));
    
15.             }
    
16.             else
    
17.             {
    
18.                 Blc = Convert.ToDouble(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("Userr1"));
    
19.             }
    
20.             #endregion
    
21. 
    
22.             #region 获得当前数据库并启动事务管理器
    
23.             Document acDoc = Application.DocumentManager.MdiActiveDocument;
    
24.             Database acCurDb = acDoc.Database;
    
25.             DocumentLock dl = Application.DocumentManager.MdiActiveDocument.LockDocument();
    
26.             #endregion
    
27. 
    
28.             #region 创建文字样式并取得文字样式Id
    
29.             double textHeight = 3 * Blc / 1000;
    
30.             string textName = "宋体";
    
31.             double textXScale = 0.85;
    
32.             tongyong.setTextStyle(textName, textHeight, textXScale);
    
33.             string layerName = "点坐标标注";
    
34.             short layerColor = 2;
    
35.             ObjectId clzbbzBlockLayerId = Xgtool.tongyong.CreateLayer(layerName, layerColor);
    
36.             #endregion
    
37. 
    
38.             #region 设置关键字
    
39.             PromptPointResult pPtRes1;
    
40.             PromptPointResult pPtRes2;
    
41.             PromptIntegerOptions pIntOpts = new PromptIntegerOptions("\n按空格或回车键继续/:");
    
42.             pIntOpts.Keywords.Add("E", "E", "退出E", true, true);
    
43.             pIntOpts.AllowNone = true;//允许空输入
    
44.             PromptPointOptions pPtOpts1 = new PromptPointOptions("\n请选择标注点:");
    
45.             PromptPointOptions pPtOpts2 = new PromptPointOptions("\n请选择文字位置点:");
    
46.             #endregion
    
47. 
    
48.             #region 开始循环操作
    
49.             do
    
50.             {
    
51.                 #region 提示开始点,并检查用户的输入状况
    
52.                 pPtRes1 = acDoc.Editor.GetPoint(pPtOpts1);
    
53.                 Point3d ptStart = pPtRes1.Value;//读取开始点ptStart
    
54.                 //如果用户按了 ESC 键或取消了命令就退出,并在命令行输出信息。
    
55.                 if (pPtRes1.Status == PromptStatus.Cancel)
    
56.                 {
    
57.                     acDoc.Editor.WriteMessage("\n用户终止了程序！");
    
58.                     return;
    
59.                 }
    
60.                 pPtOpts2.UseBasePoint = true;//显示橡皮筋线
    
61.                 pPtOpts2.BasePoint = ptStart;//橡皮筋线的基准点是ptStart
    
62.                 pPtRes2 = acDoc.Editor.GetPoint(pPtOpts2);
    
63.                 Point3d ptEnd = pPtRes2.Value;
    
64.                 if (pPtRes2.Status == PromptStatus.Cancel)
    
65.                 {
    
66.                     acDoc.Editor.WriteMessage("\n用户终止了程序！");
    
67.                     return;
    
68.                 }
    
69.                 #endregion
    
70. 
    
71.                 #region 测试点XY值的最大长度
    
72.                 string ptStartX = ptStart.X.ToString("f3");//取X
    
73.                 string ptStartY = ptStart.Y.ToString("f3");//取Y
    
74.                 DBText MMM = new DBText();
    
75.                 MMM.SetDatabaseDefaults();
    
76. 
    
77.                 double textS;
    
78.                 if (ptStartX.Length > ptStartY.Length)
    
79.                 {
    
80.                     MMM.TextString = ptStartX;
    
81.                     textS = MMM.GeometricExtents.MaxPoint.X - MMM.GeometricExtents.MinPoint.X;
    
82.                 }
    
83.                 else
    
84.                 {
    
85.                     MMM.TextString = ptStartY;
    
86.                     textS = MMM.GeometricExtents.MaxPoint.X - MMM.GeometricExtents.MinPoint.X;
    
87.                 }
    
88.                 #endregion
    
89. 
    
90.                 #region 定义一个事件，在数据库里创建一个名称为"*U"属性块
    
91.                 using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
    
92.                 {
    
93.                     ObjectId tstId = ObjectId.Null;
    
94.                     TextStyleTable tst = acTrans.GetObject(acCurDb.TextStyleTableId, OpenMode.ForWrite) as TextStyleTable;
    
95.                     tstId = acCurDb.Textstyle = tst["宋体"];
    
96. 
    
97.                     BlockTable bt = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForWrite) as BlockTable;
    
98.                     BlockTableRecord newBtr = new BlockTableRecord();
    
99.                     newBtr.Name = "*U";
    
100.                     bt.Add(newBtr);
     
101.                     acTrans.AddNewlyCreatedDBObject(newBtr, true);
     
102. 
     
103.                     //定义块插入点
     
104.                     Point3d pt1 = new Point3d(0, 0, 0);
     
105.                     Point3d pt2 = new Point3d(ptEnd.X - ptStart.X, ptEnd.Y - ptStart.Y, 0);
     
106.                     Point3d pt3, pt4, pt5;
     
107. 
     
108.                     if ((ptEnd.X - ptStart.X) >= 0)
     
109.                     {
     
110.                         pt3 = new Point3d(pt2.X + textS + 3 * (Blc / 1000), pt2.Y, 0);
     
111.                         pt4 = new Point3d(pt2.X + (textS + 3 * (Blc / 1000)) / 2, pt2.Y + 2 * (Blc / 1000), 0);
     
112.                         pt5 = new Point3d(pt2.X + (textS + 3 * (Blc / 1000)) / 2, pt2.Y - 2 * (Blc / 1000), 0);
     
113.                     }
     
114.                     else
     
115.                     {
     
116.                         pt3 = new Point3d(pt2.X - (textS + 3 * (Blc / 1000)), pt2.Y, 0);
     
117.                         pt4 = new Point3d(pt2.X - (textS + 3 * (Blc / 1000)) / 2, pt2.Y + 2 * (Blc / 1000), 0);
     
118.                         pt5 = new Point3d(pt2.X - (textS + 3 * (Blc / 1000)) / 2, pt2.Y - 2 * (Blc / 1000), 0);
     
119.                     }
     
120. 
     
121.                     //指引线
     
122.                     Line acLine = new Line(pt1, pt2);
     
123.                     acLine.LayerId = clzbbzBlockLayerId;
     
124.                     newBtr.AppendEntity(acLine);//线添加到块里
     
125.                     acTrans.AddNewlyCreatedDBObject(acLine, true);
     
126. 
     
127.                     //水平线
     
128.                     Line horizontalGridLine = new Line(pt2, pt3);
     
129.                     horizontalGridLine.LayerId = clzbbzBlockLayerId;
     
130.                     newBtr.AppendEntity(horizontalGridLine);//线添加到块里
     
131.                     acTrans.AddNewlyCreatedDBObject(horizontalGridLine, true);
     
132. 
     
133.                     //定义属性X
     
134.                     AttributeDefinition attdef = new AttributeDefinition(pt4, ptStartX, "X(E)", "测量点的X值", tstId);
     
135.                     attdef.Justify = AttachmentPoint.MiddleCenter;
     
136.                     attdef.AlignmentPoint = pt4;
     
137.                     attdef.LayerId = clzbbzBlockLayerId;
     
138.                     newBtr.AppendEntity(attdef);//属性值添加到块里
     
139.                     acTrans.AddNewlyCreatedDBObject(attdef, true);
     
140. 
     
141.                     //定义属性Y
     
142.                     AttributeDefinition attdef1 = new AttributeDefinition(pt5, ptStartY, "Y(N)", "测量点的Y值", tstId);
     
143.                     attdef1.Justify = AttachmentPoint.MiddleCenter;
     
144.                     attdef1.AlignmentPoint = pt5;
     
145.                     attdef1.LayerId = clzbbzBlockLayerId;
     
146.                     newBtr.AppendEntity(attdef1);//属性值添加到块里
     
147.                     acTrans.AddNewlyCreatedDBObject(attdef1, true);
     
148. 
     
149.                     //在模型空间插入块
     
150.                     BlockReference br = new BlockReference(ptStart, newBtr.ObjectId);
     
151.                     br.LayerId = clzbbzBlockLayerId;
     
152.                     BlockTableRecord modelSpaceBtr = acTrans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord;
     
153.                     ObjectId brId = modelSpaceBtr.AppendEntity(br);
     
154.                     acTrans.AddNewlyCreatedDBObject(br, true);
     
155. 
     
156.                     //在块表记录插入属性X
     
157.                     AttributeReference ar = new AttributeReference();
     
158.                     ar.SetAttributeFromBlock(attdef, br.BlockTransform);
     
159.                     ar.TextString = attdef.TextString;
     
160.                     br.AttributeCollection.AppendAttribute(ar);
     
161.                     acTrans.AddNewlyCreatedDBObject(ar, true);
     
162. 
     
163.                     //在块表记录插入属性Y
     
164.                     AttributeReference ar1 = new AttributeReference();
     
165.                     ar1.SetAttributeFromBlock(attdef1, br.BlockTransform);
     
166.                     ar1.TextString = attdef1.TextString;
     
167.                     br.AttributeCollection.AppendAttribute(ar1);
     
168.                     acTrans.AddNewlyCreatedDBObject(ar1, true);
     
169.                     acTrans.Commit();
     
170.                 }
     
171.                 #endregion
     
172.             }
     
173.             while (acDoc.Editor.GetInteger(pIntOpts).Status != PromptStatus.Keyword);
     
174.             dl.Dispose();
     
175.             #endregion
     
176.         }
     
177.     }
     
178. }

namespace Xgtool<br /> {<br />     public class ZbbzMain<br />     {<br />         [CommandMethod("clzbbz")]       <br />         static public void clzbbz()<br />         {<br />             #region 检查是否已经设置了比例尺并取得比例尺<br />             double Blc;<br />             if (System.Convert.ToInt32(Application.GetSystemVariable("Userr1")) == 0.0000)<br />             {<br />                 tongyong.Srblc();<br />                 Blc = Convert.ToDouble(Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.GetSystemVariable("Userr1"));<br />             }<br />             else<br />             {<br />                 Blc = Convert.ToDouble(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("Userr1"));<br />             }<br />             #endregion<br /> <br />             #region 获得当前数据库并启动事务管理器<br />             Document acDoc = Application.DocumentManager.MdiActiveDocument;<br />             Database acCurDb = acDoc.Database;<br />             DocumentLock dl = Application.DocumentManager.MdiActiveDocument.LockDocument();<br />             #endregion<br /> <br />             #region 创建文字样式并取得文字样式Id<br />             double textHeight = 3 * Blc / 1000;<br />             string textName = "宋体";<br />             double textXScale = 0.85;<br />             tongyong.setTextStyle(textName, textHeight, textXScale);<br />             string layerName = "点坐标标注";<br />             short layerColor = 2;<br />             ObjectId clzbbzBlockLayerId = Xgtool.tongyong.CreateLayer(layerName, layerColor);<br />             #endregion<br /> <br />             #region 设置关键字<br />             PromptPointResult pPtRes1;<br />             PromptPointResult pPtRes2;<br />             PromptIntegerOptions pIntOpts = new PromptIntegerOptions("\n按空格或回车键继续/:");<br />             pIntOpts.Keywords.Add("E", "E", "退出E", true, true);<br />             pIntOpts.AllowNone = true;//允许空输入<br />             PromptPointOptions pPtOpts1 = new PromptPointOptions("\n请选择标注点:");<br />             PromptPointOptions pPtOpts2 = new PromptPointOptions("\n请选择文字位置点:");<br />             #endregion<br /> <br />             #region 开始循环操作<br />             do<br />             {<br />                 #region 提示开始点,并检查用户的输入状况<br />                 pPtRes1 = acDoc.Editor.GetPoint(pPtOpts1);<br />                 Point3d ptStart = pPtRes1.Value;//读取开始点ptStart<br />                 //如果用户按了 ESC 键或取消了命令就退出,并在命令行输出信息。<br />                 if (pPtRes1.Status == PromptStatus.Cancel)<br />                 {<br />                     acDoc.Editor.WriteMessage("\n用户终止了程序！");<br />                     return;<br />                 }<br />                 pPtOpts2.UseBasePoint = true;//显示橡皮筋线<br />                 pPtOpts2.BasePoint = ptStart;//橡皮筋线的基准点是ptStart<br />                 pPtRes2 = acDoc.Editor.GetPoint(pPtOpts2);<br />                 Point3d ptEnd = pPtRes2.Value;<br />                 if (pPtRes2.Status == PromptStatus.Cancel)<br />                 {<br />                     acDoc.Editor.WriteMessage("\n用户终止了程序！");<br />                     return;<br />                 }<br />                 #endregion<br /> <br />                 #region 测试点XY值的最大长度<br />                 string ptStartX = ptStart.X.ToString("f3");//取X<br />                 string ptStartY = ptStart.Y.ToString("f3");//取Y<br />                 DBText MMM = new DBText();<br />                 MMM.SetDatabaseDefaults();<br /> <br />                 double textS;<br />                 if (ptStartX.Length > ptStartY.Length)<br />                 {<br />                     MMM.TextString = ptStartX;<br />                     textS = MMM.GeometricExtents.MaxPoint.X - MMM.GeometricExtents.MinPoint.X;<br />                 }<br />                 else<br />                 {<br />                     MMM.TextString = ptStartY;<br />                     textS = MMM.GeometricExtents.MaxPoint.X - MMM.GeometricExtents.MinPoint.X;<br />                 }<br />                 #endregion<br /> <br />                 #region 定义一个事件，在数据库里创建一个名称为"*U"属性块<br />                 using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())<br />                 {<br />                     ObjectId tstId = ObjectId.Null;<br />                     TextStyleTable tst = acTrans.GetObject(acCurDb.TextStyleTableId, OpenMode.ForWrite) as TextStyleTable;<br />                     tstId = acCurDb.Textstyle = tst["宋体"];<br /> <br />                     BlockTable bt = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForWrite) as BlockTable;<br />                     BlockTableRecord newBtr = new BlockTableRecord();<br />                     newBtr.Name = "*U";<br />                     bt.Add(newBtr);<br />                     acTrans.AddNewlyCreatedDBObject(newBtr, true);<br /> <br />                     //定义块插入点<br />                     Point3d pt1 = new Point3d(0, 0, 0);<br />                     Point3d pt2 = new Point3d(ptEnd.X - ptStart.X, ptEnd.Y - ptStart.Y, 0);<br />                     Point3d pt3, pt4, pt5;<br /> <br />                     if ((ptEnd.X - ptStart.X) >= 0)<br />                     {<br />                         pt3 = new Point3d(pt2.X + textS + 3 * (Blc / 1000), pt2.Y, 0);<br />                         pt4 = new Point3d(pt2.X + (textS + 3 * (Blc / 1000)) / 2, pt2.Y + 2 * (Blc / 1000), 0);<br />                         pt5 = new Point3d(pt2.X + (textS + 3 * (Blc / 1000)) / 2, pt2.Y - 2 * (Blc / 1000), 0);<br />                     }<br />                     else<br />                     {<br />                         pt3 = new Point3d(pt2.X - (textS + 3 * (Blc / 1000)), pt2.Y, 0);<br />                         pt4 = new Point3d(pt2.X - (textS + 3 * (Blc / 1000)) / 2, pt2.Y + 2 * (Blc / 1000), 0);<br />                         pt5 = new Point3d(pt2.X - (textS + 3 * (Blc / 1000)) / 2, pt2.Y - 2 * (Blc / 1000), 0);<br />                     }<br /> <br />                     //指引线<br />                     Line acLine = new Line(pt1, pt2);<br />                     acLine.LayerId = clzbbzBlockLayerId;<br />                     newBtr.AppendEntity(acLine);//线添加到块里<br />                     acTrans.AddNewlyCreatedDBObject(acLine, true);<br /> <br />                     //水平线<br />                     Line horizontalGridLine = new Line(pt2, pt3);<br />                     horizontalGridLine.LayerId = clzbbzBlockLayerId;<br />                     newBtr.AppendEntity(horizontalGridLine);//线添加到块里<br />                     acTrans.AddNewlyCreatedDBObject(horizontalGridLine, true);<br /> <br />                     //定义属性X<br />                     AttributeDefinition attdef = new AttributeDefinition(pt4, ptStartX, "X(E)", "测量点的X值", tstId);<br />                     attdef.Justify = AttachmentPoint.MiddleCenter;<br />                     attdef.AlignmentPoint = pt4;<br />                     attdef.LayerId = clzbbzBlockLayerId;<br />                     newBtr.AppendEntity(attdef);//属性值添加到块里<br />                     acTrans.AddNewlyCreatedDBObject(attdef, true);<br /> <br />                     //定义属性Y<br />                     AttributeDefinition attdef1 = new AttributeDefinition(pt5, ptStartY, "Y(N)", "测量点的Y值", tstId);<br />                     attdef1.Justify = AttachmentPoint.MiddleCenter;<br />                     attdef1.AlignmentPoint = pt5;<br />                     attdef1.LayerId = clzbbzBlockLayerId;<br />                     newBtr.AppendEntity(attdef1);//属性值添加到块里<br />                     acTrans.AddNewlyCreatedDBObject(attdef1, true);<br /> <br />                     //在模型空间插入块<br />                     BlockReference br = new BlockReference(ptStart, newBtr.ObjectId);<br />                     br.LayerId = clzbbzBlockLayerId;<br />                     BlockTableRecord modelSpaceBtr = acTrans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord;<br />                     ObjectId brId = modelSpaceBtr.AppendEntity(br);<br />                     acTrans.AddNewlyCreatedDBObject(br, true);<br /> <br />                     //在块表记录插入属性X<br />                     AttributeReference ar = new AttributeReference();<br />                     ar.SetAttributeFromBlock(attdef, br.BlockTransform);<br />                     ar.TextString = attdef.TextString;<br />                     br.AttributeCollection.AppendAttribute(ar);<br />                     acTrans.AddNewlyCreatedDBObject(ar, true);<br /> <br />                     //在块表记录插入属性Y<br />                     AttributeReference ar1 = new AttributeReference();<br />                     ar1.SetAttributeFromBlock(attdef1, br.BlockTransform);<br />                     ar1.TextString = attdef1.TextString;<br />                     br.AttributeCollection.AppendAttribute(ar1);<br />                     acTrans.AddNewlyCreatedDBObject(ar1, true);<br />                     acTrans.Commit();<br />                 }<br />                 #endregion<br />             }<br />             while (acDoc.Editor.GetInteger(pIntOpts).Status != PromptStatus.Keyword);<br />             dl.Dispose();<br />             #endregion <br />         }<br />     }<br /> }

这个问题到底出在哪里？

hhhwjb

在程序结束前执行：
acDoc.SendStringToExecute("CommandLine ", false, false, false);

hhhwjb

在程序结束前执行：
acDoc.SendStringToExecute("CommandLine ", false, false, false);

xgr

问题是解决了，但还是没有找到症结所在，还是可以作为最佳答案了，谢谢！