利用Excel在AutoCAD中批量绘制断面图的方法
AUTOLISP程序生成CAD断面图
利用AutoLisp、Microsoft VBA程序语言实现批量生成断面图及断面电子表格数据蒋济飞 赵新萍（广西第二测绘院 广西柳州 545006）【摘 要】 本文主要讨论如何利用AutoCAD的二次开发语言AutoLisp 和Excel中的Microsoft VBA语言技术，利用地形图上的高程点数据批量生成断面图和断面数据表格。
【关键字】 断面图 AutoLisp Microsoft VBA1 引言Visual Basic作为一个集成的开发环境，能够使AutoCAD数据与其它的Visual Basic应用程序，如Microsoft Excel软件，直接共享，实现无缝连接，交换数据。
在没有专业软件辅助的情况下，绘制纵横断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。
我们在完成老挝南塔河1#水电站进站道路测绘项目中，利用地形图上的高程点数据，通过Auto Lisp、Visual Basic编程建立AutoCAD与Excel的通信，实现数据交换，快速绘制公路纵横断面及相关成果表，大大的提高了工作效率。
2 应用程序的开发在实现对地形图上的高程点数据批量生成断面图和断面数据表格处理的程序代码编写过程中，主要分以下步骤：（1）注记纵、横断面交点的里程和高程并生成纵断面曲线，输出断面数据。
首先我们取得纵断面线折点的坐标集合（XY-List）。
如果纵断面线图元为LWPOLYLINE，则只要依次取出纵断面线图元数据中群码为10的数据即可；如果纵断面线图元为POLYLINE，则只要依次取出纵断面图元之后SEQEND之前的所有VERTEX图元数据中群码为10的数据即可。
取得纵断面线上所有高程点和横断面图元。
代码如下：（SETQ ALL-DATA（SSGET "F" XY-List ' （（-4 . "<or"）（-4 . "<and"）（0 . "INSERT"）（8 . "GCD"）（-4 . "and>"）（-4 . "<and"）（0 . "*POLYLINE"）（8 . "DM"）（-4 . "and>"）（-4 . "or>"））））取得高程点和横断面图元数据之后，对数据进行区分。
利用Excel在AutoCAD中批量绘制断面图的方法
利用Excel在AutoCAD中批量绘制断面图的方法本文针对许多文章在这方面出断面图的问题，结合实际给出在这方面最为简化的绘图步骤与出图技巧。
在高速公路项目中，施工单位前期进场都会对原地面进行复测，测量人员要快速地用复测数据绘图并算出土方的填挖量，对项目组织相应的工作策划及部署至关重要。
这也就对测量人员提出了出图效率问题，本文以横断面为例进行说明。
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)。
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又会自动要求输入下一点;在这个过程中将自动实现Auto CAD要求画线的点位数据和EXCEL所提供测量数据相对应;④自动绘制完毕后Auto CAD会得到下一个“C”命令即闭合,就完成一个横断面图的自动绘制;⑤同时Auto CAD在命令行又会自动得到“UCS”命令即要求建立—个新的坐标系,粘贴的内容是“0,4”,即新坐标原点移动至0,4位置,之所以在EXCEL中键入“UCS”命令是为了在图上错开每一个横断面图的位置,如果没有这个命令,所有断面的横断图就会重叠在一起,我们可以根据最大填挖高度确定断面图之间的间隔,如果最大填挖高度是6m,那么在EXCEL中的“0,4”就要用“0,9”比较适合;⑥Auto CAD会在命令行中又得到一个“L”命令,AutoCAD将重复执行2-5步骤,画线点位数据是EXCEL提供的相应K2+180断面数据;⑦Auto CAD又会自动绘制K2+180断面图,并依次循环完成所有横断面的绘制;⑧按照所选择打印图纸绘制图框,把绘制好的每一个横断面图复制到图框中,并标注桩号;3.2计算填挖方面积在Auto CAD中选择所有绘制好的横断面图单击建立的面域,对于全填或者是全挖的断面其断面横断面图是一个闭合非相交的图形,可以在命令行中执行“area”或者左键单击,根据提示选择“area”中的“对象O”选项,然后选择一个横断面在命令行中会显示该横断面的面积和周长;不能建立面域的断面是一种半填半挖的断面,对于这种情况,首先要分析每一个闭合图形是填方还是挖方,通过手工“捕捉”每一个闭合区域的角点即测量点,分别求出面积,最后相加求出该段面的填方面积和挖方面积;3.3打印出图常规绘制横断图比例尺是1：200或者1：100,开始绘图之前,需要决定一个单位代表多大距离,然后使用该惯例创建图形;对于横断面图形我们一般采用以m作为图形单位,根据图纸大小和比例尺,调整打印机选项中的“调整打印比例”项中图形单位的大小;4 结束语以上实例是笔者利用测量人员最常用的数据处理软件EXCEL和绘图软件Auto CAD发现的一种绘制道路横断面图的新方法;这个方法不需要测量人员对软件进行二次开发,仅利用EXCEL和Auto 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）。
利用Excel和AutoCAD绘制隧洞断面的方法
利用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数据生成塔基断面图
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）：。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
利用Excel在AutoCAD中
批量绘制断面图的方法
邓华胡
(安毛高速AME12合同段，陕西紫阳 725300 ) 摘要：针对许多文章在这方面出断面图的问题，本人结合实际给出在这方面最为简化的绘图步骤与出图技巧。
关键词：Excel、AutoCAD、断面图、方法、数据
在高速公路项目中，施工单位前期进场都会对原地面进行复测，测量人员要快速地用复测数据绘图并算出土方的填挖量，对项目组织相应的工作策划及部署至关重要。
这也就对测量人员提出了出图效率问题，本文以横断面为例进行说明。
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)。
这样K126+290、K126+305的标准断面就成了。
3.2 断面盖顶
选中Excel中K126+270断面的F列数据，按Curl+C键。
在CAD 中使用Pline命令，在文本窗口中按Curl+V键，这样断面就盖好顶了。
继续在CAD中回车后切换到Excel按Curl+C键复制K126+290断面的F列数据，然后在CAD中按Curl+V键粘帖批量盖顶。
最后在中桩线位置上标注中桩设计高、中桩地面高及断面桩号。
图一
4 批量出图
比如我们要出1:400的比例图，在CAD中用多断线绘制一长160m、宽112米的矩形(线宽设置为0.4m)，将这些图框放在断面图上，如图二所示，然后将断面图直接复制进图形框里，使用Trim命令修剪盖顶线与标准断面线相交以外的直线，并用region命令编辑使图形成为一个面域，再使用Area命令查询面积时“指定第一个角点或 [对象(O)/加(A)/减(S)]:”输入字母O并点击图形，面积就出来了。
并将这些图对应的里程、宽度、长度、面积等数据填入右侧表格中。
最后将绘图界面里的所有图形，数据选种后，使线宽全部为0.2mm 。
00
00
图二
图三
在CAD的文件下拉菜单的页面设置管理器里新建一“断面打印”的新页面设置名，并选择打印机名、图形尺寸中的A3、打印区域中的窗口、选中居中打印、比例(S)中的自定义下面分别输入2.5和1后，点确定后并将其置为当前(S)。
按Ctrl+P快捷键出现图三界面，选择“窗口(O)<”并将矩形框全部选中，点“确定”就打印出图纸了。
按回车键后只需要直接再选择“窗口(O)<”就连续出图了。
通过这样有效的办法与途径不但减轻了测量人员的工作任务，并缩短提供土方数据的时间，为工程提前完工、项目盈利创造条件。
参考文献：
[1] 康全玉，等.AutoCAD专业绘图基础.徐州：中国矿业大学出版社，2002.
[2] 张文林，侯五龙.利用Excel在AutoCAD中绘制断面图的实
践应用.测绘通报，2006，(8)：31-32.。