AutoCAD画赤平投影及EXCEL系统

AUTOCAD参数查询及绘图技巧——EXCEL辅助篇如果说，AUTOCAD是我们绘图、图解、查询的重要软件，那么EXCEL就是我们管理、整理、计算、报表输出数据的重要软件，相比于文本文件进行数据管理，我们更愿意用EXCEL，因为它显示清晰，易于编辑，方便批量计算，如果肯下功夫，还能编程，功能实在是强大得不得了。

就以多边形面积计算数据为例，用文本文件和电子表格显示区别如下：这节课我先要讲的是，如何根据EXCEL中的坐标数据，高效地在AUTOCAD 中生成图形（根据坐标依次连线）。

这个问题，撇开EXCEL不谈，网友们也给出了很多高效的方法，有的用脚本文件SCR，有的用坐标格式的文本文件，有的用电子表，等等，方法都不错，都可行，效率也差不多，都比手工输入坐标高效得多。

我这里，还是要讲如何利用EXCEL来进行高效绘图，因为，我对EXCEL情有独钟。

方法是，在有坐标数据的EXCEL文件中，坐标数据后面的空白列中，生成这样一个数据格式的列表：Y,X解释一下，首先，为什么要把Y放在X的前面呢，因为测量坐标系和AUTOCAD 坐标系，可以理解为是XY正好相反。

然后为什么，两个数字之间要用逗号（,）呢？为什么不用分号（;），或者空格什么的？这个不解释，它就是这样的，反正你用其它符号，你画不出图形。

最后要解释的最关键，怎么生成这么一列”Y,X”格式的数据呢？这个要用到“&”符号，这个符号，意思是“and”，也读这个音，在EXCEL和很多编程语言中，这个符号“&”是用来连接两个字符串的。

不信，你可以在电子表格中输入一个公式，这样写：="王中伟"&"是个大好人"怎么样，结果出来了吧，两个字符串合起来了，变成了“王中伟是个大好人”。

你可以进一步，把“王中伟”放在一个单元中，比如A1，把“是个大好人”放在另一个单元格中，如A2，然后在A3单元格中输入：=A1&A2。

利用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绘制赤平投影图软件徐春才(北京勘测设计研究院勘测处北京 100024)1 前言极射赤平投影（简称赤平投影）在现代构造地质学中的研究和应用已经相当成熟,但用手工绘制赤平投影图时,需借助吴氏网,比较繁琐。

我们用AUTOLISP语言编制了绘制赤平投影图软件,非常实用方便,而且图面整齐美观。

本软件赤平投影的方法采用下半球投影法,即以空心园球球顶(或称球极)为发射点,将空间任意产状的线、平面与设想的空心球(投影球)的交点、交线投影到赤平面上。

投影方法也可以用下半球的极点为发射点,投影到上半球。

两种投影所得到的图形完全相同,但位置是不同的,如将投影图转动180°,就可将上、下半球的投影互换。

2 主要功能及操作方法程序运行中,提示用户输入基园园点坐标,约定值为(0,0);基园半径,约定值是3cm。

输入以上两项数据后,自动在指定位置绘制基园,如图1所示。

并将绘制赤平投影图的菜单调至AutoCAD图形中,菜单如下所示：赤平投影的应用******************************* 北京勘测设计研究院勘测处*******************************绘吴式网绘平面的赤平投影弧绘直线的赤平投影点指定工作图上的一点求产状在工作图上绘一走向线在工作图上给定三点绘弧－－－－－－－－－－－－－－－－－－－－－已知一个结构面的两个假倾斜,求其产状已知一个结构面的走向和一个假倾斜,求其产状给定一个结构面的产状,求任意方向的视倾角点取“绘平面的赤平投影弧” 一项,提示:请输入编号：请输入产状：产状格式：走向倾向<倾角,例如有一结构面的编号为F1,其走向NE30 ,倾向SE倾角40 ,则输入编号:F1,产状:NE30 SE<40 ,机器自动绘出该结构面的赤平投影弧和法线的赤平投影点,并在弧的中间位置书写结构面的编号F1。

