﻿{"id":36203,"date":"2012-05-30T16:26:06","date_gmt":"2012-05-30T08:26:06","guid":{"rendered":"http:\/\/www.lanmaowang.com\/?p=36203"},"modified":"2015-04-01T22:27:35","modified_gmt":"2015-04-01T14:27:35","slug":"delphi-net-secondary-development-of-autocad-d-getpoint-method","status":"publish","type":"post","link":"http:\/\/www.lanmaowang.com\/?p=36203","title":{"rendered":"delphi.net\u4e8c\u6b21\u5f00\u53d1AutoCAD\uff08\u56db\uff09GetPoint \u65b9\u6cd5"},"content":{"rendered":"<p>\u3000\u3000GetPoint \u65b9\u6cd5\u63d0\u793a\u7528\u6237\u5728 AutoCAD \u547d\u4ee4\u63d0\u793a\u4e0b\u7ed9\u51fa\u70b9\u7684\u5b9a\u4e49\u3002PromptPointOptions \u5bf9\u8c61\u5141\u8bb8\u7528\u6237\u63a7\u5236\u8f93\u5165\u548c\u5982\u4f55\u663e\u793a\u63d0\u793a\u4fe1\u606f\u3002PromptPointOptions \u5bf9\u8c61\u7684 UseBasePoint \u548c BasePoint \u5c5e\u6027\u63a7\u5236\u662f\u5426\u4ece\u57fa\u70b9\u7ed8\u5236\u4e00\u6761\u6a61\u76ae\u7ebf\u3002PromptPointOptions \u5bf9\u8c61\u7684 Keywords \u5c5e\u6027\u5141\u8bb8\u7528\u6237\u5b9a\u4e49\u7528\u6237\u53ef\u4ee5\u5728\u547d\u4ee4\u63d0\u793a\u4e2d\u8f93\u5165\u9664\u6307\u5b9a\u70b9\u5916\u7684\u5173\u952e\u5b57\u3002&nbsp;<\/p>\n<p><\/p>\n<p>\u3000\u3000\u4e0b\u9762\u7684\u6837\u4f8b\u63d0\u793a\u7528\u6237\u8f93\u5165\u4e24\u4e2a\u70b9\uff0c\u7136\u540e\u4ee5\u8fd9\u4e24\u4e2a\u70b9\u4e3a\u8d77\u70b9\u548c\u7aef\u70b9\u7ed8\u5236\u4e00\u6761\u76f4\u7ebf\uff08\u8be5\u4f8b\u5b50\u6839\u636e\u7528\u6237\u70b9\u51fb\u9f20\u6807\uff0c\u83b7\u53d6\u7528\u6237\u9009\u5b9a\u7684\u70b9\uff09 &nbsp;<\/p>\n<p><\/p>\n<pre class=\"brush:delphi;toolbar:false\">namespace&nbsp;ClassLibrary3;&nbsp;\r\ninterface&nbsp;\r\nuses&nbsp;\r\n&nbsp;&nbsp;Autodesk.AutoCAD.Runtime,&nbsp;Autodesk.AutoCAD.ApplicationServices,Autodesk.AutoCAD.EditorInput,&nbsp;\r\n&nbsp;&nbsp;Autodesk.AutoCAD.DatabaseServices,Autodesk.AutoCAD.Geometry;&nbsp;\r\ntype&nbsp;\r\n&nbsp;&nbsp;Class1&nbsp;=public&nbsp;&nbsp;class&nbsp;\r\n&nbsp;&nbsp;private&nbsp;\r\n&nbsp;&nbsp;public&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;[CommandMethod(&#39;GetPointsFromUser&#39;)]&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;class&nbsp;method&nbsp;GetPointsFromUser;&nbsp;\r\n&nbsp;&nbsp;end;&nbsp;\r\nimplementation&nbsp;\r\nclass&nbsp;method&nbsp;Class1.GetPointsFromUser;&nbsp;\r\nvar&nbsp;\r\n&nbsp;&nbsp;acDoc:Document;&nbsp;\r\n&nbsp;&nbsp;acCurDb:Database;&nbsp;&nbsp;\r\n&nbsp;&nbsp;pPtRes:PromptPointResult;&nbsp;\r\n&nbsp;&nbsp;pPtOpts:PromptPointOptions;&nbsp;\r\n&nbsp;&nbsp;ptStart:Point3d;&nbsp;\r\n&nbsp;&nbsp;ptEnd:Point3d;&nbsp;\r\n&nbsp;&nbsp;acTrans:Transaction;&nbsp;\r\n&nbsp;&nbsp;acBlkTbl:BlockTable;&nbsp;\r\n&nbsp;&nbsp;acBlkTblRec:BlockTableRecord;&nbsp;\r\n&nbsp;&nbsp;acLine:Line;&nbsp;\r\nbegin&nbsp;&nbsp;\r\n&nbsp;&nbsp;\/\/\u83b7\u5f97\u5f53\u524d\u6570\u636e\u5e93\u5e76\u542f\u52a8\u4e8b\u52a1\u7ba1\u7406\u5668&nbsp;&nbsp;&nbsp;&nbsp;Get&nbsp;the&nbsp;current&nbsp;database&nbsp;and&nbsp;start&nbsp;the&nbsp;Transaction&nbsp;Manager&nbsp;\r\n&nbsp;&nbsp;acDoc:=&nbsp;Application.DocumentManager.MdiActiveDocument;&nbsp;\r\n&nbsp;&nbsp;acCurDb:=&nbsp;acDoc.Database;&nbsp;\r\n&nbsp;&nbsp;pPtOpts:=&nbsp;New&nbsp;PromptPointOptions(&#39;&#39;);&nbsp;&nbsp;\r\n&nbsp;&nbsp;\/\/\u63d0\u793a\u5f00\u59cb\u70b9&nbsp;&nbsp;&nbsp;Prompt&nbsp;for&nbsp;the&nbsp;start&nbsp;point&nbsp;\r\n&nbsp;&nbsp;pPtOpts.Message&nbsp;:=&nbsp;#13+&nbsp;&#39;Enter&nbsp;the&nbsp;start&nbsp;point&nbsp;of&nbsp;the&nbsp;line:&nbsp;&#39;;&nbsp;\r\n&nbsp;&nbsp;pPtRes&nbsp;:=&nbsp;acDoc.Editor.GetPoint(pPtOpts);&nbsp;\r\n&nbsp;&nbsp;ptStart:=&nbsp;pPtRes.Value;&nbsp;&nbsp;\r\n&nbsp;&nbsp;\/\/\u5982\u679c\u7528\u6237\u6309\u4e86&nbsp;ESC&nbsp;\u952e\u6216\u53d6\u6d88\u4e86\u547d\u4ee4\u5c31\u9000\u51fa&nbsp;&nbsp;&nbsp;Exit&nbsp;if&nbsp;the&nbsp;user&nbsp;presses&nbsp;ESC&nbsp;or&nbsp;cancels&nbsp;the&nbsp;command&nbsp;\r\n&nbsp;&nbsp;If&nbsp;pPtRes.Status&nbsp;=&nbsp;PromptStatus.Cancel&nbsp;Then&nbsp;Exit;&nbsp;\r\n&nbsp;&nbsp;\/\/\u63d0\u793a\u7ed3\u675f\u70b9&nbsp;\r\n&nbsp;&nbsp;pPtOpts.Message&nbsp;:=#13+&#39;Enter&nbsp;the&nbsp;end&nbsp;point&nbsp;of&nbsp;the&nbsp;line:&#39;;&nbsp;\r\n&nbsp;&nbsp;pPtOpts.UseBasePoint:=True;&nbsp;\r\n&nbsp;&nbsp;pPtOpts.BasePoint:=ptStart;&nbsp;\r\n&nbsp;&nbsp;pPtRes&nbsp;:=&nbsp;acDoc.Editor.GetPoint(pPtOpts);&nbsp;\r\n&nbsp;&nbsp;ptEnd:=&nbsp;pPtRes.Value;&nbsp;\r\n&nbsp;&nbsp;If&nbsp;pPtRes.Status&nbsp;=&nbsp;PromptStatus.Cancel&nbsp;Then&nbsp;Exit;&nbsp;&nbsp;\r\n&nbsp;&nbsp;\/\/\u542f\u52a8\u4e00\u4e2a\u4e8b\u52a1&nbsp;\r\n&nbsp;&nbsp;try&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acTrans:=&nbsp;acCurDb.TransactionManager.StartTransaction;&nbsp;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u4ee5\u5199\u7684\u65b9\u5f0f\u6253\u5f00\u6a21\u578b\u7a7a\u95f4&nbsp;\r\n&nbsp;&nbsp;acBlkTbl&nbsp;:=&nbsp;acTrans.GetObject(acCurDb.BlockTableId,OpenMode.ForRead)&nbsp;as&nbsp;BlockTable;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acBlkTblRec&nbsp;:=&nbsp;acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],&nbsp;OpenMode.ForWrite)&nbsp;as&nbsp;BlockTableRecord;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u5b9a\u4e49\u65b0\u7684\u76f4\u7ebf&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acLine:=&nbsp;New&nbsp;Line(ptStart,&nbsp;ptEnd);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acLine.SetDatabaseDefaults;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u6dfb\u52a0\u76f4\u7ebf\u5230\u56fe\u5f62\u4e2d\u53bb&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acBlkTblRec.AppendEntity(acLine);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acTrans.AddNewlyCreatedDBObject(acLine,&nbsp;True);&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7f29\u653e\u5230\u56fe\u5f62\u7684\u8303\u56f4\u6216\u754c\u9650&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acDoc.SendStringToExecute(&#39;._zoom&nbsp;_all&nbsp;&#39;,&nbsp;True,&nbsp;False,&nbsp;False);&nbsp;\r\n&nbsp;&nbsp;finally&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u63d0\u4ea4\u4fee\u6539\u5e76\u9500\u6bc1\u4e8b\u52a1&nbsp;\r\n&nbsp;&nbsp;&nbsp;&nbsp;acTrans.Commit;&nbsp;\r\n&nbsp;&nbsp;end;&nbsp;\r\nend;&nbsp;\r\nend.<\/pre>\n<p><\/p>\n<p>\u3000\u3000\u540e\u8bb0\uff1a\u5728\u7ffb\u8bd1\u8fd9\u4e00\u6bb5\u4ee3\u7801\u7684\u8fc7\u7a0b\u4e2d\uff0c\u51fa\u73b0\u4e86\u4e00\u4e2a\u975e\u59d4\u6258\u7684\u9519\u8bef\uff0c\u539f\u56e0\u662f\u6211\u5728\u7ffb\u8bd1\u7684\u65f6\u5019\u5c06\u4e0b\u4e24\u884c\u4ee3\u7801&nbsp;<\/p>\n<p><\/p>\n<p><\/p>\n<p>&nbsp; acBlkTbl := acTrans.GetObject(acCurDb.BlockTableId,OpenMode.ForRead) as BlockTable;&nbsp;<\/p>\n<p>&nbsp; acBlkTblRec := acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],OpenMode.ForWrite) as BlockTableRecord;&nbsp;<\/p>\n<p>\u4e2d\u7684as BlockTable\u548cas BlockTableRecord\u4e24\u4e2a\u8fd0\u7b97\u53bb\u6389\uff0c\u52a0\u4e0a\u8fd9\u4e24\u4e2a\u4ee5\u540e\u5c31\u6b63\u5e38\u4e86\u3002&nbsp;<\/p>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3000\u3000GetPoint \u65b9\u6cd5\u63d0\u793a\u7528\u6237\u5728 AutoCAD \u547d\u4ee4\u63d0\u793a\u4e0b\u7ed9\u51fa\u70b9\u7684\u5b9a\u4e49\u3002PromptPointOptio [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":36146,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[193],"tags":[194,210,211],"_links":{"self":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36203"}],"collection":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=36203"}],"version-history":[{"count":1,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36203\/revisions"}],"predecessor-version":[{"id":36204,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36203\/revisions\/36204"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/media\/36146"}],"wp:attachment":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=36203"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=36203"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=36203"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}