用excel快速制作cad断面图示例(绝对有用)

用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.选中单元格区域“D14”复制，然后转到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绘图软件中绘制大断面日期:2008-06-13 总浏览: 344Excel数据处理软件具有超强的数据处理功能，而AutoCAD绘图软件绘图时需要调入大量的数据，如何在AutoCAD绘图时调入Excel的数据，笔者根据自己的工作经验，浅谈二者“联姻”的小方法，希望能够为设计绘图工作提供一些便利，并与大家共同探讨交流：1. 基本思路AutoCAD绘图时，各种轮廓线（即线段）皆由平面点的坐标（X，Y）连接而成，Excel表格可以提供坐标点（X，Y）格式的数据，把Excel坐标格式的数据提供给AutoCAD软件，二者即可完成“联姻”工作。

EXCEL在CAD地形图截取计量断面中的应用
管依贵;任青梅;李传勇
【期刊名称】《四川水利》
【年(卷),期】2009(030)006
【摘要】介绍应用EXCEL在CAD地形图截取计量断面过程中的方法、思路及步骤,并提供一些常用的计算公式、命令及函数.
【总页数】3页(P59-61)
【作者】管依贵;任青梅;李传勇
【作者单位】中国水利水电第五工程局有限责任公司第三分局,四川,双流,610225;中国水利水电第五工程局有限责任公司第三分局,四川,双流,610225;中国水利水电第五工程局有限责任公司第五分局,四川,双流,610200
【正文语种】中文
【相关文献】
1.EXCEL与AutoCAD结合在公路工程横断面数据处理中的应用研究 [J], 石红
2.利用Excel 在AutoCAD 中绘制横断面图的实践应用 [J], 范长玉;徐菲
3.Excel2000在带状地形图纵横断面测量中的应用 [J], 邓波;任建设;刘学杰
4.AutoCAD VBA 与 Excel 在铁路横断面绘制中的应用 [J], 邱利群;胡友健;赵雷;徐文辉;刘海鹏
5.基于AutoCAD和Excel函数相结合的水工隧洞横断面绘制及开挖计量方法 [J], 司鹏飞
因版权原因，仅展示原文概要，查看原文内容请购买。

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 数据AUTOCAD 工程量断面图水利工程的土方工程计量是项重要工作，其方法有很多，最原始的方法是用水准仪配合测绳测得原始断面数据，再把数据用米格纸标出来，形成断面图，然后数需要开挖（或回填）的部分的格数，并按照一定的比例折算成面积，该方法通俗易懂但教繁琐、计算结果误差大、工作效率低。

随着科技的的发展，现在越来越多的企业用GPS全球定位系统或全站仪测得原始地形图然后用自带的软件形成断面图并计算面积，方便快捷，效率高。

因测量数据由测量仪器存储，不同测量仪器软件不同，不同的使用者熟悉程度不同，从工程计量角度看不易复核、校对。

还有一种测量方式是用全站仪或水准仪配合测绳测得原始断面数据，测得断面数据后，进行断面输入，得出断面图与设计线进行比较，计算出工程量。

第三种方法是在日常施工质量控制和工程量计算的常用方法，该种方法需要在测量后在CAD上进行点坐标输入断面输入，点坐标输入需要一个一个点的坐标输入，工作量大而且需要一定的细致耐心，一旦输入出错不易发现，也不利于校核。

笔者在工作中摸索出一种简单的运用EXCEL工作表结合CAD就可以完成日常断面输入的工作，现结合一工程实例将此方法与大家探讨。

方法原理：基于EXCEL电子表格的合并、连接功能结合CAD多线段输入坐标原理。

具体使用方法：EXCEL电子表格的功能十分强大，其中有一种二维坐标和连接功能，用连接符号“&”将该数据默认为一个二维的坐标，使用此符号后就能将所需数据格数据连接在一起。

在EXCEL中数据输入完成后，在AUTOCAD中将所输入的数据用多线段方法粘贴到CAD中的断面网格中，自动生成了工程的断面图。

为了能确切的说明该方法，现用具体的数据输入来介绍一下。

背景简述：某工程为一河道拓宽工程，设计河底高程▽30.0m，宽20米，边坡1:3，干法施工。

利用Excel绘制横断面线的一种方法利用Excel绘制原始地表横断面线的一种方法摘要：本文主要讲解通过利用Excel配合外业测量所取得的数据（平面坐标和高程）的特点进行绘制横断面地表线的一种方法，这种方法灵活简便，强度小，效率高，特别适合现场横断面测量及复测设计院的原始地表线。

关键词：数据采集内业处理横断面绘制在复测设计院原始横断面线形测量中，尤其是在高差陡变频繁的地区，传统的测量方法（标杆皮尺法、水准仪法）使外业与内业工作繁琐且效率低下。

本文通过全站仪置镜于任意控制点测量平面和高程的特点，结合Excel办公软件，介绍一种进行内外业一体化的断面测量方法，这种方法具有灵活简便、劳动量小效率高的特点，特别适合高差变化大的地区。

