信息技术论文发表范文钻孔符号的绘制.PDF

中国月期刊咨询网 信息技术论文发表范文钻孔符号的绘制 现在计算机上的绘图软件有很多，根据行业和不同的工作需要都有相应的软件来满足用户的需求。本文着重介绍的是 钻孔符号的绘制，应该用哪些软件，用到哪些技术等。文章是一篇信息技术论文发表范文。 摘要:介绍利用VB直接在AUTOCAD上展绘钻孔符号，并附上设计程序。 关键词:AutoCAD; VB 一、 前言 目前，市场上流行的图形矢量化软件有很多，如CASS7.0等，这些软件大都是针对各类比例尺的地形图进行矢量化， 带有各类地形图符号，对于大部分地形图矢量化可以满足要求，但对一些特殊要求的地形图矢量化却不适应，尤其是 对其符号库需要另外进行扩充。由于各种专业的设计需要通常要把勘察任务中地质所布置的勘察孔位绘制在地形图上 ，并附上孔号及高程。而在我们常用的绘图软件CASS7.0 中所要提供的绘制钻孔符号功能中并不附带孔号及高程，需要手工完成。这大大增加了绘图人员的工作负担。 二、 钻孔坐标展绘 AutoCAD得以在世界范围内流行的重要因素之一，是它的开放性，它将二次开发权交给了用户，并提供了许多开发 工具。而VB是由微软公司推出的基于 Windows的可视化编程语言，它采用面向对象、事件驱动的程序设计方法，操 作简便，因此倍受程序设计人员的青睐。下面就以如何展绘钻孔符号为例，介绍如何在 VB 6. 0环境下利用对ATUOCAD进行二次开发。 1、初始化。即要在VB中引用AutoCAD的类型库Acad.tlb，并建立VB与AutoCAD间的联系。相应的程序代码如下： Dim boo As Boolean On Error Resume Next If Err Then Err.Clear On Error Resume Next If Err Then Err.Clear MsgBox 不能运行AutoCAD,请检查是否安装!, vbOKOnly, 警告! Exit Sub End If End If obj_Acad.Visible = True 设置AutoCAD为可见(或者在后台运行,不可见) 中国月期刊咨询网 obj_Acad.Documents.Open (filename) 打开AutoCAD图形文件 Set obj_Doc = obj_Acad.ActiveDocument 获得当前活动图形文件，即刚打开的图形文件 Set obj_ModelSpace = obj_Doc.ModelSpace 获得当前活动图形文件的模型空间 boo = True 之后，即可以用AutoCAD类型库提供的属性、方法对AutoCAD进行操作，如画线，可用 InsertionPoint, 2)语句来实现。 2、数据格式及比例尺选择。为方便使用，钻孔数据文件的格式与CASS展控制点数据格式相同，比例尺即与所成地形 图比例尺相同，不同比例尺符号大小不同。格式及相关代码如下：点名,代码,东坐标,北坐标,高程 (图1钻孔数据格式) (图2选择数据格式界面) With CommonDialog2 .DialogTitle = 选择展点文件(点名,代码,东坐标,北坐标,高程) .Filter = CASS展点文件(*.DAT)|*.DAT 钻孔数据文件的格式为方便使用此格式与CASS展控制点数据格式相同 .ShowOpen If .filename = Then MsgBox 未选择展点文件!, vbOKOnly, 警告! Exit Sub End If If Dir(.filename) = Then MsgBox 未找到展点文件!, vbOKOnly, 警告! Exit Sub End If blnLyr = False 输入比例尺 Dim blc As String blc = InputBox(请输入比例尺500:1000:2000, 比例尺, 500) (图3输入比例尺) 3、数据文件的读取及钻孔展绘。为便于查找所绘钻孔，新建图层”ZK”，并根据前面输入的比例尺先绘制好钻孔符 号做成块，在从文件中顺序读取点号及高程并一起展绘出来。相关代码如下： 中国月期刊咨询网 For i = 0 To obj_Doc.Layers.Count - 1 遍历所有的图层 If obj_Doc