Excel在CAD绘断面图
利用EXCEL在AutoCAD中快速绘图

利用EXCEL在AutoCAD中快速绘图利用EXCEL在AutoCAD中快速绘图CAD的绘图其实是执行命令,因此当在CAD中绘制一些图时可以按照CAD的输入格式,把绘图的所有命令和绘图数据在word、记事本或EXCEL等文本编辑器中编辑好后选中复制,再到CAD中,鼠标放在命令行上按右健,出现小菜单后点击粘贴即可。
由于在工程绘图中往往涉及到很多的计算,所以本人建议采用在EXCEL中输入绘图的命令和数据比较合适。
对于一般的绘图上述这些方法可能大多数朋友都已掌握,可是对于批量的文本标注等光采用上述办法还不行,需要一些小技巧。
现本人就以绘制线路征地图(要求标上各桩号和征地宽度)为例(本例共12个桩号)说明上述的这些方法:1.分别打开CAD和EXCEL2.选择EXCEL3.从第2行开始分别在A列输入各桩号、B列输入左幅的征地宽度为“+”、C列输入右幅的征地宽度为“-”4.在D1单元格键入_line,在D2单元格键入公式=MIN(A2:A13)&","&0,在D3单元格键入公式=MAX(A2:A13)&","&05.在E2单元格键入_line6.在F1单元格键入_line,在F2单元格键入公式=A2&","&B27.在G1单元格键入_line,在G2单元格键入公式=A2&","&C28.在H2单元格键入一个空格9.选中单元格区域“E2:H2”,然后下拉复制直至第13行,删除单元格H13内的空格使其为空10.在I2单元格键入_text,在J2单元格键入j,在K2单元格键入bc,在L2单元格键入公式=A2&","&(B2/2),在M2单元格键入2.5,在N2单元格键入-90,在O2单元格键入公式=ABS(B2),设置O2单元格公式为“0.000”11.选中单元格区域“D1: D4”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时绘出线路中线12.转到EXCEL选中单元格区域“F1:F14”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时绘出左幅征地界13.转到EXCEL选中单元格区域“G1:G14”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时绘出右幅征地界14.转到EXCEL选中单元格区域“E2:H13”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时绘出征地宽度线15.转到EXCEL选中单元格区域“I2:O3”(注:两行七列,后一行为空白数据),下拉复制直至第13行16.选中单元格区域“I2:O13”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时标注出第奇数个的左幅征地宽度17.转到EXCEL,删除单元格区域“I4:O12”,然后选中单元格区域“I2:O2”下拉复制一行18.选中单元格区域“I3:O4”(注:两行七列,后一行为空白数据),下拉复制直至第14行19.选中单元格区域“I3:O14”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时标注出第偶数个的左幅征地宽度20.转到EXCEL,删除单元格区域“I3:O13”,然后修改单元格L2公式为=A2&","&(C2/2),修改单元格O2公式为=ABS(C2)21.选中单元格区域“I2:O3”(注:两行七列,后一行为空白数据),下拉复制直至第13行22.选中单元格区域“I2:O13”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时标注出第奇数个的右幅征地宽度23.转到EXCEL,删除单元格区域“I4:O12”,然后选中单元格区域“I2:O2”下拉复制一行24.选中单元格区域“I3:O4”(注:两行七列,后一行为空白数据),下拉复制直至第14行25.选中单元格区域“I3:O14”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时标注出第偶数个的右幅征地宽度26.转到EXCEL,删除单元格区域“I3:O13”,然后修改单元格K2内容为tc,修改单元格L2公式为=A2&","&0,修改单元格O2公式为=A2,重新设置O2单元格公式为“K0+000”27.选中单元格区域“I2:O3”(注:两行七列,后一行为空白数据),下拉复制直至第13行28.选中单元格区域“I2:O13”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时标注出第奇数个的桩号29.转到EXCEL,删除单元格区域“I4:O12”,然后选中单元格区域“I2:O2”下拉复制一行30.选中单元格区域“I3:O4”(注:两行七列,后一行为空白数据),下拉复制直至第14行31.选中单元格区域“I3:O14”复制,然后转到CAD,鼠标放在命令行上按右健,出现小菜单后点击粘贴,此时标注出第偶数个的右幅征地宽度执行完上述即可完成征地图的绘制EXCEL表格设置具体下载附件。
AutoCAD VBA自动获取Excel数据生成塔基断面图

