[转帖][分享]应用ActiveX Automation技术进行AutoCad的开发
<p>在这个帖子<a href="http://www.bccn.net/Article/kfyy/vb/jszl/200512/1752.html">http://www.bccn.net/Article/kfyy/vb/jszl/200512/1752.html</a>中，有VB调用autocad的详细描述。</p><p>Autodesk公司的AutoCad软件广泛的应用于建筑、机械等设计领域。众所周知，AutoCad是一种极其灵活的应用系统，用户可以通过编程的方式对其进行定制。在以往的AutoCad系统开发中，最常用的是AutoLisp和ADS，但AutoLisp不如编程语言方便，在开发较大项目时力不从心，而ADS虽由功能强大的C语言编制，但较为复杂，不适应当前可视化编程的需要。幸运的是，在最新推出的AutoCad r14版本中，Autodesk公司对AutoCad本身加入了ActiveX自动化服务功能（ActiveX Automation server capabilities）,使得用户可以通过可视化编程工具，如Visual Basic、Delphi等对AutoCad进行系统开发，极大的提高了工作效率。在最近为建筑公司开发的一套建筑施工三维演示系统中，我们采用AutoCad为平台，Visual Basic为编程工具，成功的应用ActiveX对AutoCad进行了二次开发。本文将从编程实践的角度对使用VB对AutoCad控制的技术及遇到的问题进行简要的说明。 <br/><br/>一、 AutoCad的对象模型(AutoCad Object Model) <br/><br/> 如果一个应用程序支持自动化，那么其他应用程序就可以通过其暴露的对象（Object）对其自动操作。在本例中，我们开发的程序为客户机，AutoCad是服务器，应用程序正是通过对AutoCad暴露的各级对象进行操作而控制AutoCad工作的。对象本身包含自己的方法和属性。通过方法可以实现对象的一些操作，而对象状态信息的收集或改变则是通过属性完成。例如，直线是AutoCad中的一个对象，它的属性可以是线形、起始点坐标、所在层等性质，方法则有拷贝、镜像等操作。 <br/> 理解AutoCad的对象模型是对其编程的基础。AutoCad以层次结构组织对象。在顶层是Application对象（即AutoCad 本身），其他对象均为Application对象的子对象。在Application对象下面是Preferences（优先设置）和Document（文档）对象，通过Preferences对象可以对AutoCad Tools>Preferences菜单项中的几乎每一个选项进行访问和修改，以获取或改变AutoCad的优先设置。Document对象是控制AutoCad图形文件的直接对象，它代表某一个装入的CAD图形文件（一般设为当前激活的文件）。Document对象下面有Model Space（模型空间）和Paper Space（图纸空间）对象及Blocks(块)、Layers (层)、Plot（出图）、Selectionsets（选择集）、 views（视图）、 utility（功能）等一系列对象（集合），其含义与AutoCad中相似。Model Space是当前图形文件中图形实体，如直线、圆、多义线等的集合，每个实体即是一个对象，可通过属性和方法改变实体或生成新实体。对非图形实体，如层（layer）、线形（line type）等的访问则通过访问Document对象下面的相应的集合类型的子对象，如Layers 、LineTypes等来实现。集合类型的对象可以使用VB中所有的集合操作方法。Plot对象提供了访问Plot对话框中各选项的桥梁，使应用程序具有用不同方式控制AutoCad出图的能力。Utility对象使用户在AutoCad命令行与CAD交互成为可能，通过它可以处理整型、浮点型、字符型等用户输入，还可以接受点（Point）或角（Angle）等AutoCad的特殊量。 <br/><br/>二、 AutoCad对象的使用 <br/><br/> 在本节中，将结合我做项目得到的一些经验以例程的方式对AutoCad的常用对象及其使用进行讨论。 <br/> 1．开始一个应用程序 <br/> 如前所述，Application对象位于AutoCad层次对象结构的顶层，它代表AutoCad本身，用户的应用程序也理所当然从Appliction对象的建立开始。 <br/>Dim acadapp As Object '建立Application对象 <br/>Dim acaddoc As Object '建立Document对象 <br/>Dim mospace As Object '建立Model Space 对象 <br/>On Error Resume Next <br/>Set acadapp = GetObject(, "autocad.application") ‘若AutoCad <br/> 已启动,则直接得到 <br/>If Err Then <br/> Err.Clear <br/> Set acadapp = CreateObject("autocad.application") ‘若 <br/> AutoCad未启动，则运行它 <br/> If Err Then <br/> MsgBox Err.Description <br/> Exit Sub <br/> End If <br/>End If <br/>acadapp.Visible = True ‘使AutoCad可见 <br/>Set acaddoc = acadapp.ActiveDocument ‘设acaddoc为当前 <br/> 图形文件 <br/>Set mospace = acaddoc.ModelSpace ‘设mospace为当前图形 <br/> 文件的模型空间 <br/><br/>以上程序段是应用程序初始化的过程，一般对AutoCad图形文件的操作，主要是与Application、Document和Model Space等对象发生关系。 <br/> Application对象是一系列对象的父对象，可以通过它的属性设置来改变AutoCad的窗口设置。请看下面代码： <br/> acadapp.Top=100 '设置AutoCad窗口的位置 <br/> acadapp.Left=200 <br/> acadapp.Height=1000 '调整AutoCad窗口的大小 <br/> acadapp.Width=800 <br/> acadapp.Caption="my first application" '设置AutoCad窗口的 <br/> 标题 <br/> 通过Application对象的方法还可以方便的调入ADS或ARX程序，以利于各类程序的集成。其例程为： <br/>Dim arxname As string <br/>acadapp.LoadARX arxname ‘arxname即为调入的arx程序名（带 路径） <br/>2．通过Document对象对图形文件的操作 <br/>Document对象提供了大多数AutoCad的文件功能，可以通过它实现对文件的更新（New）、打开(Open)、输出(Export)、输入(Import)等操作,一般要先把Document对象设为Application对象的 ActiveDocument属性，以返回当前图形文件。 <br/>Set acaddoc=Application.ActiveDocument <br/><br/>请看下面的例子对文件的操作： <br/>Dim dwgname As String <br/>dwgname = "c:\acadr14\sample\campus.dwg" <br/>If Dir(dwgname) <> "" Then <br/> acaddoc.Open dwgname '打开一个CAD文件 <br/>Else <br/> acaddoc.new("acad") '以acad.dwt为模板建立一个新 <br/> 文件 <br/>End If <br/>Document对象还提供了两个十分有用的方法——SetVariable 和 GetVariable，通过它们可以得到或改变AutoCad的系统变量。 <br/>如：acaddoc.SetVariable "Orthomode", 1 '打开正交模式 <br/>dim cadver As String <br/>cadver=acaddoc.Getvariable("Acadver") '获取AutoCad的版本号 </p>
页:
[1]