论文首页
代写论文
代发论文
论文搜索:
www
热门:代写论文 |代写职称论文|期刊导航|代写留学生论文
 
当前位置:论文首页 >> 计算机论文 >> AUTOCAD VBA在地形图及断面图成图中的应用

AUTOCAD VBA在地形图及断面图成图中的应用 (1)

2011-04-19 11:02:59  作者:  来源:互联网  文字大小:【】【】【
简介:一、前言   现在有很多绘制地形图以及平断面图的软件,地形图软件一般是在Autocad的平台上进行二次开发。平断面图则一般通过软件的操作平台,根据其数据文件生成可读写的DXF文件或是DWG文件,如道亨软件在图生 ...
定制论文   发表论文

一、前言 
  现在有很多绘制地形图以及平断面图的软件,地形图软件一般是在Autocad的平台上进行二次开发。平断面图则一般通过软件的操作平台,根据其数据文件生成可读写的DXF文件或是DWG文件,如道亨软件在图生成后常常还要进行必要的修改,修改中常常要进行重复繁琐的操作,对此利用VBA语言可以帮助我们完成这些工作。 
  二、地形图中的应用 
  (一)地形图的等高线失真原因 
  在测量的过程中,对于高差起伏比较大的地形,在内业过程中要进行等高线的绘制,但是在等高线的绘制过程中,读入原始测量数据建立DTM,三角网构建方式采用算法如图1所示: 
  1、在所采集的离散点中任意找一点,然后查找距此点最近的点,连接后作为初始基线。 
  2、在初始基线右侧搜寻第三点,具体的做法是:在初始基线右侧的离散点中查找距此基线距离最短的点,作为第三点。 
  3、生成Delaunay 三角形,再以三角形的两条新边(从基线起始点到第三点以及第三点到基线终止点)作为新的基线。 
  4、重复步骤2、3直至所有的基线处理。 
  因此三角网的连接的随机性、测量人员的跑点方式和实际地形的复杂程度共同造成了地形图的失真。如图2所示红色集水线所示为真实的沟底的走向,由于立尺人经验欠缺或是失误在没有E点采集数据,因此形成了图中B点与D点成一个深坑的形状,造成了地形图的失真,而用手工去修剪这样复杂的等高线常常需要修改三角网,但因为采用的线型及整体因素变得非常复杂而工作量相当的大。 
  (二)编写程序的过程 
  为了提高内业的工作效率,本人利用文件写入测量的原始数据,并利用软件重新绘制等高线。本人利用VBA读写测量的原始数据文件的,编制一个子过程即宏运行,编写的思路如下: 
  pfile = UserForm1.dd.FileName ‘调用一个窗体对话框,选择测量原始数据并进行文件写入 
  If pfile = "" Then 
  Exit Sub 
  End If 
  ThisDrawing.Utility.InitializeUserInput 0, "0 1 2 3"‘在CAD 命令提示行里选择坐标值位数 
  options = ThisDrawing.Utility.GetKeyword(vbCrLf & "选择坐标值的保留位数[零位(0)/一位(1)二位(2)/三位(3)]:") 
  pa = ThisDrawing.Utility.GetString(0, vbCrLf & "请你输入起始位置编号:") 
  ’输入测量原始数据的序号 
  Open pfile For Append As #1 
  On Error GoTo dd
[1] [2]

责任编辑:lw66

定制论文   发表论文


 

最新论文

更多

· 浅谈低压抽出式开关柜结...
· 中国高铁技术创新浅谈
· AUTOCAD VBA在地形图及断...
· 客运专线区间通过能力计...
· 基于图像工程的涉密文件...
· 电力高级应用软件在阳江...
· 当代中国行政领导本质的解读
· 中国电力行业垄断高价和...
· 驴传染性胸膜肺炎的防治等
· 2011年吉林省农产品质量...

推荐论文

更多

· 浅谈低压抽出式开关柜结...
· 中国高铁技术创新浅谈
· AUTOCAD VBA在地形图及断...
· 客运专线区间通过能力计...
· 基于图像工程的涉密文件...
· 电力高级应用软件在阳江...
· 当代中国行政领导本质的解读
· 中国电力行业垄断高价和...
· 驴传染性胸膜肺炎的防治等
· 2011年吉林省农产品质量...

热门论文

更多

· 调整农机化发展结构 加快...
· 多措并举 做好农情信息建...
· 2011年吉林省农产品质量...
· 建立适应我国政府管理体...
· 统计思想演化的哲学思考
· 破茧化蝶 寻求我省兔业产...
· 务实创新农机监理工作 保...
· 建立农业科技示范园区 全...
· 能源农业:替代能源的新方向
· 能源领域的“新宠” ——...