excel表格数据画cad图.docx

excel表格数据画cad图.docx

《excel表格数据画cad图.docx》由会员分享，可在线阅读，更多相关《excel表格数据画cad图.docx（6页珍藏版）》请在冰豆网上搜索。

excel表格数据画cad图

竭诚为您提供优质文档/双击可除

excel表格数据画cad图

　　篇一：

将excel数据导入cad画图的简易方法

　　将excel数据导入cad画图的简易方法

　　在excel的a列给出线上对应点的x值，在b列给出线上对应点的y值，c列输入公式a3缩放至满幅

　　xlbook.close

　　xlapp.quit

　　setxlapp=nothing

　　endsub

　　3.打开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）asacadentity

　　dimcenterpoint（0to2）asdouble

　　dimradiusasdouble

　　dimstartangleasdouble

　　dimendangleasdouble

　　debug.printoptionbutton1_

　　debug.printoptionbutton2

　　iftextbox1=""then

　　setxlapp=createobject（"excel.application"）

　　setxlbook=xlapp.workbooks.open（"d:

\cadvba\eaht.xlsx"）打开的excel路径

　　xlapp.Visible=False

　　setxlsheet=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.141592653

　　endangle=xlsheet.cells（14,6）（所画弧终点弧度值）

　　else

　　centerpoint（0）=textbox1

　　centerpoint

（1）=textbox2

　　centerpoint

（2）=textbox3

　　radius=textbox4

　　ifoptionbutton1=trueandoptionbutton2=Falsethen

　　startangle=textbox5/180*3.1416

　　endangle=textbox6/180*3.1416

　　elseifoptionbutton1=Falseandoptionbutton2=truethen

　　startangle=textbox5

　　endangle=textbox6

　　else

　　msgbox"角度单位不明确"

　　endif

　　endif

　　setcurves（0）=thisdrawing.modelspace.addarc（centerpoint,radius,startangle,endangle）

　　zoomextents

　　endsub

　　3.做好这几步之后就保存编辑内容，然后点击工具栏上的▲（向右）或按F5或点击工具菜单→运行就会出现用户窗体，若用excel中数据画弧就点击命令按钮-画弧，若用窗体改变参数就向窗体填数并选择角度单位，然后点击画弧按钮，然后，到cad界面可见既定圆弧线。

　　注意：

1.如果画弧程序不是与折线程序做在同一工程中，则全局变量要在模块中另行定义，并引用microsoftexcelxx.xobjectlibrary。

　　2.cad20xx以后不带Vba，需要另行安装。

　　本文借鉴：

　　篇三：

用excel快速制作cad断面图示例（绝对有用）

　　在高速公路项目中，施工单位前期进场都会对原地面进行复测，测量人员要快速地用复测数据绘图并算出土方的填挖量，对项目组织相应的工作策划及部署至关重要。

这也就对测量人员提出了出图效率问题，本文以横断面为例进行说明。

　　1数据获取

　　现在施工单位都普及了全站仪，我们只需要将根据地貌特征点选取好断面来测量，在土方的数据量上来说是不会有很大的出入，目前我们大多使用的是casio和shaRp-e500计算器，我们最好编写的程序能用坐标计算出此点所对应的桩号、边距（顺路线前进方向左侧边距为负，右侧为正），只需要记录断面桩号、边距、高程就可以顺利出断面图了。

2excel上处理数据

　　将现场测量数据录入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。

　　图二图三

　　在cad的文件下拉菜单的页面设置管理器里新建一“断面打印”的新页面设置名，并选择打印机名、图形尺寸中的a3、打印区域中的窗口、选中居中打印、比例（s）中的自定义下面分别输入2.5和1后，点确定后并将其置为当前（s）。

　　按ctrl+p快捷键出现图三界面，选择“窗口（o）　　通过这样有效的办法与途径不但减轻了测量人员的工作任务，并缩短提供土方数据的时间，为工程提前完工、项目盈利创造条件。

　　1引言

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

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

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

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

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

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

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

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

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

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

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

　　2对横断面数据的处理

　　2．1确定边桩位置和高程

　　倾斜地面高等级道路施工测量中的边桩定位一般用逐渐趋近法。

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

本文给出了由横断面测量数据直接计算中桩到边桩的水平距离和边桩高程的方法，利用这种新方法可一次性标定边桩位置（如图1所示）。

　　图1确定边桩位置和高程示意图

　　建立如图1所示坐标系，确定边桩也就是确定图中d的位置和高程，假设b、c点坐标分别为（x1，y1）、c（x2，y2）、边桩d坐标为（x，y），因为b、a是所测原地面的两点，所以

　　ba的坡度1／m1是可以通过b、a坐标反算得出，cd的坡度1／m2是由设计图纸给定的填方或者挖方的坡度确定。

那么就有公式：

　　解此方程组得到：

y=（x-x1）×m1+y1

　　式中：

x是指边坡点高程；y是指边坡点到中桩距离。

我们在excel中可以通过以上计算公式求出x，y。

　　2．2在excel中处理测量数据

　　横断图上的每一点都是由横坐标为距离、纵坐标为高程来表示，在autocad中称为笛卡尔坐标系，即：

所有的测点都可以用“x，y”表示，为此必须把横断面上测量点处理为“x，y”的形式，autocad才能识别。

例如：

道路中心线右侧16．8m位置的高程为690．513m，可以表示为“16．8，690．513”；在道路中心线左侧15．3m位置的高程为691．560m，可以表示为“-15．3，691．560”。

为了作图方便我们规定道路左侧的距离为负，道路右侧的距离为正。

这种数据处理的方式在excel中是很容易实现。

　　比如：

乌鲁木齐市迎宾东路新建工程（第二标段）部分原地面数据填写如图2所示。

　　图2原始地面数据