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

利用VB对CAD的二次开发技术绘制地层剖面柱状图(1) 邓巍 （陕西省煤田地质局一八五队，陕西榆林 719000） 时间：2010-12-28 9:59:04 点击：542 摘要：地质勘探工程技术人员在绘图时，常使用重复的手工作业，不但乏味而且工作效率低，绘图精度不高而且容易出现错误。利用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?manual?work,not?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?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界面，包括柱子名称、柱子宽度、偏移量、纵向比例、岩性、厚度、底板深度等输入及选择项目，设置在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 ????te