AutoCAD VBA编程:自动获取Excel数据生成塔脚断面图原以为这辈子再不会写程序了,无奈,还得继续……1、测量原始数据、处理结果。
如图:2、原始数据录入Excel ,并整理如下格式:3、因断面图用于设计高低柱、长短腿,在AutoCAD里面只生成A、B、C、D四个腿、以及横线路方向(E)即可。
在CADVBA程序管理器中录入以下程序段:Sub yema()Dim xcelApp As Excel.ApplicationDim xcelSheet As Excel.WorksheetDim strFile As StringstrFile = ThisDrawing.Application.VBE.ActiveVBProject.FileNameSet xcelApp = CreateObject("Excel.Application")xcelApp.Workbooks.Open Left$(strFile, Len(strFile) - 11) & "test.xlsx", , ReadOnly Set xcelSheet = xcelApp.ActiveWorkbook.Sheets(1)Dim mytxt As AcadTextStyleSet mytxt = ThisDrawing.TextStyles.Add("standard")mytxt.fontFile = "c:\windows\fonts\SIMFANG.TTF"ThisDrawing.ActiveTextStyle = mytxt'Dim newl, newl1, xxyLine, xxxLine As AcadSpline'取消顺线路方向Dim newl, newl1, xxyLine As AcadSplineDim startTan(0 To 2) As DoubleDim endTan(0 To 2) As DoublestartTan(0) = 0: startTan(1) = 0: startTan(2) = 0endTan(0) = 0: endTan(1) = 0: endTan(2) = 0Dim ptArr(0 To 92) As DoubleDim ptArr1(0 To 92) As DoubleDim ptArr2(0 To 92) As Double'Dim ptArr3(0 To 92) As DoubleDim i, j As Integeri = 1j = 0Do While i < 32ptArr(j) = xcelSheet.Range("C" & i): ptArr(j + 1) = xcelSheet.Range("D" & i): ptArr(j + 2) = 0ptArr1(j) = xcelSheet.Range("G" & i): ptArr1(j + 1) = xcelSheet.Range("H" & i): ptArr1(j + 2) = 0ptArr2(j) = xcelSheet.Range("K" & i): ptArr2(j + 1) = xcelSheet.Range("L" & i): ptArr2(j + 2) = 0'ptArr3(j) = xcelSheet.Range("O" & i): ptArr3(j + 1) = xcelSheet.Range("P" & i): ptArr3(j + 2) = 0i = i + 1j = j + 3LoopSet newl = ThisDrawing.ModelSpace.AddSpline(ptArr, startTan, endTan)Set newl1 = ThisDrawing.ModelSpace.AddSpline(ptArr1, startTan, endTan)Set xxyLine = ThisDrawing.ModelSpace.AddSpline(ptArr2, startTan, endTan)'Set xxxLine = ThisDrawing.ModelSpace.AddSpline(ptArr3, startTan, endTan) newl.color = acRednewl1.color = acYellowxxyLine.color = acBlue'xxxLine.color = acBlueDim aText, cText, bText, dText As AcadTextDim txtP(0 To 2) As DoubletxtP(0) = ptArr(0) + 20txtP(1) = ptArr(1)txtP(2) = 0Set aText = ThisDrawing.ModelSpace.AddText("A", txtP, 800)txtP(0) = ptArr(90) - 20txtP(1) = ptArr(91)txtP(2) = 0Set cText = ThisDrawing.ModelSpace.AddText("C", txtP, 800)txtP(0) = ptArr1(0) + 20txtP(1) = ptArr1(1)txtP(2) = 0Set bText = ThisDrawing.ModelSpace.AddText("B", txtP, 800)txtP(0) = ptArr1(90) - 20txtP(1) = ptArr1(91)txtP(2) = 0Set dText = ThisDrawing.ModelSpace.AddText("D", txtP, 800)'画坐标Dim xLine As AcadLineDim yLine As AcadLineDim stPoint(0 To 2) As DoubleDim enPoint(0 To 2) As DoublestPoint(0) = -20000: stPoint(1) = 0: stPoint(2) = 0enPoint(0) = 20000: enPoint(1) = 0: enPoint(2) = 0Set yLine = ThisDrawing.ModelSpace.AddLine(stPoint, enPoint)stPoint(0) = 0: stPoint(1) = -13000: stPoint(2) = 0enPoint(0) = 0: enPoint(1) = 13000: enPoint(2) = 0Set yLine = ThisDrawing.ModelSpace.AddLine(stPoint, enPoint)'加坐标度ThisDrawing.SetVariable "PDMODE", 2ThisDrawing.SetVariable "PDSIZE", 300Dim zbPoint As AcadPointDim zbTxt As AcadTexti = -15Do While i < 16stPoint(0) = i * 1000: stPoint(1) = 0: stPoint(2) = 0Set zbPoint = ThisDrawing.ModelSpace.AddPoint(stPoint)stPoint(0) = i * 1000: stPoint(1) = -700: stPoint(2) = 0If i < 0 ThenSet zbTxt = ThisDrawing.ModelSpace.AddText(-i, stPoint, 250) ElseSet zbTxt = ThisDrawing.ModelSpace.AddText(i, stPoint, 250) End Ifi = i + 1Loopi = -6Do While i < 7stPoint(0) = 0: stPoint(1) = i * 2000: stPoint(2) = 0Set zbPoint = ThisDrawing.ModelSpace.AddPoint(stPoint)stPoint(0) = -650: stPoint(1) = i * 2000 - 100: stPoint(2) = 0Set zbTxt = ThisDrawing.ModelSpace.AddText(i, stPoint, 250)i = i + 1Loop'加塔号、塔型Dim titTxt As AcadTextstPoint(0) = 1000: stPoint(1) = -10000: stPoint(2) = 0Set titTxt = ThisDrawing.ModelSpace.AddText(xcelSheet.Range("B32") & "(" & xcelSheet.Range("B33") & ")", stPoint, 800)ThisDrawing.Application.UpdateZoomAllxcelApp.ActiveWorkbook.ClosexcelApp.Workbooks.ClosexcelApp.QuitEnd Sub4、运行结果如下图(OK):。
用excel快速制作cad断面图示例(绝对有用)

