- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
软件AutoCAD2002中应用接口的实现
维普资讯
第 加卷第 2期 广东工业大学学报 V01.加 No.2
2OO3年 6月 u皿 Q瑚 d0唱 Ul蛐 旺 June 2003
软件 AutoCAD2002中应用接 口的实现
韩 静
(韶关职工大学 ,广东 韶关 512031)
摘要:4t绍 了如何更加有效地利用计算机辅助设计软件 Al—t0CAD20吆来开发机械设计辅助工具 ,最
大程度地提高机械设计效率 .
关键词 :辅助设计 ;应用接 口;辅助设计工具 ;OLE;效率
中图分类号 :TP391.72 文献标识码 :A 文章编号 :1007-7162(20(B)02~
AutoDesk公司的AutoCAD以其功能强大和使用方便赢得了广大用户的青睐 ,特别是在机械
设计和建筑设计 中更有突出表现 .现在 的常用版本是 AutoCAD2OO2,其本身提供了强有力 的
OLE接 口,让应用者能够根据 自身实际应用情况来开发出有效的辅助设计工具 ._如果能充分利
用 AutoCAD2O02所提供的 OLE二次开发接 口开发出结合 自身实际应用的工具程序,则更能使
现有机械设计工作锦上添花.下面就详细论述如何用 D~lphi6.0开发 AutoCAD2OO2应用程序的
相关技术和接 口.
1 开发流程介绍
要进行有效的开发 ,可按下列步骤进行 :
1)收集相关机械基础资料 ,比如标准图纸的各种尺寸、各类公差数值、形位公差数值 、焊缝
符号标注方法 、紧固件的图示方法等,必要的常用图做成 图块 ,存成文件 ,比如 A0、Al、A2、A3、
A4图纸 ,焊缝类型符号等;固定数值存成数据库 ,比如公差数据 ,紧固件标准尺寸系列等.
2)掌握 AutoCAD2OO2中提供的OLE接 口,做出接 口程序 .OLE即对象链接与嵌人 ,是一种
数据交换技术 ,它能使两个或多个程序达到数据共享或交换的 目的.这里就是要利用 OLE技术
在 AutoCAD2O02和 Delphi6.0之间交换数据 .所 以这也是整个开发过程中的关键所在 .
3)通过 Delphi6.0中的可视化编程技术做出人机友好的程序执行界面,结合前面收集的数
据 ,调用编好的接 口过程 ,完成实际的写人过程 ,即先连接到AutoCAD2OO2,完成程序功能 ,然后
断开到 AutoCAD2OO2的连接 .
下面就最为关键的第二步的实现过程作一个详细的介绍 .
2 制作接 口程序
AutoCKD2OO2中每一个实体都是一个对象 ,每一个对象又有很多方法和属性 .它的OLE对
象在接 口中提供了这些方法和属性 .我们在程序中要调用这些方法和属性来实现我们的 目的.
具体实现过程如下 :
收稿 日期 :2003-01.10
作者筒介 :韩静 (1973.),女 ,教师,主要研究方向为计算机应用 .
维普资讯
第 2期 韩 静 :软件 AutoCAD2OO2中应用接 口的实现 3l
1)首先要连接到 AutoCAD2O02,建立 AutoCAD2O02OLE对象,这里用 GetActiveOLEObject函
数得到其 OLE程序变量 ,在此基础上利用其属性分别得到 AutoCAD2O02当前文件对象、图纸空
间对象以及模型空间对象 .可做出程序子过程如下 :
公用变量 (全局变量):
Acad2002,Acad2002Doc,Acad2002moSpaee,Acad2002paSpace:Variant;
Acad2D02IsLinked:Boolean;
//连接到 AutoCAD2002子过程
FunctionLinkToAcad2002:Boolean;
Begin
Result:=True; .
文档评论(0)