A、B两点的连线为走向线,D点为结构面法线的投影点。

手把手教你应用赤平投影（CAD图解）来庆超一、序言岩质边坡稳定性分析方法有许多，但无论是平面滑动的单一楔形断面滑体、单滑块和多滑块分析法，还是楔体滑动的仿平面分析法、楔体分割法、立体分析法、霍克分析法以及《岩土工程勘察规范》（GB50021－94）推荐法等，在计算边坡稳定性系数时，需要知道滑体控制平面（包括结构面和坡面、坡顶面）或直线（包括平面的法线）的地质产状，以及平面与平面、直线与直线、直线与平面间夹角等。

其中平面和直线的产状可以通过现场测量获取，除此之外的几何参数，在没有发明极射赤平投影之前，都是用计算法求得，不仅它们的计算公式复杂，而且计算过程繁琐，也很容易出错。

如果采用极射赤平投影求解边坡稳定性分析所需的几何参数，那就可以简化这些几何参数的计算过程，而且一般情况下只需要在现场测量出各个控制平面的地质产状即可。

二、极射赤平投影的基本原理（一）投影要素极射赤平投影（以下简称赤平投影）以圆球作为投影工具，其进行投影的各个组成部分称为投影要素，包括：1.投影球（也称投射球）：以任意长为半径的球。

2.球面：投影球的表面称为球面。

3.赤平面（也称赤平投影面）：过投影球球心的水平面。

4.大圆：通过球心的平面与球面相交而成的圆，统称为大圆（如图一（a）中ASBN、PSFN、NESW），所有大圆的直径相等，且都等于投影球的直径。

当平面直立时，与球面相交成的大圆称为直立大圆（如图一（a）中PSFN）；当平面水平时，与球面相交成的大圆称为赤平大圆或基圆（如图一（a）中NESW）；当平面倾斜时，与球面相交成的大圆称为倾斜大圆（如图一（a）中ASBN）。

5.小圆：不过球心的平面与球面相而成的圆，统称为小圆（如图一（b）、（c）中AB、CD、FG、PACB）。

当平面直立时，与球面相交成的小圆称为直立小圆（如图一（b）中DC）；当平面水平时，与球面相交成的小圆称为水平小圆（如图一（b）中AB）；当平面倾斜时，与球面相交成的小圆称为倾斜小圆（如图一（b）中FG或图一（c）中PACB）。

工程制图中AutoCAD与EXCEL的紧密联系地矿部河北水文工程地质勘察院段保春主题词：方法CAD制图EXCEL软件内容简介：本文通过研究AutoCAD与Excel两个软件之间数据交互，旨在提高技术人员的成图速度和成图质量，同时，提供了一个提取AutoCAD中坐标的Lisp程序，是利用Excel 成图的一个基础。

在AutoCAD制图过程中，总结一下CAD命令，无外乎两个方面，一个是在哪里（坐标），一个是干什么（命令），比如，划点、线、面等，都是在那里，划点，划线，与划面。

本文重点说明了利用EXCEL 软件解决在哪里干什么的CAD问题。

具有强大的计算功能，我们很多的数据均是经过计算后，再成图的，比如坐标点，高程，等等，而其它软件的结果有很多也是利用了EXCEL软件形成最终结果的，或者是可以导出为EXCEL表格形式的，这样，为我们制作CAD图打下了基础。

过去，人们只用把这些数据在CAD窗口下重新录入一遍，才能够形成相应的图件，这样的录入过程一是时间长，二是容易错。

不用写任何程序，也不用其它软件的帮助，只要懂CAD的命令格式，就能完成CAD的任务。

一、准备内容本文论述的一些CAD命令的解释，1）画多义线，基本格式是pline （坐标数据，坐标数据。

