利用VB对A的二次开发技术绘制地层剖面柱状图.docVIP

利用VB对CAD的二次开发技术绘制地层剖面柱状图(1) 邓巍(陕西省煤田地质局一八五队，陕西榆林719000) 时间：2010-12-28 9:59:04 点击:542 地质勘探工程技术人员在绘图时，常使用重复的手工作业，不但乏味而II工作效率低，绘图精度不 高而且容易出现错误。利用Vb对cad的开发技术，可以为广大工程绘图人员提供更加简洁、快速、高效 的制图技术和方法。 关键词：vb; autocad；二次开发；地层剖面柱状图 :tp391.72 a 1007-9599 (2010) 13-0000-02 using vb as the secondary development of cad technology to draw histogram stratigraphic section deng wei (shaanxi coalfield geology bureau,185 troop,yulin 719000,china) abstract:the geotechnical engineering and technical personnel in the drawing,often with repetitive manu al work,not only tedious and low efficiency,mapping accuracy is not high and prone to errorusing vb for development of cad technology to provide engineering drawings for the majority of more compact,fast a nd efficient mapping technology and methods. keywords:vb;autocad;secondary development;stratigraphic section histogram autocad具有开放的体系结构，是一种极其灵活的应用系统，用户可以通过编程的方式对其进行定制，它 允许用户和开发者采用各种方法对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。 对于地质工 来说，经常要绘制地层剖面图，传统的方法是利川专业的绘图软件(如：autocad mapgis 等)完成，在制阁过程屮，每个字、每条线都要通过手工一步一步完成，效率低、工作量大。目前为止还 没有发现能够自动绘制地层剖面的地质专业软件，本人通过这几年的研究发现，利川vb对cad的二次开 发，完全可以解决这一问题，使得绘图地层剖而图更加程序化、自动化，人人提高了绘图效率和绘图精度。 BR p 本文以vb6为开发环境对autocad2004进行二次开发，通过简单的数据输入，自动在cad中绘制各种比 例的地层剖面图，目地是通过本文，对地质专业或相关专业的软件开发人员起到抛砖引玉的作用。 一、开发思路 vb与autocad的连接方法是通过访问autocad的根对象和文档对象来实现对autocad的访问，通过vb开 发的autocad程序可以编译成独立的执行程序，具有执行速度快、编辑方便、图形显示可控等特点。绘制 地层剖而具体的思路是：按照用户输入的厚度和底板深度位及用户选择的地层符号，按照一定的纵叫比例 尺在autocad中自动绘图，生成地层剖而柱状图。(如下图) 二、程序界面 程序开发前首先，引用autocad2004 type library:在vb巾选择“工程”-“引川”，在“引用”对话框巾选择 autocad2004 type library,其次，为应用程序(acadapp)和当前文档(acaddoc)分别定义变量，通常 定义为全局变量。代码如下： dim acadapp as acadapplication dim acaddoc as acaddocument 然后设计vb界面，包括柱子名称、柱子宽度、偏移量、纵向比例、岩性、厚度、底板深度等输入及选择 项R,设置在cad中绘图、显示cad、关闭cad、保存文件、退出等按钮。（如下图） 三、程序代码 dim acadapp as acadapplication dim acaddoc as acaddocument private sub command1_click () ’标注孔号 _ dim textobj as acadtext dim textstring as string dim insertionpoint (0 to 2) as double dim height as double textstring=text1 .text insertionpoint (0) =0