何为横断面测量？：横断面测量是对线路横向方向剖面的地面起伏进行的测量工作。

是在线路上设计院所有提供的断面桩号横向桩位垂直于线路中线的水平方向上，分别测量中线两侧各变坡特征点至中线桩的水平距离和高差（坐标、高程），并据纵断面里程和横断面面积以计算出挖填的方量。

横断面测量介绍：1、标杆皮尺法：利用花杆直接测得平距和高差。

此法简便、易行，所以被经常采用，它适用于横向变化较多较大的地段，但由于测站较多，测量和积累误差较大。

2、水准仪法：此法适用于施测横断面较宽的平坦地区。

安置水准仪后，以中线桩地面高程点为后视，以中线桩两侧横断面方向的地形特征点为前视，标尺读数读至厘米。

用皮尺分别量出各特征点到中线桩的水平距离（也可用视距测量）。

高差由后视读数与前视读数求差得到。

3、全站仪法：3.1 安置全站仪于中桩上，全站仪定向与切线方向垂直。

量出至中桩地面的仪器高，直接测出各特征象限点与中桩间的平距和高差。

此法适用于一般地形，必须通视条件好。

测量记录：表中按路线前进方向分左侧和右侧，桩号从下往上记录，表中左侧和右侧记录平距和高差，以分数形式记录分子表示高差，分母表示平距，高差为正号表示上坡，负号表示下坡。

利用Excel和AutoCAD绘制隧洞断面的方法【摘要】用AutoCAD绘制断面，由于点多，比较繁琐。

采用Excel和AutoCAD相结合的方法后，加快了绘图进度，节约了大量时间，此法在其他隧道的断面绘制时，值得借鉴。

【关健词】Excel AutoCAD隧洞断面绘图开建桥电站引水隧洞全长3488m，隧洞为圆型，断面有φ6.2m和φ6.5m两种。

为了浇筑混凝土时计算混凝土的方量，业主要求对开挖完的洞体每3m绘制一个断面，共需绘制1164个断面。

以前测量人员用全站仪每个断面测30~40个点，在电脑上用AutoCAD绘制断面时，只能一个点一个点地输入，绘制一个断面需要25分钟左右，全部断面需要485小时。

.改进方法及操作步骤经过查阅资料及多次试验，我们采用了Excel和AutoCAD相结合的绘图方法，具体如下（以测30点为例）2.1由于现场测定的数据为施工坐标，同一桩号点的X值为一固定值（里程一样），只有y 和H值不固定，所以在AutoCAD的坐标设置时，设点的Y值为x轴，H值为y轴。

2.2使用Excel，在C1单元格中输入程序：＝A＆“，”＆B。

2.3把C1单元格下拉至C30单元格，这样C1~C30单元格都有程序。

2.4在A1和B1中分别输入第一个点的y和H值。

2.5在A2和B2中分别输入第二个点的y和H值，依次类推。

2.6 30个点输完后，在AutoCAD中，点击一下“点”命令，在编辑栏中出现“指定点：”。

2.7把C1~C30单元格复制到“指定点：”后面，所有点就一次呈现出来了。

2.8用直线把各个点连接起来。

结语8 a+ H1 F1 I) U" B& p3 W采用此种方法后，每个断面只需4分钟左右就绘制好了，全部断面共需77.6小时，节约了407.4小时，解决了时间紧任务重的难题。

而且点数也不受限制，其他断面的隧道都可以借鉴此法。

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 在AutoCAD 中绘制横断面图的实践应用范长玉;徐菲【摘要】在Excel 中建立坐标数据组,在AutoCAD 中批量展点,从而快速地绘制出大断面图,为计算断面面积提供准确的矢量图依据.【期刊名称】《吉林水利》【年(卷),期】2010(000)005【总页数】2页(P57-57,72)【关键词】Excel;AutoCAD;断面图【作者】范长玉;徐菲【作者单位】吉林省水文实验研究所,吉林长春130022;吉林省长春水文水资源分局,吉林长春130022【正文语种】中文【中图分类】TP317.3在水文工作中,河流的流量计算离不开河床横断面的面积,在水文分析计算中也常用横断面图计算面积。

另外,在开挖河道、修建渠道等工程中也要通过断面图计算土石工程量。

水文站的断面测量是利用水准仪和固定的起点距测取高程的,起点距就是相对于横断面上起始点 (通常记作0)的距离,用起点距和对应的高程绘制横断面图,来合理分布测速垂线。

获取数据后,虽然可以利用Excel自动生成断面图,但是在应用中有很多不足,下面以某水文站的断面测量数据为例,介绍一个利用Excel编辑数据,在 Auto-CAD中快速展点并绘制横断面图的简单方法。

1 利用Excel建立数据文件将测取的起点距和高程数据输入Excel表格中,如图1所示,A列为起点距,B列为对应的高程。

