{"id":36216,"date":"2012-04-08T00:14:05","date_gmt":"2012-04-07T16:14:05","guid":{"rendered":"http:\/\/www.lanmaowang.com\/?p=36216"},"modified":"2015-04-01T23:21:14","modified_gmt":"2015-04-01T15:21:14","slug":"delphi-secondary-development-of-autocad-d-access-object-hierarchy","status":"publish","type":"post","link":"http:\/\/www.lanmaowang.com\/?p=36216","title":{"rendered":"Delphi\u4e8c\u6b21\u5f00\u53d1AutoCAD\uff08\u56db\uff09\u2014\u8bbf\u95ee\u5bf9\u8c61\u5c42\u6b21\u7ed3\u6784"},"content":{"rendered":"

\u4eceDelphi<\/span>\u7a0b\u5e8f\u5185\u8bbf\u95ee\u5bf9\u8c61\u5c42\u6b21\u7ed3\u6784\u9996\u5148\u5fc5\u987b\u8981\u8fde\u63a5\u5230\u5e94\u7528\u7a0b\u5e8f\u3002Delphi<\/span>\u901a\u8fc7 ActiveDocument <\/span>\u5bf9\u8c61\u63d0\u4f9b\u6307\u5411\u5f53\u524d AutoCAD <\/span>\u4efb\u52a1\u4e2d\u6d3b\u52a8\u56fe\u5f62\u7684\u94fe\u63a5\u3002\u4f7f\u7528ActiveDocument<\/span>\uff0c\u7528\u6237\u53ef\u4ee5\u5feb\u901f\u8bbf\u95ee\u5f53\u524d\u7684 Document <\/span>\u5bf9\u8c61\u53ca\u5176\u6240\u6709\u65b9\u6cd5\u548c\u7279\u6027\uff0c\u8fd8\u53ef\u4ee5\u8bbf\u95ee\u5c42\u6b21\u7ed3\u6784\u4e2d\u7684\u6240\u6709\u5176\u4ed6\u5bf9\u8c61\u3002<\/span><\/p>\n

ActiveDocument <\/span>\u7528\u4e8e\u5168\u5c40\u5de5\u7a0b\u65f6\uff0c\u901a\u5e38\u662f\u6307 AutoCAD <\/span>\u4e2d\u7684\u6d3b\u52a8\u6587\u6863\u3002ActiveDocument<\/span>\u7528\u4e8e\u5185\u5d4c\u5de5\u7a0b\u65f6\uff0c\u901a\u5e38\u662f\u6307\u5305\u542b\u8be5\u5de5\u7a0b\u7684\u6587\u6863\u3002\u4f8b\u5982\uff0c\u5168\u5c40\u5de5\u7a0b\u4e2d\u7684\u4ee5\u4e0b\u4ee3\u7801\u884c\u5c06\u4fdd\u5b58 AutoCAD <\/span>\u4e2d\u5f53\u524d\u6d3b\u52a8\u7684\u6240\u6709\u56fe\u5f62\uff1a<\/span><\/p>\n

procedure Tfrm_AutoCAD.bt_saveClick(Sender: TObject);<\/span><\/p>\n

begin<\/span><\/p>\n

acad:=GetActiveOleObject('AutoCAD.Application.17')as AcadApplication;<\/span><\/p>\n

acad.ActiveDocument.Save;<\/span><\/p>\n

end;<\/span><\/p>\n

3.1 <\/span><\/strong>\u5f15\u7528\u5bf9\u8c61\u5c42\u6b21\u7ed3\u6784\u4e2d\u7684\u5bf9\u8c61<\/span><\/strong><\/p>\n

\u7528\u6237\u53ef\u4ee5\u76f4\u63a5\u6216\u901a\u8fc7\u81ea\u5df1\u5b9a\u4e49\u7684\u53d8\u91cf\u6765\u5f15\u7528\u5bf9\u8c61\u3002\u8981\u76f4\u63a5\u5f15\u7528\u5bf9\u8c61\uff0c\u8bf7\u5c06\u5bf9\u8c61\u5305\u542b\u5728\u8c03\u7528\u5c42\u6b21\u7ed3\u6784\u4e2d\u3002\u4f8b\u5982\uff0c\u4e0b\u5217\u8bed\u53e5\u5728\u6a21\u578b\u7a7a\u95f4\u4e2d\u6dfb\u52a0\u4e00\u6761\u76f4\u7ebf\u3002\u8bf7\u6ce8\u610f\uff0c\u5c42\u6b21\u7ed3\u6784\u4eceActiveDocument<\/span>\u5f00\u59cb\uff0c\u518d\u8f6c\u5230ModelSpace<\/span>\u5bf9\u8c61\uff0c\u7136\u540e\u8c03\u7528AddLine<\/span>\u65b9\u6cd5\uff1a<\/span> <\/span><\/p>\n

<\/span><\/p>\n

procedure Tfrm_AutoCAD.bt_addlineClick(Sender: TObject);\r\nvar\r\nvpoint1,vpoint2:OleVariant; \/\/\u5b9a\u4e49\u6570\u7ec4\u53d8\u91cf\uff0c\u5b58\u50a8\u5750\u6807\u503c\r\nbegin\r\n  acad:=GetActiveOleObject('AutoCAD.Application.17')as AcadApplication;\r\n  \/\/acad.ActiveDocument.Save;\r\n  vpoint1:=VarArrayCreate([0,2],varDouble);\/\/\u8d77\u70b9\r\n  vpoint2:=VarArrayCreate([0,2],varDouble);\/\/\u7ec8\u70b9\r\n  vpoint1[0]:=10;  \/\/X\u5750\u6807\u8d77\u70b9\r\n  vpoint1[1]:=30;  \/\/Y\u5750\u6807\u8d77\u70b9\r\n  vpoint1[2]:=0;   \/\/Z\u5750\u6807\u8d77\u70b9\r\n \r\n  vpoint2[0]:=100;  \/\/X\u5750\u6807\u7ec8\u70b9\r\n  vpoint2[1]:=100;  \/\/Y\u5750\u6807\u7ec8\u70b9\r\n  vpoint2[2]:=0;    \/\/Z\u5750\u6807\u7ec8\u70b9\r\n  acad.ActiveDocument.ModelSpace.AddLine(vpoint1,vpoint2);\r\nend;<\/pre>\n\u8fd0\u884c\u7ed3\u679c\u5982\u56fe\u6240\u793a\uff1a<\/span><\/p>\n
<\/p>\n
\u8981\u901a\u8fc7\u7528\u6237\u5b9a\u4e49\u7684\u53d8\u91cf\u5f15\u7528\u5bf9\u8c61\uff0c\u8bf7\u9996\u5148\u5c06\u53d8\u91cf\u5b9a\u4e49\u4e3a\u6240\u9700\u7c7b\u578b\uff0c\u7136\u540e\u8bbe\u7f6e\u4e3a\u76f8\u5e94\u7684\u5bf9\u8c61\u3002\u4f8b\u5982\uff1a\u68c0\u7d22\u6a21\u578b\u7a7a\u95f4\u4e2d\u7684\u7b2c\u4e00\u4e2a\u56fe\u5143<\/span><\/p>\n
\u672c\u4f8b\u8fd4\u56de\u6a21\u578b\u7a7a\u95f4\u4e2d\u7684\u7b2c\u4e00\u4e2a\u56fe\u5143\u5bf9\u8c61\uff0c\u7c7b\u4f3c\u7684\u4ee3\u7801\u8fd8\u53ef\u4ee5\u7528\u6765\u68c0\u7d22\u56fe\u7eb8\u7a7a\u95f4\u4e2d\u7684\u7b2c\u4e00\u4e2a\u56fe\u5143\u3002\u6ce8\u610f\uff1a\u53ef\u4ee5\u5c06\u6240\u6709\u7684\u56fe\u5f62\u5bf9\u8c61\u5b9a\u4e49\u4e3a AcadEntity <\/span>\u5bf9\u8c61\uff1a<\/span><\/p>\n
<\/span><\/p>\n
procedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  entity:AcadEntity;\r\n  duixiang:string;\r\n  acad:acadapplication;\r\nbegin\r\n  try\r\n    acad:=GetActiveOleObject('AutoCAD.Application.17')as AcadApplication;\r\n    \/\/\u83b7\u5f97\u6d3b\u52a8\u7684CAD\u5bf9\u8c61\r\n    If  acad.ActiveDocument.ModelSpace.Count <> 0 Then\r\n      begin\r\n        entity:=acad.activedocument.ModelSpace.Item(0);\r\n        duixiang:=entity.ObjectName;\r\n        ShowMessage(duixiang);\r\n      end\r\n    else\r\n      begin\r\n        MessageBox(Handle,'\u6ca1\u6709\u4efb\u4f55\u56fe\u5143\uff01','\u63d0\u793a',MB_OK+MB_iconinformation);\r\n      end;\r\n  except\r\n    MessageBox(Handle,'AutoCAD\u6ca1\u6709\u8fd0\u884c','\u63d0\u793a',MB_OK+MB_iconinformation);\r\n  end;\r\nend;<\/pre>\n\u5728AutoCAD<\/span>\u4e2d\u7ed8\u5236\u56fe\u5f62\uff0c\u5728\u6b64\u4f8b\u5b50\u5f53\u4e2d\u6211\u4eec\u7ed8\u5236\u4e86\u4e24\u4e2a\u56fe\u5f62\uff0c\u7b2c\u4e00\u4e2a\u4e3a\u5706\uff0c\u7b2c\u4e8c\u4e2a\u4e3a\u76f4\u7ebf\u3002\u8fd0\u884c\u7ed3\u679c\u5982\u4e0b\uff1a<\/span><\/p>\n
<\/p>\n
3.1 <\/span><\/strong>\u8bbf\u95ee Application \u5bf9\u8c61<\/span><\/strong><\/p>\n
\u901a\u8fc7ActiveDocument<\/span>\u5bf9\u8c61\u7684 Application <\/span>\u7279\u6027\u53ef\u4ee5\u8bbf\u95ee Application <\/span>\u5bf9\u8c61\u3002\u5728\u5bf9\u8c61\u5c42\u6b21\u7ed3\u6784\u4e2d\uff0cApplication <\/span>\u5bf9\u8c61\u4f4d\u4e8eDocument<\/span>\u5bf9\u8c61\u7684\u4e0a\u65b9\u3002<\/span><\/p>\n
\u4f8b\u5982\uff0c\u4ee5\u4e0b\u4ee3\u7801\u884c\u53ef\u4ee5\u66f4\u65b0\u5e94\u7528\u7a0b\u5e8f\uff1a<\/span><\/p>\n
acad.ActiveDocument.Application.Update;<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"
\u4eceDelphi\u7a0b\u5e8f\u5185\u8bbf\u95ee\u5bf9\u8c61\u5c42\u6b21\u7ed3\u6784\u9996\u5148\u5fc5\u987b\u8981\u8fde\u63a5\u5230\u5e94\u7528\u7a0b\u5e8f\u3002Delphi\u901a\u8fc7 ActiveDocu […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[193],"tags":[194,198,211],"_links":{"self":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36216"}],"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=36216"}],"version-history":[{"count":1,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36216\/revisions"}],"predecessor-version":[{"id":36217,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36216\/revisions\/36217"}],"wp:attachment":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=36216"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=36216"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=36216"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}