）2）划圆基本格式是circle (坐标数据) （半径）1、用Excel电子表格，快速将坐标点形成cad图的方法经常要用AutoCAD画出一条曲线，而这条曲线如果是由多个坐标点连接成的，输入起来就麻烦，而且容易出错。

如果利用EXCEL 应用程序来保存数据，并与CAD巧妙地结合起来，就能很容易地画出该曲线。

具体方法为：首先，在Excel中输入坐标值。

我们将x坐标值放入A列，y 坐标值放入B列，再将A列B列合并成C列，由于AutoCAD中二维坐标点之间是用逗号隔开的，所以我们在C2单元格中作求和运算，输入：<=A2&”,”&B2 >(尖括号不录入)，C2中就出现了用”,”号相隔的一对坐标值。

AutoCAD二次开发案例--结构面赤平极射投影图李保;代波【摘要】重庆地形多属山区地形，工程建设中经常会存在边坡问题。

在岩土工程勘察中对岩质边坡的定性评价，多采用结构面赤平极射投影图进行稳定性分析。

根据投影图中各圆弧线的相互关系，即可判断边坡的类型，评价边坡的稳定性及破坏方式。

而采用人工制图的方式是件费时费力的事情，该文采用AutoLISP语言编制的结构面赤平极射投影图制图程序，可直接在AutoCAD窗口中运行直接成图，极大地提高工作效率。

%The terrain of Chongqing is mostly mountainous, which posts frequent slope construction problems in projects. In geotechnical engineering in-vestigation, stereographic projectionmap of structural plane are usually adopted to make a stability analysis for qualitative evaluation of the rock slope. According to the relationship among the circular arc lines, the slope type can be determined, and the stability and failure mode of the slope can also be e-valuated. It takes much time and manpower if adopt the artificial mapping method, and the cartographic program of stereographic projectionmap of struc-tural plane by AutoLISP language can run directly into the diagram in the Auto CAD window, which greatly improves work efficiency.【期刊名称】《重庆建筑》【年(卷),期】2015(000)011【总页数】4页(P54-57)【关键词】AutoCAD;二次开发;结构面;投影;边坡工程【作者】李保;代波【作者单位】重庆市地质灾害防治工程勘查设计院，重庆 400700;重庆市地质灾害防治工程勘查设计院，重庆 400700【正文语种】中文【中图分类】TU450 前言我们的岩土工程勘察设计工作图件多离不开AutoCAD制图软件，但工作中常常需要绘制一些特殊的图件，这些特征图件若在AutoCAD中手工绘制，将是一件费时费力的事情，但AutoCAD提供了程序应用界面，用户可以利用许多编程语言编制自己需要的程序在AutoCAD中执行，以提高用户的工作效率。

手把手教你应用赤平投影（CAＤ图解）来庆超一、序言岩质边坡稳定性分析方法有许多，但无论是平面滑动的单一楔形断面滑体、单滑块和多滑块分析法，还是楔体滑动的仿平面分析法、楔体分割法、立体分析法、霍克分析法以及《岩土工程勘察规范》（GB5002１－94)推荐法等，在计算边坡稳定性系数时,需要知道滑体控制平面（包括结构面和坡面、坡顶面)或直线（包括平面的法线）的地质产状,以及平面与平面、直线与直线、直线与平面间夹角等.其中平面和直线的产状可以通过现场测量获取,除此之外的几何参数,在没有发明极射赤平投影之前，都是用计算法求得，不仅它们的计算公式复杂,而且计算过程繁琐，也很容易出错。

如果采用极射赤平投影求解边坡稳定性分析所需的几何参数，那就可以简化这些几何参数的计算过程，而且一般情况下只需要在现场测量出各个控制平面的地质产状即可。

二、极射赤平投影的基本原理（一）投影要素极射赤平投影(以下简称赤平投影）以圆球作为投影工具，其进行投影的各个组成部分称为投影要素，包括：1。

投影球（也称投射球)：以任意长为半径的球。

