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

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

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

2、pmentofcadtechnologytodrawhistogramstratigraphicsectiondengwei(shaanxicoalfieldgeologybureau,185troop,yulin719000,china)abstract:thegeotechnicalengineeringandtechnicalpersonnelinthedrawing,oftenwithrepetitivemanualwork,notonlytediousandlowefficiency,mappingaccuracyisnothighandpronetoerro

3、rusingvbfordevelopmentofcadtechnologytoprovideengineeringdrawingsforthemajorityofmorecompact,fastandefficientmappingtechnologyandmethods.keywords:vb;autocad;secondarydevelopment;stratigraphicsectionhistogramautocad具有开放的体系结构，是一种极其灵活的应用系统，用户可以通过编程的方式对其进行定制，它允许用户和开发者采用各种方法对其进行扩充和修改，即二次开发，能最

4、大限度地满足用户的特殊要求。对于地质工作者来说，经常要绘制地层剖面图，传统的方法是利川专业的绘图软件(如：autocad>mapgis等)完成，在制阁过程屮，每个字、每条线都要通过手工一步一步完成，效率低、工作量大。目前为止还没有发现能够自动绘制地层剖面的地质专业软件，本人通过这几年的研究发现，利川vb对cad的二次开发，完全可以解决这一问题，使得绘图地层剖而图更加程序化、自动化，人人提高了绘图效率和绘图精度。本文以vb6为开发环境对autocad2004进行二次开发，通过简单的数据输入，自动在cad中绘制各种比例的地层剖面图，目地是通过本文，对地质专业或相

5、关专业的软件开发人员起到抛砖引玉的作用。一、开发思路vb与autocad的连接方法是通过访问autocad的根对象和文档对象来实现对autocad的访问，通过vb开发的autocad程序可以编译成独立的执行程序，具有执行速度快、编辑方便、图形显示可控等特点。绘制地层剖而具体的思路是：按照用户输入的厚度和底板深度位及用户选择的地层符号，按照一定的纵叫比例尺在autocad中自动绘图，生成地层剖而柱状图。(如下图)二、程序界面程序开发前首先，引用autocad2004typelibrary:在vb巾选择“工程”->“引川”，在“引用”对话框巾选择autocad2004typ

6、elibrary<,其次，为应用程序(acadapp)和当前文档(acaddoc)分别定义变量，通常定义为全局变量。代码如下：dimacadappasacadapplicationdimacaddocasacaddocument然后设计vb界面，包括柱子名称、柱子宽度、偏移量、纵向比例、岩性、厚度、底板深度等输入及选择项R,设置在cad中绘图、显示cad、关闭cad、保存文件、退出等按钮。（如下图）三、程序代码dimacadappasacadapplicationdimacaddocasacaddocumentprivatesubcommand1_click()’标注孔

7、号_dimtextobjasacadtextdimtextstringasstringdiminsertionpoint(0to2)asdoubledimheightasdoubletextstring=text1.textinsertionpoint(0)=0insertionpoint(1)=5insertionpoint(2)=0height=3settextobj=acaddoc.modelspace.addtext(textstring,insertionpoint,height)acaddoc.regentrue’标注比例尺t