利用EXCEL表格快速在CAD中画横断面图在高速公路项目中,施工单位前期进场都会对原地面进行复测,测量人员要快速地用复测数据绘图并算出土方的填挖量,对项目组织相应的工作策划及部署至关重要。
这也就对测量人员提出了出图效率问题,本文以横断面为例进行说明。
1 数据获取现在施工单位都普及了全站仪,我们只需要将根据地貌特征点选取好断面来测量,在土方的数据量上来说是不会有很大的出入,目前我们大多使用的是CASIO和SHARP-E500计算器,我们最好编写的程序能用坐标计算出此点所对应的桩号、边距(顺路线前进方向左侧边距为负,右侧为正),只需要记录断面桩号、边距、高程就可以顺利出断面图了。
2 Excel上处理数据将现场测量数据录入Excel中,数据格式如下表一,其中D列的100,300,500的等差数组,是为了在CAD上能按断面里程从左至右依次画多个断面图。
使它们不会出现上一断面的右部与下一断面的左部相交。
在E3、F3中先分别输入E2、F2数据并回车后再点击E3、F3,表格亮显后按住右下角的“十”字拖动成了点位数据列。
表一3 绘制图形3.1 绘制路线标准图形绘制标准图形时按照1:1的比例进行绘制,这样在后面填写断面面积、填挖高度时直接将查询数据输入就完事。
根据纵曲线数据计算出K126+270、K126+290、K126+305断面的中桩高程为分别为690.000、690.800、691.400。
K126+270断面的标准图形根据点位坐标(100,690.000)在CAD 中按照路面横坡往两侧绘制路基线,然后在两侧将边坡线连接在路基的两边。
如果后面的断面与本断面也是相同的话,使用CAD中的Copy命令进行复制。
方法是在文本窗口中:选择所有线形,回车确认后在“指定基点或位移”时我们将基点选择在(100,690.000),对于后面的“指定位移的第二点或 <用第一点作位移>:”时输入(300,690.800)回车后继续输入(500,691.400)。
excel表格数据画cad图