２.球面:投影球的表面称为球面.３.赤平面（也称赤平投影面）：过投影球球心的水平面。

4.大圆：通过球心的平面与球面相交而成的圆,统称为大圆（如图一（a）中ＡSBN、PSFN、NESＷ)，所有大圆的直径相等,且都等于投影球的直径。

当平面直立时，与球面相交成的大圆称为直立大圆（如图一(a)中PSＦN);当平面水平时，与球面相交成的大圆称为赤平大圆或基圆（如图一(a)中NESW）;当平面倾斜时，与球面相交成的大圆称为倾斜大圆（如图一（a)中ASBN).５．小圆：不过球心的平面与球面相而成的圆，统称为小圆（如图一(b)、(c）中AＢ、CD、FＧ、PAＣＢ)。

当平面直立时,与球面相交成的小圆称为直立小圆（如图一（b)中ＤＣ）；当平面水平时,与球面相交成的小圆称为水平小圆（如图一(b）中AB)；当平面倾斜时，与球面相交成的小圆称为倾斜小圆(如图一（b）中ＦG或图一（ｃ）中PAＣＢ）。

Excel软件在AutoCAD绘图中的辅助应用(一)2010-01-19 19:35:54 来源: 作者: 【大中小】浏览:32次评论:0条1 引言Excel软件是美国微软公司的办公软件，由于其强大的表格数据处理功能而为广大用户所喜爱，是全球应用最广的办公软件office软件中的一个组成部分。

AutoCAD软件是美国AuotDesk公司的计算机辅助设计软件，具有二维绘图、三维绘图和开发设计等功能。

其二维绘图功能堪称是所有绘图软件中最为强大的，故为所有计算机绘图人员的首选软件。

AutoCAD软件在绘制直线、圆弧、简单曲线曲面等对象时极为方便，但在绘制公式曲面、曲面时功能较差。

虽然说可以应用AutoCAD的二次开发工具如VisualLISP、VBA、ARX等可以实现公式曲线曲面的绘制，但对于广大绘图人员来说，为了绘制几条公式曲线或曲面去专门学习二次开发也是不现实的。

本文作者对于AutoCAD的二次开发做了较多的研究，在应用过程中也总结了一些通过应用Excel软件的强大数据计算功能来辅助AutoCAD 绘图的技巧，在本文中一一阐述。

同时也针对将Excel表格导入AutoCAD以形成明细表的方法做了简单介绍。

2 Excel软件在AutoCAD绘图中的几个应用2.1 在AutoCAD中精确绘制公式曲线对于由公式形成的曲线，曲线上各点的坐标在Excel中通过其自动计算功能生成，然后以点的形式存储在单元格中。

当在AutoCAD中应用样条曲线（Spline）或多段线（Pline）命令绘制时再粘贴至CAD中即可。

如在CAD中绘制方程为的公式曲线，其操作步骤如下：1) 确定自变量定义域及步长，在Excel中第一列（本例为A列）输入自变量x，输入时可采用Excel中的拖动功能；2) 在第二列（本例为B列）中根据公式利用Excel的拖动公式功能计算出因变量y结果，见图1；3) 在第三列（本例为C列）中利用字符串连接符号&将前两列的自变量与因变量通过“，”连接成点坐标的形式，如C2=A2&”,”&B2，见图2；4) 打开AutoCAD，点击样条曲线（spline）命令，在提示输入点坐标时将Excel 中第三列内容粘贴进来，回车三次（若用多义线Pline命令，则回车一次），则生成曲线如图3。

Excel与 AUTOCAD 软件结合运用于施工图绘制、计算、测量的工法1.前言本工法是依据工程实践经验，用系统、科学的观点将施工测量单调、繁琐的数据运用软件处理方法转化为形象、直观的图形，然后在此基础上进行各项施工测量工作的一种新技术。

