基于AutoCAD二次开发的矿山软件功能实现.pdfVIP

SerialNo．544 现代矿业 总第5“期 MODERNMINING 2014年8月第8期 August．2014 基于AutoCAD二次开发的矿山软件功能实现 芦 磊 (云南锡业股份有限公司大屯锡矿) 摘要为了满足矿山实际工作需要，通过采用VBA编写相应程序，对AutoCAD进行二次开 发。实现了部分矿山地质、矿山工程辅助功能，对于降低矿山技术人员工作难度，提高工作效率具有 一定的作用。 关键词 AutoCAD二次开发VBA矿山地质功能矿山工程辅助功能 AutocAD作为一款在机械制图、建筑设计等方 2程序代码及功能实现 面常用的专业软件，具有操作灵活、制图速度快等特 2．1 程序代码 点，广泛应用于矿山工程制图。但AutoCAD相对 根据不同的专业需求，分别编写程序实现相应 M印GIs等软件而言，在使用的过程中，无法满足一的功能，并通过加载工具栏进行运行。程序能够自 些较为专业的功能需求。因此，结合矿山实际工作 动判断电脑使用的AutoCAD和Omce软件版本，引 用相应的库文件，进行初始化，并生成工具栏以供使 需要，采用VBA语言对AutoCAD进行二次开发，对 一些矿山地质和矿山工程辅助功能进行了实现。 用，部分代码如下： In 1开发工具的选择 ForEachref AutoCAD常用的开发工具有Auto“sp／Visual VBProjects(1)．References Ifref．Name=”Excel”Then Lisp，ObjectARx、VBA等，其中，ObjectARX对Auto— CAD有着最深入的控制能力，运行效率最高，能够 Ifref．isbrokenThen 访问许多AutocAD许多底层的工具。但需要编程 人员对C／c++语言有着较高的要求，且开发时间 ref Pmjects(1)．References．Remove 较长，因此，矿山工程技术人员使用C／C++语言难 Else 度相对较大。 bolFindAdo=True ExitFor Auto“sp／Visual“sp脚本语言相对于C／C++ 较易学习，有着大量的Lisp程序库可以参照，降低了 EndIf 编程的难度。但与。伍ce和数据库交互比较繁琐，难 EndⅡ 以适应矿山工程中所涉及的大量繁琐的计算任务。 Next Autodesk公司从AutoCADR14．01版开始，内 IfbolFindAdo=FWseThen VisualBasicfor = 置了VBA(Micmsoft Application)开If Automation对象模型。 发工具，同时提供了Activex ”15”r1111en’引用Excel2013类库’ VBA语言的学习难度最低，通过SendCommand方法 可以使用Aut0Lisp代码，获得其图形操作的优