excel表格数据画cad图竭诚为您提供优质文档/双击可除excel表格数据画cad图篇一:将excel数据导入cad画图的简易方法将excel数据导入cad画图的简易方法在excel的a列给出线上对应点的x值,在b列给出线上对应点的y值,c列输入公式a3缩放至满幅xlbook.closexlapp.quitsetxlapp=nothingendsub3.打开vba编辑器的工具→引用,从引用对话窗找到microsoftexcelxx.xobjectlibrary,点击其左边的□,出现勾符号(如果没有此项,可浏览打开excel.exe文件即可,文件位置一般此是c:\programFiles\microsoftoffice\officexx,其扩展名可能未显示),然后确定。
4.做好这几步之后就保存编辑内容,然后点击工具栏上的▲(向右)或按F5或点击工具菜单→运行就可以画出折线了,到cad界面(excel表格数据画cad图)可见。
或返回cad后按快捷键alt+F8(一次不行就再按一次)启动宏,然后选中名字为zx的那个宏(工程中只有一个宏是默认选中),点击运行按钮,此时cad界面上就会自动将图画出来(轴测图或动态观察可见3d 效果)。
三、用窗体画图1.打开cad,单击cad界面工具菜单→宏→Visualbasic 编辑器,打开Vba编辑器。
(快捷键alt+F1,若一次不行就再按一次)。
2.单击Visualbasic界面插入→用户窗体,主页面会出现窗体窗口,加入控件,标签不是必须,控件属性可以默认。
双击窗体打开窗体代码窗口,向其输入如下代码(画圆弧):privatesubcommandbutton1_click()dimcurves(0to1)asacadentitydimcenterpoint(0to2)asdoubledimradiusasdoubledimstartangleasdoubledimendangleasdoubledebug.printoptionbutton1_debug.printoptionbutton2iftextbox1=""thensetxlapp=createobject("excel.application")setxlbook=xlapp.workbooks.open("d:\cadvba\eaht.xlsx ")打开的excel路径xlapp.Visible=Falsesetxlsheet=xlbook.worksheets("eat")打开excel中名为“eat”的工作表centerpoint(0)=xlsheet.cells(14,1)(圆心x坐标): centerpoint(1)=xlsheet.cells(14,2)(圆心y坐标): centerpoint(2)=xlsheet.cells(14,3)(圆心z坐标){圆心坐标}radius=xlsheet.cells(14,4)(所画弧处圆的半径){半径}startangle=xlsheet.cells(14,5)(所画弧起点弧度值)角度/180*3.141592653endangle=xlsheet.cells(14,6)(所画弧终点弧度值)elsecenterpoint(0)=textbox1centerpoint(1)=textbox2centerpoint(2)=textbox3radius=textbox4ifoptionbutton1=trueandoptionbutton2=Falsethenstartangle=textbox5/180*3.1416endangle=textbox6/180*3.1416elseifoptionbutton1=Falseandoptionbutton2=truethen startangle=textbox5endangle=textbox6elsemsgbox"角度单位不明确"endifendifsetcurves(0)=thisdrawing.modelspace.addarc(centerpoint,radius,startangle,endangle)zoomextentsendsub3.做好这几步之后就保存编辑内容,然后点击工具栏上的▲(向右)或按F5或点击工具菜单→运行就会出现用户窗体,若用excel中数据画弧就点击命令按钮-画弧,若用窗体改变参数就向窗体填数并选择角度单位,然后点击画弧按钮,然后,到cad界面可见既定圆弧线。
用EXCEL输入数据在CAD中计算工程量及生成断面图

用EXCEL输入数据在CAD中计算工程量及生成断面图摘要:本文介绍一种比较简洁的断面输入方法和土方工程量相结合的方法。
关键词:EXCEL 数据AUTOCAD 工程量断面图水利工程的土方工程计量是项重要工作,其方法有很多,最原始的方法是用水准仪配合测绳测得原始断面数据,再把数据用米格纸标出来,形成断面图,然后数需要开挖(或回填)的部分的格数,并按照一定的比例折算成面积,该方法通俗易懂但教繁琐、计算结果误差大、工作效率低。
随着科技的的发展,现在越来越多的企业用GPS全球定位系统或全站仪测得原始地形图然后用自带的软件形成断面图并计算面积,方便快捷,效率高。
因测量数据由测量仪器存储,不同测量仪器软件不同,不同的使用者熟悉程度不同,从工程计量角度看不易复核、校对。
还有一种测量方式是用全站仪或水准仪配合测绳测得原始断面数据,测得断面数据后,进行断面输入,得出断面图与设计线进行比较,计算出工程量。
第三种方法是在日常施工质量控制和工程量计算的常用方法,该种方法需要在测量后在CAD上进行点坐标输入断面输入,点坐标输入需要一个一个点的坐标输入,工作量大而且需要一定的细致耐心,一旦输入出错不易发现,也不利于校核。
笔者在工作中摸索出一种简单的运用EXCEL工作表结合CAD就可以完成日常断面输入的工作,现结合一工程实例将此方法与大家探讨。
方法原理:基于EXCEL电子表格的合并、连接功能结合CAD多线段输入坐标原理。
具体使用方法:EXCEL电子表格的功能十分强大,其中有一种二维坐标和连接功能,用连接符号“&”将该数据默认为一个二维的坐标,使用此符号后就能将所需数据格数据连接在一起。
在EXCEL中数据输入完成后,在AUTOCAD中将所输入的数据用多线段方法粘贴到CAD中的断面网格中,自动生成了工程的断面图。
为了能确切的说明该方法,现用具体的数据输入来介绍一下。
背景简述:某工程为一河道拓宽工程,设计河底高程▽30.0m,宽20米,边坡1:3,干法施工。
利用Excel绘制横断面线的一种方法