运用此方法可以快速计算各种测量数据（高程、坐标），并将数据通过软件转化形成具体准确的平面图，此方法可为测量计算复核提供一种有效的辅助方法，可以快速找出测量计算中存在的较大错误，另外生成的图形可以为其他测量工作或施工平面布置等提供操作平台，使测量数据计算、施工放样的精度及工作效率得到很大的提高。

此方法操作简单明了，易于学习掌握，充分体现了excel与 AUTOCAD 软件相结合应用于测量工作的优点。

通过工程实践证明，具有推广应用价值。

2.特点采用excel与 AUTOCAD 软件相结合的施工测量方法适合于工程平面结构较复杂，结构控制点多，坐标、高程等测量数据计算烦琐，计算量大的工程。

传统的测量施工方法是先计算控制点的坐标或高程然后进行换手复核，而后进行测量操作，在测量施工中经常会遇到施工任务紧，测量数据量大，人手不足造成测量计算复核工作不充分，造成测量事故的发生。

因此本工法与常规测量相比具有如下特点：1.1 实现了抽象的测量数据向具体的图形的快速转换，测量人员只要将测量的数据通过excel软件的应用，将批量的数据在AUTOCAD中快速地转换成精确的平面（纵断面）图，与传统的手工输入绘图相比，具有速度快、精度高、效率高的特点。

1.2 传统的复核，无论是换手还是换方法，都是在数据计算方法之间进行复核、检查。

通过测量数据的图形转换复核，通过软件中的菜单运用，能够快速发现测量数据中比较明显的计算错误，结合此方法进行施工测量复核可以大大减少工作量，提高复核精度。

1.3 因图形为测量数据直接生成比例为1：1，图形为坐标直接生成，在图形上任意点取位置获得平面坐标即可用于测量放样，另外，图形各项特性可以直接运用于工程实体的计算，如：施工征地面积，建筑面积，结构细部尺寸计算确定等等，与传统数字计算相比具有直观，计算准确、速度快的特点。

.教你如何使用CAD连接EXCEL进行数据绘图今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图的方法。

当然我们在这里需要用到CAD的宏下的VBA功能。

如图，今天就是要完成如何在CAD中画出如以下图所示的坐标的图形。

当然如果学会了此种绘图的方法之后，还可以更改数据后进行更高级的绘图了。

工具/原料•AutoCAD 2004正式版与EXCEL。

步骤/方法1. 1打开CAD工具菜单下宏下的Visual Basic编辑器，新建一个模块，输入如下代码：Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSub aa() '宏名Set xlapp = CreateObject("excel.application")Set xlbook = xlapp.workbooks.Open("D:\cadvba\fzcp.xls") '打开的EXCEL路径xlapp.Visible = FalseSet xlsheet = xlbook.worksheets("sj") '打开EXCEL中的工作表i = xlsheet.Cells(1, 6) 'i为线条线数m = xlsheet.Cells(2, 6) '这里表示第2行第6列n = xlsheet.Cells(3, 6)t = xlsheet.Cells(4, 6)For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(2 + p, 1)h1 = xlsheet.Cells(2 + p, 2)k3 = xlsheet.Cells(2 + p, 3)k2 = xlsheet.Cells(3 + p, 1)h2 = xlsheet.Cells(3 + p, 2)h3 = xlsheet.Cells(3 + p, 3)Dim 点 As AcadLineDim 起点(2) As DoubleDim 端点(2) As Double起点(0) = k1 + m起点(1) = h1 + n起点(2) = k3 + t端点(0) = k2 + m端点(1) = h2 + n端点(2) = h3 + tSet 点 = ThisDrawing.ModelSpace.AddLine(起点, 端点)Nextxlbook.Closexlapp.QuitSet xlapp = NothingEnd Sub2. 2同时打开编辑器的工具菜单下的引用，找到Microsoft Excel 11.0 Obje ct Library，如果没有此项，可浏览打开EXCEL启动文件即可。