利用vb对cad的二次开发技术绘制地层剖面柱状图

《利用vb对cad的二次开发技术绘制地层剖面柱状图》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、利用VB对CAD的二次开发技术绘制地层剖面柱状图(1)邓巍（陕西省煤田地质局一八五队，陕西榆林719000）时间：2010-12-289:59:04点击：542摘要：地质勘探工程技术人员在绘图时，常使用重复的手工作业，不但乏味而且工作效率低，绘图精度不高而且容易出现错误。利用vb对cad的开发技术，可以为广大工程绘图人员提供更加简洁、快速、高效的制图技术和方法。关键词：vb；autocad；二次开发；地层剖面柱状图中图分类号：tp391.72  文献标识码：a  文章编号：1007-9599 （2010） 13-0000-02using v

2、b as the secondary development of cad technology to draw histogram stratigraphic sectiondeng wei(shaanxi coalfield geology bureau,185 troop,yulin  719000,china)abstract:the geotechnical engineering and technical personnel in the drawing,often with repetitive manual work,no

3、t only tedious and low efficiency,mapping accuracy is not high and prone to error.using vb for development of cad technology to provide engineering drawings for the majority of more compact,fast and efficient mapping technology and methods.keywords:vb;autocad;secondary dev

4、elopment;stratigraphic section histogramautocad具有开放的体系结构，是一种极其灵活的应用系统，用户可以通过编程的方式对其进行定制，它允许用户和开发者采用各种方法对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。对于地质工作者来说，经常要绘制地层剖面图，传统的方法是利用专业的绘图软件（如：autocad、mapgis等）完成，在制图过程中，每个字、每条线都要通过手工一步一步完成，效率低、工作量大。目前为止还没有发现能够自动绘制地层剖面的地质专业软件，本人通过这几年的研究发现，利用vb

5、对cad的二次开发，完全可以解决这一问题，使得绘图地层剖面图更加程序化、自动化，大大提高了绘图效率和绘图精度。本文以vb6为开发环境对autocad2004进行二次开发，通过简单的数据输入，自动在cad中绘制各种比例的地层剖面图，目地是通过本文，对地质专业或相关专业的软件开发人员起到抛砖引玉的作用。一、开发思路vb与autocad的连接方法是通过访问autocad的根对象和文档对象来实现对autocad的访问，通过vb开发的autocad程序可以编译成独立的执行程序，具有执行速度快、编辑方便、图形显示可控等特点。绘制地层剖面具体

6、的思路是：按照用户输入的厚度和底板深度值及用户选择的地层符号，按照一定的纵向比例尺在autocad中自动绘图，生成地层剖面柱状图。（如下图）二、程序界面程序开发前首先，引用autocad2004 type library：在vb中选择“工程”→“引用”，在“引用”对话框中选择autocad2004 type library。其次，为应用程序（acadapp）和当前文档（acaddoc）分别定义变量，通常定义为全局变量。代码如下：dim acadapp as acadapplicationdim acaddoc as acaddocument

7、然后设计vb界面，包括柱子名称、柱子宽度、偏移量、纵向比例、岩性、厚度、底板深度等输入及选择项目，设置在cad中绘图、显示cad、关闭cad、保存文件、退出等按钮。（如下图）三、程序代码dim acadapp as acadapplicationdim acaddoc as acaddocumentprivate sub command1_click（）’标注孔号dim textobj as acadtextdim textstring as stringdim insertionpoint（0 to 2） as doubledim hei

8、ght as double    textstring=text1.text    insertionpoint（0）=0    insertionpoint（1）=5    i