利用Excel绘制横断面线的一种方法利用Excel绘制原始地表横断面线的一种方法摘要:本文主要讲解通过利用Excel配合外业测量所取得的数据(平面坐标和高程)的特点进行绘制横断面地表线的一种方法,这种方法灵活简便,强度小,效率高,特别适合现场横断面测量及复测设计院的原始地表线。
关键词:数据采集内业处理横断面绘制在复测设计院原始横断面线形测量中,尤其是在高差陡变频繁的地区,传统的测量方法(标杆皮尺法、水准仪法)使外业与内业工作繁琐且效率低下。
本文通过全站仪置镜于任意控制点测量平面和高程的特点,结合Excel办公软件,介绍一种进行内外业一体化的断面测量方法,这种方法具有灵活简便、劳动量小效率高的特点,特别适合高差变化大的地区。
何为横断面测量?:横断面测量是对线路横向方向剖面的地面起伏进行的测量工作。
是在线路上设计院所有提供的断面桩号横向桩位垂直于线路中线的水平方向上,分别测量中线两侧各变坡特征点至中线桩的水平距离和高差(坐标、高程),并据纵断面里程和横断面面积以计算出挖填的方量。
横断面测量介绍:1、标杆皮尺法:利用花杆直接测得平距和高差。
此法简便、易行,所以被经常采用,它适用于横向变化较多较大的地段,但由于测站较多,测量和积累误差较大。
2、水准仪法:此法适用于施测横断面较宽的平坦地区。
安置水准仪后,以中线桩地面高程点为后视,以中线桩两侧横断面方向的地形特征点为前视,标尺读数读至厘米。
用皮尺分别量出各特征点到中线桩的水平距离(也可用视距测量)。
高差由后视读数与前视读数求差得到。
3、全站仪法:3.1 安置全站仪于中桩上,全站仪定向与切线方向垂直。
量出至中桩地面的仪器高,直接测出各特征象限点与中桩间的平距和高差。
此法适用于一般地形,必须通视条件好。
测量记录:表中按路线前进方向分左侧和右侧,桩号从下往上记录,表中左侧和右侧记录平距和高差,以分数形式记录分子表示高差,分母表示平距,高差为正号表示上坡,负号表示下坡。
浅谈CAD与EXCEL在道路断面绘制中的运用

浅谈CAD与EXCEL在道路断面绘制中的运用计算机在道路施工中越来越显示的重要,尤其是图纸的绘制与修改,数据的统计与计算,也就是我们常用的AutoCAD及Excel软件的运用。
本文通过这两款软件的日常运用及总结,对道路横断面绘制提出一些小小的运用。
标签道路横断面绘制;AutoCAD;Excel;一、在道路绘制横断面时面临的问题在道路绘制横断面时,往往要借助一些针对性比较强的专业软件进行,而做为施工单位的技术人员,却面临着:软件种类五花八门,而实际运用却存在着界面不熟悉,操作熟练度小,导致效率不高的问题,而且软件价格也让人望而却步。
二、CAD的运用众所周之AUTO CAD是绘制图形的利器,那么是否可以用AUTO CAD进行道路横断面的绘制呢?答案是肯定的。
但是这里存在一个问题,怎么画?关于这个问题,笔者请教了周边一些CAD制图的朋友,基本上采用相对高程(高差)及宽度进行绘制。
但是这个方法需要进行高差计算,笔者感觉出错几率会增加,且查找纠错难度大。
于是,想到采用绝对坐标的形式来进行断面的绘制。
1、图形的绘制根据绘制坐标的原则,绘制坐标需要(X,Y)的形式,进行总体设想:X 轴为距离(宽度),Y轴为高程,经过实际操作,这个设想完全可行。
再进行进一步设想:①X轴的设置:道路宽度的中点设为0,左侧为负值,右侧为正值,如:绘制0+021断面,道路宽度为9m,则左侧X值为:-4.5,中点X值为0,右侧X值为4.5;②Y轴的设置:道路绝对高程在绘制一个断面的情况下可行,但对于较多断面时,将有较多重叠,这时需加入一个常量以拉开每个断面的距离。
这个常量可以是自行设定的值,也可以桩号为设定值,如:现在绘制0+021断面,中线高程为3.749,则输入Y值为:21+3.749=24.749;绘制0+040断面,中线高程为3.797,则输入Y值为:40+3.797=43.797。
根据以上设定,0+021断面得到三个坐标依次(从左到右)为:(-4.5,24.771),(0,24.749),(4.5,24.717)。
CAD快速绘制道路横断面图的一种新方法

