[资料] delphi.net二次开发AutoCAD（四）GetPoint 方法

萧闫子

　GetPoint 方法提示用户在 AutoCAD 命令提示下给出点的定义。PromptPointOptions 对象允许用户控制输入和如何显示提示信息。PromptPointOptions 对象的 UseBasePoint 和 BasePoint 属性控制是否从基点绘制一条橡皮线。PromptPointOptions 对象的 Keywords 属性允许用户定义用户可以在命令提示中输入除指定点外的关键字。

　　下面的样例提示用户输入两个点，然后以这两个点为起点和端点绘制一条直线（该例子根据用户点击鼠标，获取用户选定的点）  

1. namespace ClassLibrary3;
   
2. 
   
3. interface
   
4. uses
   
5.   Autodesk.AutoCAD.Runtime, Autodesk.AutoCAD.ApplicationServices,Autodesk.AutoCAD.EditorInput,
   
6.   Autodesk.AutoCAD.DatabaseServices,Autodesk.AutoCAD.Geometry;
   
7. 
   
8. type
   
9.   Class1 =public  class
   
10.   private
    
11.   public
    
12.     [CommandMethod('GetPointsFromUser')]
    
13.     class method GetPointsFromUser;
    
14.   end;
    
15. 
    
16. implementation
    
17. class method Class1.GetPointsFromUser;
    
18. var
    
19.   acDococument;
    
20.   acCurDbatabase;  
    
21.   pPtResromptPointResult;
    
22.   pPtOptsromptPointOptions;
    
23.   ptStartoint3d;
    
24.   ptEndoint3d;
    
25.   acTrans:Transaction;
    
26.   acBlkTbl:BlockTable;
    
27.   acBlkTblRec:BlockTableRecord;
    
28.   acLineine;
    
29. begin  
    
30.   //获得当前数据库并启动事务管理器    Get the current database and start the Transaction Manager
    
31.   acDoc:= Application.DocumentManager.MdiActiveDocument;
    
32.   acCurDb:= acDoc.Database;
    
33.   pPtOpts:= New PromptPointOptions('');  
    
34.   //提示开始点   Prompt for the start point
    
35.   pPtOpts.Message := #13+ 'Enter the start point of the line: ';
    
36.   pPtRes := acDoc.Editor.GetPoint(pPtOpts);
    
37.   ptStart:= pPtRes.Value;  
    
38.   //如果用户按了 ESC 键或取消了命令就退出   Exit if the user presses ESC or cancels the command
    
39.   If pPtRes.Status = PromptStatus.Cancel Then Exit;
    
40. 
    
41.   //提示结束点
    
42.   pPtOpts.Message :=#13+'Enter the end point of the line:';
    
43.   pPtOpts.UseBasePoint:=True;
    
44.   pPtOpts.BasePoint:=ptStart;
    
45.   pPtRes := acDoc.Editor.GetPoint(pPtOpts);
    
46.   ptEnd:= pPtRes.Value;
    
47. 
    
48.   If pPtRes.Status = PromptStatus.Cancel Then Exit;  
    
49.   //启动一个事务
    
50.   try
    
51.     acTrans:= acCurDb.TransactionManager.StartTransaction;  
    
52.     //以写的方式打开模型空间
    
53.   acBlkTbl := acTrans.GetObject(acCurDb.BlockTableId,OpenMode.ForRead) as BlockTable;
    
54.     acBlkTblRec := acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord;
    
55.     //定义新的直线
    
56.     acLine:= New Line(ptStart, ptEnd);
    
57.     acLine.SetDatabaseDefaults;
    
58.     //添加直线到图形中去
    
59.     acBlkTblRec.AppendEntity(acLine);
    
60.     acTrans.AddNewlyCreatedDBObject(acLine, True);
    
61.     //缩放到图形的范围或界限
    
62.     acDoc.SendStringToExecute('._zoom _all ', True, False, False);
    
63.   finally     
    
64.     //提交修改并销毁事务
    
65.     acTrans.Commit;
    
66.   end;
    
67. end;
    
68. 
    
69. end.

复制代码

后记：在翻译这一段代码的过程中，出现了一个非委托的错误，原因是我在翻译的时候将下两行代码

1.   acBlkTbl := acTrans.GetObject(acCurDb.BlockTableId,OpenMode.ForRead) as BlockTable;
   
2.   acBlkTblRec := acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],OpenMode.ForWrite) as BlockTableRecord;
   
3. 中的as BlockTable和as BlockTableRecord两个运算去掉，加上这两个以后就正常了。

复制代码