利用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）：。
AutoCAD结合Excel表格绘制巷道断面的新方法
关键词 ： 断 面测 绘 ； Ｓ Ｃ Ｒ 文件 ； 免 棱镜 全站 仪
中图分类号 ： Ｐ ２ ５ 文献标 识码 ： Ａ 文章编号 ： １ ０ ０ ３ — ５ １ ６ ８ （ ２ ０ １ ３ ） ０ ９ — ０ ０ １ ４ — ０ １ 断面测绘是巷道工程施工测量 的一项重要工作 。一直 以角度
ｒ
０ ０ ． ５， 一 ５ ０
０ ＋ ５ ０
桩 号
ｐ ｏ ｉ ｎ ｔ
１ ０ ， 一５ ０． ０ ０
设计底板高度
ｐ ｌ ｉ ｎ ｅ ８ ９ —１ ． ７０ － ５ ０． Ｏ５ ８ ． ２ ３． －５ ０ ． ０ ５ 一１ ． ７ １ － ４ ７ ． ６ ８ ８ ． ２ ９． － ４７ ． ６ ８
摘 要： 针对传统巷道断面测绘外业工作繁重 、 内业绘 图量 大等缺点 ， 提 出了采 用免棱镜全站仪 配合反光 片测量 ， 并借助 Ｅ ｘ ｃ ｌ ｅ 表
格和 Ｃ Ａ Ｄ软件便 捷地 实现巷道断面绘制的方法。通过 井下 实践 ， 证明该方法具有操作快捷 、 内业 处理 简洁的特 点， 有效地提 高了工
表一 点号 Ｙ 测绘数据编辑表格 Ｈ 编辑后文件 ｐ ｏ ｍｔ
０， 一５ ０
断 面测 绘数据采集 劳动强度 大 ， 断 面的绘制工作 的效率低下 等 问题一 直困扰着测绘 人员 。究 其原 因主要是测绘 仪器功能和数
据处理方法的限制。 目前 ， 传统的巷道断面测绘方法根据数据采集方式不 同， 可 以概括为两种 。其一 ： 在巷道 中心线上每 １ Ｏ 米测放 一个 中心点 ，
１ 免棱镜全站仪碎步点 的采集工作 为提高外 业效率 ， 断 面测 量建议使 用免棱镜全 站仪采集数 据， 利用其免棱镜测距功能 ， 可 以快速地对待测 断面点位进行碎 步点采集工作 。在这种状 态下 ， 每架设一 站可采集 ６～８ 个断面 ， 而且 巷道断面 越宽 ， 一站采集 的断面数将越 多。但是要注意 免 棱镜 功能在正 对仪器测量 时反应速度 比较快 ， 而在斜对 或者测 距较 远时测点 的速度则会受 到影响 ， 因此在较 远处或者斜对 仪 器测量时要借助反光片来提高采集点 的速度 。 传统 的作业无 法从 三维数据上看出碎步点是否位于所需 的 测 量断面上 ， 给 现场测量工作 带来不便 。为使数据能够 较为直 观地 反应 现 场洞 室偏 差 ， 测 量 时应 先确 定巷 道施 工轴 线 坐标 系。 即采用 每条巷道 中心线为 ｘ轴 ， 以其起 始桩号点作 为坐标 起 始点的施工坐标系 ， 具体方法是 ： 由全站 仪测 出的断面点 Ｘ值 定为 断面的桩号 ， Ｙ值则是 断面点距巷 道 中心线的距离 。现场 测量 时 ， 可直 接通过 测量 ｘ值（ 桩 号） 将 测量 点控 制在待测 断面 上， 从 Ｙ值上就可 以看 出断面超欠挖情况 ， ２ 快速 断 面 绘 图 方法 外业完成 以后 ， 将 数据下载到电脑后用 Ｅ ｘ ｃ ｅ ｌ 表格打开并进 行相应 的编辑 。由于断面 图反映 的是垂直 于巷道掘进方 向的二 维平 面 ， 即 Ｙ值与 Ｈ值 ， 所 以 ｘ值并不 需要展绘到 Ｃ Ａ Ｄ中 ， 它 只
用excel数据导出cad道路断面图示
1 引言传统横断面测量方法有水准仪皮尺法、横断面仪法和经纬仪视距法等，简而言之就是根据地形的变化对与道路轴线方向相垂直的断面进行测量，其中直线段所测断面方向与道路中线方向垂直，而曲线路段与测点的切线方向垂直。
在对横断面测量以后，为计算道路工程土方量，我们紧接着就要绘制道路横断面图。
在实际工作中，横断面图的绘制通常是采用手工在米格纸上按照一定比例用卡规和复式比例尺按照横向是距离、纵向是高程刺点，用小钢笔连接刺点绘制闭合图形。
然后把每一个断面的横断面图分成若干个梯形用复式比例尺和卡规量出每一个梯形的上底、下底和高，计算出每一个梯形的面积，然后把所有的梯形面积相加才得到一个断面面积。
通常道路横断面施测要求每20m测一个断面。
在地形变化较大的位置要加测横断面，这样每1km道路至少要绘制50多个横断面图。
可见如果用传统的方法绘制一条50km的道路断面图工作量是非常巨大的，而且由于是手工绘制，修改起来很麻烦，在实际工作中返工的情况是经常发生的。
由此可见快速高效地绘制出道路横断面图是非常重要的。
笔者根据实际情况发现如果能对Auto CAD系统进行二次开发，运用AutoLISP语言和Visual LISP开发环境进行编程，创建Auto CAD的新命令或重新定义原有的标准命令，提供系统自动执行重复性的计算与绘图任务，此类问题就迎刃而解了，但这要求道路施工人员具备专业性很强的编程知识。
在绘制了大量的横断面图后，笔者总结出一个非常便捷的方法，这种方法不需要道路工程人员具备很强的编程知识，只要具备常规的Excel和Auto CAD知识，就可以自动、精确和快速绘制道路横断面图，并且此方法可以推广至重复性较强的绘图工作。
下面以一个实例进行详细说明。
2 对横断面数据的处理2．1确定边桩位置和高程倾斜地面高等级道路施工测量中的边桩定位一般用逐渐趋近法。
该方法无论采用经纬仪或全站仪都不能直接给出边桩位置，只能通过重复多次测量和计算，才能确定边桩的位置，这种方法的野外工作量较大。
利用Excel在AutoCAD中绘制断面图的实践应用
文章编号 :049420911 (2006) 0820031202
中图分类号 : P258 文献标识码 :B
利用 Excel 在 AutoCAD 中绘制断面图的实践应用
四 、在 AutoCAD 中绘制横断面图
打开 AutoCAD ,选择菜单命令 Draw →Point → Multiple Point (多点) 命令 ,在命令行指定点位置单 击鼠标右键 ,选择 Paste (粘贴) ,将剪贴板上的水平 距离与高程的坐标数据组粘贴过来 ,或在指定点位 置单击鼠标左键后键入 Ctrl + P 粘贴数据 ,通过窗 口缩放你会发现与水平距离和高程对应的所有点已 经全部展绘在 AutoCAD 图中了 ;在缺省情况下 ,点 对象仅被显示为一个小圆点 ,为了使得展点符号更 加清 晰 , 我 们 可 以 采 用 AutoCAD 中 的 系 统 变 量 pdmode 和 pdsize 来改变点的显示类型和尺寸 ,此外 我们也可以用 ddptype 命令在点样式对话框中选定 点的样式和尺寸大小 ,通过 regen 生成新类型和尺 寸的清晰的点 。
ZHAN G Wen2lin , HOU Wu2long
摘要 :介绍从数字地图中量取线路中心线横断面和纵断面上点的距离与高程的坐标数据 ,以及野外实际测量的坐标数据获取方 法 ,并在 Excel 中建立坐标数据组 ,在 AutoCAD 中批量展点 ,从而快速地绘制出横断面图和纵断面图 ,为计算土石方工作量提供准 确的矢量图依据 。 关键词 :断面图 ;测量 ; Excel ;AutoCAD
收稿日期 : 2006206219 作者简介 : 张文林 (19672) ,男 ,河北邯郸人 ,讲师 ,主要研究方向为地理信息系统 、工程测量 。
用excel数据导出cad道路断面图示.
1 引言传统横断面测量方法有水准仪皮尺法、横断面仪法和经纬仪视距法等，简而言之就是根据地形的变化对与道路轴线方向相垂直的断面进行测量，其中直线段所测断面方向与道路中线方向垂直，而曲线路段与测点的切线方向垂直。
在对横断面测量以后，为计算道路工程土方量，我们紧接着就要绘制道路横断面图。
在实际工作中，横断面图的绘制通常是采用手工在米格纸上按照一定比例用卡规和复式比例尺按照横向是距离、纵向是高程刺点，用小钢笔连接刺点绘制闭合图形。
然后把每一个断面的横断面图分成若干个梯形用复式比例尺和卡规量出每一个梯形的上底、下底和高，计算出每一个梯形的面积，然后把所有的梯形面积相加才得到一个断面面积。
通常道路横断面施测要求每20m测一个断面。
在地形变化较大的位置要加测横断面，这样每1km道路至少要绘制50多个横断面图。
可见如果用传统的方法绘制一条50km的道路断面图工作量是非常巨大的，而且由于是手工绘制，修改起来很麻烦，在实际工作中返工的情况是经常发生的。
由此可见快速高效地绘制出道路横断面图是非常重要的。
笔者根据实际情况发现如果能对Auto CAD系统进行二次开发，运用AutoLISP 语言和Visual LISP开发环境进行编程，创建Auto CAD的新命令或重新定义原有的标准命令，提供系统自动执行重复性的计算与绘图任务，此类问题就迎刃而解了，但这要求道路施工人员具备专业性很强的编程知识。
在绘制了大量的横断面图后，笔者总结出一个非常便捷的方法，这种方法不需要道路工程人员具备很强的编程知识，只要具备常规的Excel和Auto CAD知识，就可以自动、精确和快速绘制道路横断面图，并且此方法可以推广至重复性较强的绘图工作。
下面以一个实例进行详细说明。
2 对横断面数据的处理2．1确定边桩位置和高程倾斜地面高等级道路施工测量中的边桩定位一般用逐渐趋近法。
该方法无论采用经纬仪或全站仪都不能直接给出边桩位置，只能通过重复多次测量和计算，才能确定边桩的位置，这种方法的野外工作量较大。
CAD中批量绘制断面图的方法改良
利用EXCEL坐标在CAD中批量绘制断面图的方法我在学习CAD的过程中，在网上找了很多资料，终于找到了很有效的批量绘制断面图的方法，现在用一个实例来介绍给跟我一样的初学者。
（之前上传了一个一模一样的，但是文档格式没做好，在百度文库中又无法修改，只好重新上传一个修改后的。
）先举例介绍一个EXCEL函数：=IF(OR(C5=FALSE,B5=FALSE,A5=FALSE),"","_donut 0 0.5"&ROUND(C2,3)&","&ROUND(B2,3)& " "&" -text j ML"&ROUND((C2+2),3)&","&ROUND(B2,3)&" 2.0 0 "& A2)（要注意这个函数中的空格）OR(C2=FALSE,B2=FALSE,A2=FALSE)函数：C2，B2，A2三个值中只要任意一个是FALSE,则OR输出结果为TRUE。
IF（logical_test,value_true,value_false）函数：第一个参数是判断式，如果判断为真值（TRUE），则输出结果为value_true,如果判断为假值(FALSE),则输出结果为value_false.例如：if(3>2,4,5)，因为判断式3>2成立，所以if(3>2,4,5)的输出结果为4，同理if(3>20,4,5)，因为判断式3>20不成立，所以if(3>2,4,5)的输出结果为5.ROUND（number,number_digits）函数：取小数点后面的位数。
例如：ROUND(123.45678,3)：取小数点后面三位，所以输出结果是：123.457（四舍五入）ROUND(123.45678,2)：取小数点后面两位，所以输出结果是：123.46（四舍五入）&这个符号是合并字符串，例如："aa" & "bb"则输出结果是：aabb字符串必须用引号括起来。
用EXCEL配合CAD绘制断面图
用EXCEL配合CAD绘制断面图
顾凤鸣;李南山;张二勇
【期刊名称】《煤炭工程》
【年(卷),期】2004(000)B05
【摘要】随着计算机应用的普及，岩土工程中的测绘成果基本上由计算机进行处理，断面图的绘制也借助专门的软件来完成。
若手头没有可用的专业断面图绘制软件时，利用Excel、CAD可便捷地绘制断面图。
论文通过实例，介绍了这种绘制断面图的方法。
【总页数】2页(P127-128)
【作者】顾凤鸣;李南山;张二勇
【作者单位】中煤国际工程集团武汉中汉岩土工程技术开发公司，湖北武汉430064
【正文语种】中文
【中图分类】TP391.72
【相关文献】
1.利用EXCEL在南方CASS7.0中绘制横断面图 [J], 刘学海;郑洪达
2.利用Excel 在AutoCAD 中绘制横断面图的实践应用 [J], 范长玉;徐菲
3.利用Excel、AutoCAD整理测量数据并自动绘制水利工程断面图 [J], 王洪宝
4.利用Excel数据合并在AutoCAD中绘制堤防横断面图的探讨 [J], 任少峰
5.利用Excel在AutoCAD中绘制断面图的实践应用 [J], 张文林;侯五龙
因版权原因，仅展示原文概要，查看原文内容请购买。
横断面绘制方法
横断面绘制方法 This manuscript was revised by the office on December 10, 2020.excel 和 AutoCAD 相结合绘制横断面图横断面图的绘制一般需要专业的软件来绘制。
可以根据断面数据或从等高线 图上获取数据来绘制，但在高程图上采集数据绘制时断面图精度受限于地形图点 位精度和密度。
当需用高精度的断面图时就需实地现场采集断面数据来绘制。
一般用水准仪测量时数据格式如下： 前视读数 距离 后视读数 桩号 前视读数 距离 左右两侧分别与里程前进方向的左右两侧相对应。
而用电子全站仪和 RTK 采集三维坐标是测绘发展到现阶段的的两种主要方 向，且所测得的坐标能直接存储，在记算机上，通过程序处理直接绘制横断面图 和计算出任意段的填挖土方。
具有效率高、不出错，（读错、记错、输错等）诸 多优点，使断面测量内外业真正实现一体化。
但当我们在没有专业软件时，运用常用的软件 excel 和 AutoCAD 相结合绘制 横断面图也是可行的，具体方法及步骤如下： 一：线路横段面坐标系。
横断面测量是测定各里程两侧垂直于中线的各地形变化点及偏离中线的距 离。
根据这一原则很容易将电子全战仪或 RTK 测得的 X 、Y 换算各里程桩的距 离，而 Z 坐标即为地面点的高程，但这种方法不能在实测时及时调整跑尺或 RTK 流动站偏离横断面的方向和控制横段面的宽度。
建立横断面坐标系，即建立以各里程桩为坐标原点，以里程桩切线方向为 X′轴，法线方向为 Y ′轴的临时坐标系统，；仪器在该坐标系中测得的 X′值 既为偏离 Y′轴（横断面的方向）的值，测得的 Y′值即为离 X′轴的距离（即 至中线的垂直距离），横断面坐标系如下左图所示。
X 'oY 'Y横断面坐标系与测量坐标系的关系如上右图所示，将测量坐标系中的任一点 P （X Ｐ，Y Ｐ）转换成横断面坐标系中的坐标：X Ｐ′=(X Ｐ－Xo′)cosα＋(Y Ｐ－Yo′)sinα Y Ｐ′=(X Ｐ－Xo′)sinα＋(Y Ｐ－Yo′)cosααAB =π－π/2*sign(Y B －Y A)－atan((X B －X A )/ (Y B －Y A ))式中，Xo′、Yo′为断面里程桩在测量坐标系中的坐标值；α为测量坐标系 X轴与断面坐标系X′轴的夹角，即里程桩切线的方位角。
AUTOCAD+VBA+生成道路测量中的纵横断面数据表(版2)
Exit Sub
ElseIf StrComp(strinput, "A", 1) = 0 Then
strinput1 = ThisDrawing.Utility.GetPoint(, "输入距中桩[距离][高程]:")
excelsheet.Cells(i, j) = strinput1(0)
Dim s As Single‘定义断面点间距变量
Dim strinput As String‘定义用户输入高程和距离变量数组
Dim strinput1 As Variant‘定义用户输入高程和距离变量数组
Dim i, j As Integer‘定义引用EXCEL单元格的行列号变量
Dim biaoji As AcadCircle '定义一个圆，标记鼠标捕捉的点位
excelsheet.Cells(i, j + 1) = strinput1(1)
i = i + 1
Err.Clear
GoTo Colsecond‘程序跳至Colsecond运行
End If
End If
End If
‘当用户没有输入关键字时的程序运行方法
biaoji.Delete '删除上一点的圆圈标记
步骤2：进入VBA集成开发环境，双击“工程资源管理器”窗口中的THISDRAWING图标，打开代码窗口，选择“工具/引用”菜单项，打开如图3所示对话框，选中MICROSOFT EXCEL12.0 OBJECT LIBRARY (EXCEL对象库，其版本与计算机上安装的OFFICE版本有关，12.0是OFFICE2007对应的版本号)，引用类型库实际上是向编译器表示本程序要使用一个已注册的组件，引用对象库后就可以在对象浏览器中观察对象库中的对象，方法和属性。
利用Excel数据在AutoCAD绘图软件中绘制土坝横断面
利用Excel数据在AutoCAD绘图软件中绘制土坝横断面陈鸿遵Excel数据处理软件具有超强的数据处理功能，而AutoCAD绘图软件绘图时需要调入大量的数据，如何在AutoCAD绘图时调入Excel 的数据，笔者根据自己的工作经验，浅谈二者“联姻”的小方法，希望能够为设计绘图工作提供一些便利，并与大家共同探讨交流：1.基本思路AutoCAD绘图时，各种轮廓线（即线段）皆由平面点的坐标（X，Y）连接而成，Excel表格可以提供坐标点（X，Y）格式的数据，把Excel坐标格式的数据提供给AutoCAD软件，二者即可完成“联姻”工作。
2.具体方法：2.1Excel表格数据的录入和生成根据处理后的地形测量和设计数据，在Excel表格中分别依次录入某一横断面各点的横坐标（X）和纵坐标（Y）于两列中,然后在第三列中生成（X，Y）格式的数据。
例如：假设某点坐标为 (X i,Y i)（i ＝1，2，3，4…），录入时使Ai=X i，Bi=Y i(i=1,2,3,4…),在C列中编辑公式：Ci=Ai&","&Bi（i=1,2,3,4…）, 于是该列中的所有数据显示为坐标格式数据，即为我们需要的坐标格式数据(X i,Y i)。
2.2 AutoCAD绘图时数据的调入首先在EXCEL表格中选取该横断面所有坐标格式数据，然后点击复制命令。
如：选取Ci(i=1,2,3,4…20，假设该横断面有20个点)，点击鼠标右键，然后点击“复制”命令（或者直接使用快捷键方式：Ctrl＋C）。
然后打开AutoCAD绘图软件，点击绘直线命令，在屏幕下方出现命令提示行：“-line指定第一点：”，移动鼠标至该提示行尾，点击鼠标右键，点击“粘贴”命令。
此时AutoCAD绘图区出现该横断面及地面轮廓图。
3.特点3.1为数据检查与修改提供了方便。
利用EXCEL数据处理软件，可以直接录入原始测量数据，通过编辑公式计算，得到我们绘图时需要的坐标数据。
- 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.。