在EXCEL中处理测量数据是利用函数“&”对数据进行连接处理,对所有的测量点都处理成:距中桩距离&“,”&高程,例如在图2中,桩号为K2+160左12m位置高程为691.420,可以在EXCEL工作表中一个相对应的单元格的公式栏中输入=“-12”&“,”&M307,结果单元格显示“-12,691.420”。
在EXCEL中一般按照下列原则处理横断面测量数据:1)每一个数据都要处理成(距离,高程)的形式且占用一个单元格。
2)每一个横断面数据(包括原地面测量数据和路床数据)只占用一行。
3)每一行中的横断面数据自左向右顺序依次是:原地面数据一路床数据,其中原地面数据的顺序是距离中桩最左边的数据依次到距离中桩最右边的数据,路床数据是距离中桩最右边数据依次到距离中桩最左边的数据。
4)每一行结尾几个单元格分别输入Auto CAD命令C、ucs、0,4、L。
最后在EXCEL中拖动填充柄或左键双击K2+160每一个单元格填充柄,EXCEL就会进行自动填充K2+180-K2+240 中的所有数据。
3 使用功能3.1道路横断图自动绘制因为Auto CAD默认EXCEL从左面单元格移至右面单元格是一个键入回车键(Enter),这是Auto CAD能自动绘制横断面图形的一个关键。
对于道路横断图自动绘制,我们首先启动Auto CAD并打开一张新图,在命令行中输入“line”划线命令,Auto CAD在命令行中会提示“ _line指定第一点:”,然后打开EXCEL表格并复制整理完毕的所有测量数据,转到Auto CAD软件中,在命令行中“_line指定第一点:”后右键单击进行粘贴(或者Ctrl+V),AutoCAD会自动绘制横断面图。
一般绘制200-500个横断面图仅仅需要1-3s时间就可以自动完成,非常方便快捷。
下面我们来通过绘制K2+160断面图实例来具体说明Auto CAD如何自动绘图的全过程:①在Auto CAD键入“line”执行画直线命令;②在AutoCAD命令行中使用“Ctrl+V”粘贴所有复制的EXCEL数据;③Auto CAD在画直线命令下会从EXCEL粘贴内容中得到“-12,691.42”的具体位置,Auto CAD就会在“-12,691.42”位置上展上第一点,同时Auto CAD又会自动得到一个回车命令(因为在EXCEL中从“-12,691.42”单元格向右移至“0,691.65”单元格),Auto CAD又要执行“指定下一点”命令,那么会从粘贴内容中得到“0,691.65”数据,Auto CAD就会在“0,691.65”位置上绘制直线的第二点,Auto CAD又会自动要求输入下一点。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
文章编号:0494-0911(2006)08-0031-02中图分类号:P258文献标识码:B利用Excel 在AutoCAD 中绘制断面图的实践应用张文林1,侯五龙2,3(1.河北工程大学水电学院,河北邯郸056021;2.北京市水务局,北京100038;3.河南省登封市建设管理局,河南登封452470)Cross Section and Profile Dia g ram Drawin g b y Usin g Excel in AutoCADZHANG Wen-lin ,HO U Wu-lon g摘要:介绍从数字地图中量取线路中心线横断面和纵断面上点的距离与高程的坐标数据,以及野外实际测量的坐标数据获取方法,并在Excel 中建立坐标数据组,在AutoCAD 中批量展点,从而快速地绘制出横断面图和纵断面图,为计算土石方工作量提供准确的矢量图依据。
关键词:断面图;测量;Excel ;AutoCAD收稿日期:2006-06-19作者简介:张文林(1967-),男,河北邯郸人,讲师,主要研究方向为地理信息系统、工程测量。
一、引言在开挖河道、修建渠道或道路等带状工程中,在地面上定出其中心位置,然后沿路线方向测出其地面起伏情况,并绘制成纵横断面图,作为设计路线坡度和计算土石工程量的依据。
线路测量一般包括踏勘选线、中线测量、纵横断面测量、纵横断面的绘制、在纵横断面上进行线路设计和土石方计算,以及边坡放线等工作。
为了便于计算线路长度和绘图施工,必须从线路起点开始,沿着线路中心方向丈量长度,每隔20m ,30m ,50m 或100m 打一标桩(一般山地、丘陵地区桩距为20m 或30m ,平原地区桩距为50m 或100m ),称为里程桩,在两里程桩之间地形坡度有明显的变化处或经过河、沟、坑、路以及需要构筑水利工程的地方,都应打标桩,称为加桩,将各桩距起点的距离标注在桩上,作为桩号,如56+200,即表示该桩距起始点距离为56200m 。
纵横断面图绘制对于几十千米长的线路来说是一项繁重而又大量重复的工作,即使是每100m 绘制一个横断面图,也需要成百上千个,有些复杂的地段还要加绘横断面图,因此,如果能有一个准确、快捷的绘制方法,将会使我们的工作效率大为提高。
现在虽然有一些软件可以自动生成断面数据和断面图,这些软件往往是在数字地图的DI M 模型(三角网图)上画出要截取的断面路线并获取断面数据,但对于许多技术人员来说要么软件用的不够熟练,要么软件中生成的数据与现状有较大差距,生成的断面数据仍需要有较大的修改才能使用。
在多次的断面图绘制实践中,我们总结了一套利用Excel 编辑数据,在AutoCAD 中快速展点并绘制断面图的简单方法,并以横断面图为例加以介绍。
二、横断面数据获取的几种方法1.数字地形图上横断面数据的量取如图1所示为河北省岳城水库下游民有总干渠一段渠道的地形图(比例尺为1:500),因年久失修,多处破损,个别地方垃圾、秸秆等物淤塞渠道,严重影响过水能力,经水利部门研究,于2005年底立项修整渠道,渠道顶面宽度约为21m ,底宽约为11m ,沿渠道中心线每100m 绘制50m 宽的横断面图。
首先在AutoCAD 中利用多义线(Pline )在原地形图上绘制渠道中心线;然后创建长度为50m 的竖直线为“块”,名称为“K ”,基点(base p oint )为该线段的中点(Mid p oint ),选取对象(Select ob j ects )为该线段;再用定距等分(measure )命令量取渠道中心线,指定块为K ,指定长度为相当于实地100m 的图上长度(即在1:1000输入100,在1:500输入200),在是否对齐块和对象中(Ali g n block with ob j ect ?<Y >)选择y ,则在渠道中心线上标出了垂直于中心线的横断面位置线,自渠道中心线起始位置开始注记各横断面的里程,如图56+200。
为了精确量距,可将捕捉方式设定为端点、交点并打开,用DIS T 命令量取断面起点A 至A ,B ,C ,…,G 的距离,得到距离数值为0m ,15.58m ,20.39m ,…,50m 。
在地形图上根据断面周围高程数据采用内插法得出A ,B ,C ,…,G 的高程为132006年第8═══════════════════════════════════════════════════════════════════期测绘通报56.51m ,56.51m ,54.52m ,…,56.66m 。
图12.实测横断面数据在没有数字地形图资料或地形图比例尺较小时,为了保证断面数据的精度,我们在实地量测断面数据,首先沿渠道中心线在施工范围以外埋设高程和平面控制点,每隔1~3km 敷设一临时水准点,精确测定了各水准点的高程和坐标之后,可以用全站仪按三角高程测量的方法依次测量渠道中心线上各里程桩和加桩点的高程,标定横断面方向可将简单十字架立于中心桩上,将相互垂直的两根横木条中的一根横木条上的两钉瞄准前(或后)一个中心桩,则另一根横木条上的两钉瞄准的方向就是与中心线成垂直的横断面方向,用反射棱镜的标杆和皮尺配合测量得出横断面上平距和高差对应的数据组,逐站实测,测到适当距离与临时水准点连测,以便检查渠道的高程成果是否符合精度要求;当具备测图软件时,在现场可以不用皮尺丈量横距而将全站仪中的横断面上各点的坐标和高程数据展绘成1:1000的数字地图,在数字地图中量出渠道横断面平距和高程数据。
三、利用Excel 建立数据文件将上述获得的距离和高程数据输入Excel 表格中,如图2所示,第A 列为里程桩号,第B 列为断面上各点高程,第C 列为各点相对于该断面起点的水平距离。
在D 列2行单元格输入命令:=C1&“,”&B1并回车,在D 列2行就出现0,56.51的水平距离与高程的坐标对,把鼠标放在D 列2行单元格单击鼠标左键,当指针变成细十字时,按住鼠标左键向下拖动鼠标进行复制,这样我们就得到了一组如图2中D 列所示水平距离与高程的坐标对数据组,选中该数据组将其复制(Ctrl +C )到剪贴板上,完成数据编辑。
图2四、在AutoCAD 中绘制横断面图打开AutoCAD ,选择菜单命令Draw →Point →M ulti p le Point(多点)命令,在命令行指定点位置单击鼠标右键,选择Paste (粘贴),将剪贴板上的水平距离与高程的坐标数据组粘贴过来,或在指定点位置单击鼠标左键后键入Ctrl +P 粘贴数据,通过窗口缩放你会发现与水平距离和高程对应的所有点已经全部展绘在AutoCAD 图中了;在缺省情况下,点对象仅被显示为一个小圆点,为了使得展点符号更加清晰,我们可以采用AutoCAD 中的系统变量p dmode 和p dsize 来改变点的显示类型和尺寸,此外我们也可以用dd p t yp e 命令在点样式对话框中选定点的样式和尺寸大小,通过re g en 生成新类型和尺寸的清晰的点。
用p line (多义线)从左至右依次连接各点即得56+200的横断面图。
如图3所示,在适当位置画上水平距离与竖直高程标尺,这样56+200的横断面图就完整地画出来了,其比例尺为1:1,即在图中用量距命令DIS T 所量数据为实地长度和高差,用坐标查询命令ID 所量数据为距离与高程的坐标数据。
当我们在图中绘出设计断面图后,可以很方便地测出填挖方区域的面积,从而计算出土石工程量;若我们要绘制1:50或1:100的横断面图,则在Au-toCAD 出图时将打印比例设为5mm :1绘图单位或10mm :1绘图单位。
图3民有总干渠横断图(56+200)(下转第45页)23测绘通报2006年第8═══════════════════════════════════════════════════════════════════期virtual CA T V T yp e Get T yp e()=0;//对象类型,对应缆段类型};系统采用ESRI公司的ArcOb j ects为平台,利用VC++编程实现。
ArcOb j ects是有GIS功能和可编程接口的软件组件集合,ArcOb j ects技术是基于COM协议,使用内置VBA脚本语言或服从COM可编程语言如VB,VC++或Del p hi进行定制。
通过VC++开发形成的有线电视网络管理系统主界面如图2所示。
图2有线电视网络管理系统主界面五、结束语本文主要分析了基于GIS的有线电视网络管理系统的基本功能。
可以看出,利用GIS技术可以综合多种先进的信息技术,为有线电视网络管理部门的管理、规划设计、运行维护、资产管理等业务提供了高效率的工作方式和全新的技术手段,同时也提高了相关部门的管理水平和服务水平。
参考文献:[1]严威,等.地理信息系统在有线电视网络管理中的应用[J].北京广播学院学报(自然科学版),2003,10(1):33-37.[2]金永平,等.青岛有线电视地理信息系统的开发与应用[J].中国有线电视,2002,(5):43-45.[3]王开伟,等.Ma p Info在有线电视网络设计与管理中的应用[J].有线电视技术,2004,(5):52-56.[4]陈安顺.柳州市有线广播电视网络GIS系统技术方案[J].有线电视技术,2004,(8):==================================================75-78.(上接第32页)五、纵断面图绘制利用渠道中心线上各里程桩的高程数据绘制纵断面图,可以直观地反映渠道中心线地面起伏情况,便于设计渠道纵坡、水深、填挖高度和边坡位置。
在AutoCAD中绘制渠道中心线的纵断面图时,首先编制纵断面里程与高程的坐标数据组的Excel格式数据文件,由于渠道中心线上高差和距离相比来说要小得多,所以在绘制纵断面时,水平距离和高程的比例尺是不一样的,水平距离比例尺常采用1:1000~1:10000,高程比例尺采用1:100~1:200。
与横断面绘制方法类似,将Excel中里程与高程数据计算为坐标数据,在AutoCAD中粘贴展点,连线成图,在适当位置画上里程与高程标尺,就得到了1:1的纵断面图,为了使纵横向比例得到改变,可以将纵断面图当成块文件,在新建的AutoCAD文件中插入该文件块,在缩放比例更改X和Y的比例,从而使里程和高程的比例符合要求。
六、结束语线路测量中包括了大量的横断面绘制和纵断面绘制,通过在Excel中编辑距离与高程的坐标数据组,在AutoCAD中利用这些数据多点粘贴,可以快速地完成批量展点,较以往逐点输入坐标数据的方法更加快捷,成倍地提高了工作效率,同时也减少了错误环节,提高了数据的准确性,为工程量计算提供了可靠的依据。