在C2单元格中输入=A2&","&B2并回车,在单元格中就出现0,214.08的坐标对,鼠标单击C2单元格,把鼠标放在C2单元格右下角,当指针变成细十字时,按住鼠标左键向下拖动鼠标进行复制,这样我们就得到了一组如图1中C列所示起点距与高程的坐标对数据组,选中该数据组将其复制 (Ctrl+C)到剪贴板上,完成数据编辑。

2 在AutoCAD中绘制横断面图打开AutoCAD(以2007版本为例),选择“绘图”→“点”→“多点”命令,在命令行指定点位置单击鼠标右键,选择“粘贴”或 (Ctrl+V),将剪贴板上的数据组粘贴过来,按“Esc”退出展点,通过窗口缩放你会发现所有点已经展绘在AutoCAD图中了。

快速绘制道路横断面图的一种新方法•本文详细阐述了在不需要专业编程知识的情况下,利用AutoCAD和Excel精确自动地绘制道路横断面图的一种新方法。

该方法不仅简单灵活,而且能提高工作效率以及保证工作质量。

1 引言传统横断面测量方法有水准仪皮尺法、横断面仪法和经纬仪视距法等，简而言之就是根据地形的变化对与道路轴线方向相垂直的断面进行测量，其中直线段所测断面方向与道路中线方向垂直，而曲线路段与测点的切线方向垂直。

在对横断面测量以后，为计算道路工程土方量，我们紧接着就要绘制道路横断面图.在实际工作中,横断面图的绘制通常是采用手工在米格纸上按照一定比例用卡规和复式比例尺按照横向是距离、纵向是高程刺点,用小钢笔连接刺点绘制闭合图形。

然后把每一个断面的横断面图分成若干个梯形用复式比例尺和卡规量出每一个梯形的上底、下底和高,计算出每一个梯形的面积，然后把所有的梯形面积相加才得到一个断面面积。

通常道路横断面施测要求每20m测一个断面。

在地形变化较大的位置要加测横断面，这样每1km道路至少要绘制50多个横断面图。

可见如果用传统的方法绘制一条50km的道路断面图工作量是非常巨大的，而且由于是手工绘制,修改起来很麻烦，在实际工作中返工的情况是经常发生的。

由此可见快速高效地绘制出道路横断面图是非常重要的。

笔者根据实际情况发现如果能对Auto CAD系统进行二次开发，运用AutoLISP语言和Visual LISP开发环境进行编程，创建Auto CAD的新命令或重新定义原有的标准命令,提供系统自动执行重复性的计算与绘图任务,此类问题就迎刃而解了，但这要求道路施工人员具备专业性很强的编程知识.在绘制了大量的横断面图后,笔者总结出一个非常便捷的方法,这种方法不需要道路工程人员具备很强的编程知识，只要具备常规的Excel和Auto CAD知识，就可以自动、精确和快速绘制道路横断面图,并且此方法可以推广至重复性较强的绘图工作。

下面以一个实例进行详细说明。

1 引言传统横断面测量方法有水准仪皮尺法、横断面仪法和经纬仪视距法等，简而言之就是根据地形的变化对与道路轴线方向相垂直的断面进行测量，其中直线段所测断面方向与道路中线方向垂直，而曲线路段与测点的切线方向垂直。

在对横断面测量以后，为计算道路工程土方量，我们紧接着就要绘制道路横断面图。

在实际工作中，横断面图的绘制通常是采用手工在米格纸上按照一定比例用卡规和复式比例尺按照横向是距离、纵向是高程刺点，用小钢笔连接刺点绘制闭合图形。

然后把每一个断面的横断面图分成若干个梯形用复式比例尺和卡规量出每一个梯形的上底、下底和高，计算出每一个梯形的面积，然后把所有的梯形面积相加才得到一个断面面积。

通常道路横断面施测要求每20m测一个断面。

在地形变化较大的位置要加测横断面，这样每1km道路至少要绘制50多个横断面图。

可见如果用传统的方法绘制一条50km的道路断面图工作量是非常巨大的，而且由于是手工绘制，修改起来很麻烦，在实际工作中返工的情况是经常发生的。

由此可见快速高效地绘制出道路横断面图是非常重要的。

笔者根据实际情况发现如果能对Auto CAD系统进行二次开发，运用AutoLISP语言和Visual LISP开发环境进行编程，创建Auto CAD的新命令或重新定义原有的标准命令，提供系统自动执行重复性的计算与绘图任务，此类问题就迎刃而解了，但这要求道路施工人员具备专业性很强的编程知识。

在绘制了大量的横断面图后，笔者总结出一个非常便捷的方法，这种方法不需要道路工程人员具备很强的编程知识，只要具备常规的Excel和Auto CAD知识，就可以自动、精确和快速绘制道路横断面图，并且此方法可以推广至重复性较强的绘图工作。

下面以一个实例进行详细说明。

2 对横断面数据的处理2．1确定边桩位置和高程倾斜地面高等级道路施工测量中的边桩定位一般用逐渐趋近法。

该方法无论采用经纬仪或全站仪都不能直接给出边桩位置，只能通过重复多次测量和计算，才能确定边桩的位置，这种方法的野外工作量较大。