提取cad点坐标生成表格并至
CAD坐标转EXCEL的方法
CAD坐标转EXCEL的方法-AutoCAD辅助程序(CadAssis)CadAssis简介：' CadAssis是一个AutoCAD辅助程序，主要用于解决AutoCAD与Excel之间的数据交换问题。
'AutoCAD与Excel分别以其强大的绘图功能和数据处理功能而成为工程设计中必不可少的两个软件工具，'利用Excel处理数据，然后利用AutoCAD出图，成为多数设计人员的选择，有时也需要将图形数据提取'到Excel中处理，如何有效快速地在AutoCAD与Excel之间传递数据成为影响工作效率的关键。
CadAssis'在AutoCAD与Excel之间架起一座桥梁，轻松实现AutoCAD与Excel之间的数据交换。
' CadAssis目前主要有以下五个功能：' 1. 完成AutoCAD中量距与读取某一点坐标的功能，将结果写入Excel表格，写入项目及精度可以指定；' 2. 完成多段线节点坐标在AutoCAD与Excel之间的互导;' 3. 从Excel中读取参数，然后在AutoCAD中重复执行某个命令，比SCRIPT更加方便灵活；' 4. 通过指定封闭区域内一点测量封闭区域的面积，类似图案填充操作；' 5. 将Excel中多行多列数据写成一列，可以按行或按列转换。
''安装：请将TABCTL32.OCX和TABCTCHS.DLL两个文件拷入\WINDOWS\system32目录中' 主程序CadAssis.exe不用安装，可在任意位置运行，但config文件应与主程序位于同一目录中。
'''用法： 1.设置：' 1.1 输出精度：在Dist面板PREC栏指定输出精度(默认小数点后三位)' 1.2 坐标系统：在Dist面板勾选YOX项指定使用工程坐标系统' 2.Dist与ID: 打开Cad和Excel,指定一活动单元格，从面板复选框指定精度与范围' 然后在Cad屏幕拾取两点(一点)' 3.pline之Acad-〉Excel，在Excel中指定放置坐标的起始单元格位置，再在Pline' 面板中按下“-〉Excel”，选取一根多义线(三维多义线跟轻量多义线均可)，' 最后到Excel中看看吧若勾选“-〉Excel”按钮右边的复选框，则输出PLine' 坐标的同时还会输出与之相交的直线的起终坐标及交点坐标' 4.pline之Excel-〉Acad，在Excel中选取坐标值(二维选两列，三维选三列)，按下' “-〉Acad”CadAssis会分别生成LWpline跟3Dpline' 5.SCR：重复执行某个命令，有两种使用方式：' 5.1 从下拉选择框中选择命令：预置了“text”、“insert”、“circle”、“ZhanDian”' 四个命令。
(2021年整理)CAD坐标批量提取
(完整版)CAD坐标批量提取编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（(完整版)CAD坐标批量提取）的内容能够给您的工作和学习带来便利。
同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。
本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快业绩进步，以下为(完整版)CAD坐标批量提取的全部内容。
(完整版）CAD坐标批量提取编辑整理:张嬗雒老师尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布到文库，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是我们任然希望 (完整版）CAD坐标批量提取这篇文档能够给您的工作和学习带来便利.同时我们也真诚的希望收到您的建议和反馈到下面的留言区,这将是我们进步的源泉,前进的动力.本文可编辑可修改，如果觉得对您有帮助请下载收藏以便随时查阅，最后祝您生活愉快业绩进步,以下为 <（完整版)CAD坐标批量提取> 这篇文档的全部内容。
CAD坐标数据批量导出小工具这个是利用cad二次开发编写的一个lisp，以下是程序，如果想修改坐标提取的的excel，可将下面红色背景的路径改一下（defun c:md(）(setvar ”cmdecho” 0）（COMMAND "。
UNDO" ”BE”）(command ”-units" "2" "3" ”2" ”3” "" ”"）(setq fp (ope n ”d:/桩号坐标值。
xls” "a") s (getvar "cmdecho"） n （getint ”\n 请输入总桩数！ "))（princ ”桩号" fp)（princ "\t” fp）(princ "X坐标值” fp)(princ "\t” fp）（princ "Y坐标值” fp)（princ ”\n" fp）（repeat n（setq k (getstring "\n输入桩号（如:K1)!")p (getpoint ”\n选取节点!")x (strcat ”” (rtos (nth 0 p）））y (strcat "" （rtos （nth 1 p)）））(princ k fp)（princ "\t” fp）(princ x fp）(princ ”\t" fp）(princ y fp）(princ ”\n” fp））（close fp）(setvar ”cmdecho" s）)(princ "\n提示：输入 MD 命令来运行本程序!”）(princ）有了上面的程序，下面是提取坐标的过程1、打开记事本，粘贴以上代码，然后保存成 md。
该怎样在CAD图纸里提取点坐标？
需要提取CAD中点坐标的问题。
如果是手动一个一个提取的话，就很消耗时间，效率慢的同时可能还会有遗漏，没有办法把CAD中所有的坐标全部提取。
若是能够一键提取CAD图纸中各点的坐标那就太好了！今天小编就给大家分享一下。
演示操作如下：
1.我们先启动迅捷CAD编辑器专业版，点击【文件-打开】选项，这时候会弹出【打开图形】弹窗。
然后找到需要的CAD图纸，选择打开即可。
2.这时候选择的CAD图纸会在绘图框中显示，然后我们在命令框中输入“list”命令字符。
3.这时候会弹出【LIST】操作弹窗，我们可以移动光标在绘图框中选中CAD 图纸中各个CAD图形。
4.这时候可以看到命令框显示的命令操作字符如下显示：
“命令：LIST
滚动(SC)/分类(SO)/追踪(T)/<列出选取对象>:
对角点：
选择集当中的对象:xxxx
过滤(FIL)/<选择对象>:”
5.同时会弹出迅捷CAD编辑器【历史提示】显示弹窗，我们可以看到CAD 图纸中所提取的各点坐标都显示出来了。
以上就是今天给大家分享的该怎样在CAD图纸里提取点坐标具体演示操作，希望能够帮助大家。
小伙伴们不妨尝试一下。
将cad图转换成excel的方法
将cad图转换成excel的方法
我们有时候为了方便会把CAD的数据转换成EXCEL表格，那么大家知道怎么将cad图转换成excel吗?下面是店铺整理的怎么将cad 图转换成excel的方法，希望能给大家解答。
将cad图转换成excel的方法一
1、打开Excel，选中表格区域，按下Ctrl+C，然后转到CAD界面，按下Ctrl+V,这样整个表格则被导入CAD中，双击表格回到Excel 可进行编辑。
怎么将cad图转换成excel的方法二
采用【插入】【OLE对象】方法
1、单击工具栏上的【插入】——【OLE对象】，弹出【插入对象】对话框，选取【由文件创建】，单击【浏览】选取excel表格文档，如图
2、单击确定后，excel表格被导入到CAD中，双击表格可回到execl进行编辑，但是此时的显示白色背景，而cad背景是黑色，所有不太美观，但打印出来是不受影响。
从CAD平面图中提取坐标生成数据表
从CAD平面图中提取坐标生成数据表功能：在CAD中提取点的三维坐标(提取当前坐标系中坐标)直接生成Excel表，并在CAD图中生成坐标数据表，加了标点号和输出的选项。
如何安装：
1,在CAD平面图中→工具→宏→加载工程→加载下载的CoodSheet.dvb文件→打开。
2.用加载应用程序：加载后直接运行命令，ZBBG，如没有命令，按AL T＋F8运行宏，按提示要求进行即可。
注意事项：所有的绘图环境依你当前的设置来定的，本程序没进行任何设置，如有字体显示不出来等，请自行修改。
⑴打开CAD平面图，
平面图
⑵工具→加载应用程序→选择Coodsheet.dvb→加载→关闭。
⑶工具→宏→运行Coodsheet.dvb→命令行显示
⑷按命令行输入1，回车。
按命令行输入y，回车。
⑸用鼠标在平面图上布孔，造完后，回车。
见图
⑹显示坐标提取对话框，选取有关参数→确定→在CAD 图指定位置，.
⑺显示坐标一览表，保存，
⑻显示平面布置图，保存，ok！！！。
CAD坐标提取和批量导入坐标操作技巧
CAD坐标提取和批量导⼊坐标操作技巧⼀、 CAD点位坐标提取的⽅法前⾔：室内静态定位精度验证需要位置已知的⼀些测试点，⽤于与位置解算结果进⾏⽐对，以验证定位精度。
这些测试点可以从CAD图纸上提出，当测试点数⽬⾮常少时，可以标记后查看并记录，但是当数⽬⽐较⼤时，就会费时费⼒。
下⾯将使⽤CAD提取测试点坐标的⽅法进⾏总结。
⽅法⼀：多段线顺序连接并提取；⽅法⼆：查询点坐标并导出；⼀、多段线顺序连接并提取1、在CAD中打开图纸.dwg；2、多段线连接要提取的点在命令⾏窗⼝输⼊“pl”，利⽤多段线将要提取的点进⾏连接3、提取坐标选中多段线，输⼊“list”命令，得到各店的详细信息4、编辑将点位信息复制粘贴到excel中，选中【数据】-【分列】直⾄完成，然后替换成想要的格式；注：对于有顺序要求的建议，采⽤该⽅式，能保证点号跟点位坐标对应。
⼆、查询点坐标并导出1、数据提取从CAD中提取点位坐标，操作步骤为：【⼯具】——【数据提取】——【新建/选择现有的提取⽂件】2、定义数据源从图中选取数据，即点位；3、选择对象选择数据源可以选取⼤⽚区域，选中区域会包含点、线、⽂字等，我们只关⼼点对象，这⾥进⾏选择；4、选择特性这⾥选取【⼏何图形】，这样就能输出坐标；5、优化数据这⾥可以⾃定义排序规则6、输出7、坐标查看然后，再根据实际情况，修改点号，使点号与点位坐标对应。
注：该种情况要求点位⾮常准确，不然排序会⾮常⿇烦；尽管提供了排序规则，但是也会出现排序错误，要对数据进⾏复查。
结论CAD尽管为⼤家提供了提取坐标的⽅法，但是⽆法对应的点号，还是有些⼯作量。
听说南⽅CASS可以将点号与坐标⼀起导出，以后再测试。
⽂章转载于CSDN 作者：萧逸凡⼆、 CAD如何批量导⼊坐标？excel坐标批量导⼊cad的⽅法如下：步骤⼀、cad如何批量导⼊坐标?⾸先，将要批量导⼊CAD的⾼程坐标导⼊到excel中。
步骤⼆、在excel中新建E列为展点划线，新建F列为注释。
cad点坐标批量输出
2、数据提取，“创建新数据提取”，下一步。
ቤተ መጻሕፍቲ ባይዱ
3、在文件对话框中保存*.dxe文件并返回向导。
4、“在当前图形中选择对象”并点击按钮。
# o: s. v5 z5 ~7 q# l
5、在窗口中选择全部点，右键确认返回向导，下一步。
6、在对象中选择“点”，下一步。
1、点坐标是相对是世界坐标系的，对于新建的UCS原点无相关，这时可以移动ucs原点到世界原点，就可以出来点的坐标了。
2、注意点的位置排序问题，别把位置弄乱了。
7、在右边的类别过滤器中只选择“几何图形”，左边特性选择“位置X”和“位置Y”，下一步。
8、下面三个复选框都取消选择，表中只保留“位置X”和“位置Y”，下一步。
9、选择“将数据输出至外部文件”，点“浏览”按钮
10、在文件对话框中选择文件格式、路径，保存并返回向导，下一步，完成。
注意：
CAD教程 数据提取与报表生成
CAD教程：数据提取与报表生成在使用CAD软件进行设计和绘图工作时，经常需要对绘图中的数据进行提取和生成报表。
对于大型项目或需要统计分析的设计，数据提取与报表生成变得尤为重要和常见。
本文将介绍CAD软件中数据提取与报表生成的一些常用技巧和方法，方便大家提高工作效率。
一、数据提取数据提取是指从CAD绘图中提取所需信息的过程。
以下是在CAD中进行数据提取的常见方法：1. 属性提取：CAD图纸中的对象通常都具有一些属性信息，如图层、图形尺寸、材质等。
通过属性提取工具，可以方便地从绘图中提取各个对象的属性信息，并导出为Excel或其他格式的文件，用于后续的分析和处理。
2. 文本提取：绘图中的文本信息可能包含需要提取的数据。
利用CAD软件中的文本提取工具，可以将绘图中的文本提取出来，并导出为文本文件或表格文件，以方便后续的数据分析和报表生成。
3. 图形数据提取：对于某些特定的绘图对象，如线段、圆弧、多边形等，可以使用CAD软件中的相应命令或工具，将其数据提取出来。
例如，可以提取多边形的边长、圆弧的弧长和半径等等。
二、报表生成报表生成是指将提取到的数据整理、统计并生成报表的过程。
以下是在CAD中进行报表生成的常用方法：1. 数据整理：将提取到的数据按照需要的格式进行整理，包括删除不需要的数据、添加额外的计算或处理、调整数据的顺序和格式等。
确保数据整理后符合报表的需求，并便于后续的统计分析和图表绘制。
2. 数据统计：对提取到的数据进行统计分析，得出需要的统计指标和数据结果。
根据不同的需求，可以使用CAD软件内置的函数和命令，进行简单的数学运算、数据筛选和排序等操作，或者将数据导出到Excel等软件进行更复杂的数据处理和统计。
3. 报表生成：将整理并统计好的数据生成报表。
可以使用CAD软件中的表格工具或绘图工具，将数据整齐地展现在绘图中，或者导出为Excel、PDF等格式的文件，以供打印和分享。
三、常用技巧在进行CAD数据提取和报表生成的过程中，以下是一些常用的技巧和注意事项：1. 命名规范：在绘图中，合理命名对象和属性，方便后续的数据提取和报表生成。
CAD导出坐标数据方法
C A D导出坐标数据的方法A u t o C A D、E X C E L电子表格和记事本联合导出坐标数据步骤一：用AutoCAD绘图软件打开坐标定位图，把要坐标的点编号（1--无数）。
步骤二：在命令行输入命令“id”，按所编顺序依次点击所需坐标的点位，可以一次点完，也可分次点完。
步骤三：在文本窗口点击右键，选择“复制历史”,然后将复制的结果粘贴在记事本里，除坐标点数据外，其他均删掉，然后保存文件到自建“数据”文件夹。
步骤四：打开Excel电子表格，点击表格上方的数据菜单—“导入外部数据”—“导入数据”打开文本“数据”，根据文本导入向导步骤设置。
将数据导入到所需要的位置。
步骤五：点击菜单“编辑”—“定位”—“定位条件”—“空值”，点击确定，将选中的空格即多余的文字删去只保留坐标数据。
步骤六：制作“坐标定位数据表格”将整理好的坐标数据粘贴到对应位置(AutoCAD坐标系与测量坐标相反的把X改成Y，Y改成X）。
自己根据需要进行调整。
此种方法结合了三种软件的各自独特的功能，能快速的从CAD图形文件里将各特征点的坐标导入EXCEL电子表格里，将数据整理后运用EXCEL的制表功能快速编号整理。
但它的编辑顺序要求高，在采集数据前，一定要将采集点合理编号，这样才能有利于区别点位，且便于自检。
还有一种方法：步骤一：用AutoCAD绘图软件打开坐标定位图，把要坐标的点编号（1--无数）。
步骤二：然后用多段线依次按顺序把每个点连接。
可以一次点完，也可分次点完。
步骤三：点击多段线，然后在命令栏输入LIST确定，屏幕出现文本窗口，复制历史记录,然后将复制的结果粘贴在记事本里，除坐标点数据外，其他均删掉，然后保存文件到自建“数据”文件夹。
步骤四：打开Excel电子表格，点击表格上方的数据菜单—“导入外部数据”—“导入数据”打开文本“数据”，根据文本导入向导步骤设置。
将数据导入到所需要的位置。
步骤五：点击菜单“编辑”—“定位”—“定位条件”—“空值”，点击确定，将选中的空格即多余的文字删去只保留坐标数据。
cad批量导出坐标的方法【AutoCAD教程】
cad批量导出坐标的方法【AutoCAD教程】
在使用CAD的过程当中，有时候要用到大量坐标的提取，如果单纯的去手动操作会花费大量的时间和精力。
在cad中有一些可以批量提取数据的功能，
小编今天给大家介绍以下两种提取方法：
方法一：利用数据提取功能
第一：
单击工具——数据提取，选择“创建新数据提取”
单击下一步，给文件起个名字，“111”，确定。
第二：选择“图纸/图纸集”，单击下一步
第三：选择要提取的对象。
单击下一步选中需要的内容，例如点的X、Y、Z坐标。
单击下一步。
第四：预览当前输出的内容是否正确。
如果正确，单击下一步。
第五:输出。
选择保存的位置、文件名、文件类型。
例如excel的xls类型
第六：打开excel由图可见，本次共导出9个点，内容包含点的X、Y、Z坐标。
方法一：利用li提取
cad批量导出坐标的方法步骤如下：第一步，把需要的坐标点用pl多段线连接成一条连续的多段线
第二步，把这条多段线选中，输入li，在弹出的文本窗口中出现了这条pl线的全部坐标。
第三步，把这些坐标复制到电子表格里面，再经过处理就得到你要的坐标了。
下图为方法一提取的数据，
对比可知提取出点的数据都一样的，只是方法二可以更好地控制点的顺序，
但是方法二出来的数据在同一列需要再进行一下表格处理。
大家根据实际需要选择一种即可。
如何把CAD图纸中的点坐标导出成excel表格？
如何把CAD图纸中的点坐标导出成excel表格?
迎软件的使用者中，典型的是建筑行业的使用者。
为了便利施工或其他原因，有时需要将图纸里面的坐标转换出来，做成excel表在加以利用。
那么为了得到这么一个表格，是否需要一个一个的复制出来到excel表格呢？
答案是当然不需要，在CAD软件之中,就有一个非常好用的命令"EATTEXT",也叫数据提取，属性提取。
利用这个命令就可以方便的提取所需要的坐标。
首先我们打开所需要提取坐标的图纸，输入命令符"EATTEXT",当然也可以在“工具〃 J数据提取"找到它。
ZWC AD C13ssic j 砺版• [Drawing 1]
嬴 文件的 编辑⑹ 视图(V)插入⑴ 格式(。
)工具⑴ 绘图(D)标注(N)修改(M) ET 扩展工具CX)窗口 (W)都助(H) 匕■日号品M X,0％ w
四%巴"昌出口匾微❷ 目品且। 9电 •电]口。
[□ ByLayr | ^ByLtyr 11 ByLty«r 国
然后按下一步，按照操作即可。
里+
3
件
\ \N G.O 口厂 G 0 ~
八
)。
猊的
.\
圆Q
回含
国
Q
淼 Drawing 1 \・od“人布局1入布局2 /。
CAD转Excel,图纸数据导入进表格
我们在各种CAD操作过程中，会遇到这种问题。
需要把CAD图纸中的数据导入进Excel表格中，这时候是否有方便的操作方法。
今天我就和大家分享一个好用的操作方法。
演示操作如下：在桌面上双击迅捷CAD编辑器的图标，运行软件进入操作界面。
然后点击菜单栏里的“文件-打开”选项，调用出“打开”弹窗。
如图所示：在“打开”弹窗中，我们选择绘制好的电施表格图纸“电施表格.dwg”文件打开。
我们在电脑桌面上点击鼠标右键选择【新建-XLSX工作表】选项，新建一个Excel表格。
方法一：1.我们菜单栏切换到【查看器】页面，点击选择【剪切框架】按钮，即切片功能，在绘图中标记出一个矩形区域用于复制、打印或保存。
2.移动光标框选中电施表格，然后点击鼠标右键会弹出选项窗口，我们选择【复制为BMP格式】选项。
3.然后打开之前新建的Excel表格，点击鼠标右键选择【粘贴】或是按快捷键【Ctrl+V】把复制的电施表格粘贴到Excel表格中。
方法二：1.我们菜单栏切换到【查看器】页面，点击选择【剪切框架】按钮，即切片功能，在绘图中标记出一个矩形区域用于复制、打印或保存。
2.移动光标框选中电施表格，然后点击鼠标右键会弹出选项窗口，我们选择【复制为EMF格式】选项。
3.然后打开之前新建的Excel表格，点击鼠标右键选择【粘贴】或是按快捷键【Ctrl+V】把复制的电施表格粘贴到Excel表格中。
注意：复制到Excel表格中粘贴的电施表格都是无法编辑的表格。
这种方法可能会导致转换成Excel表格后的“电施表格”出现细节不清晰不能修改具体数值等问题。
以上就是今天和大家讨论的CAD转Excel，图纸数据导入进表格的具体演示操作。
使用迅捷CAD编辑器演示对于我们日常CAD制图工作很有帮助。
批量导出CAD点坐标至Excel
批量导出CAD 点坐标至Excel
在使用CAD 作图过程中,经常会遇到将图纸中的点坐标标记到Excel 中,以便校对及施工,网络上也出现了各种各样的方法,各有优缺点.本人根据自己摸索找出一种简单、快捷的方法，具体操作详述如下。
操作步骤：
1、使用多段线命令（pline ），将要导出点按顺序连接，注意一定要按顺序；
2、将各点应用多段线连接完成后，输入list 命令查询这条多段线，CAD 窗口会自动弹出文本窗口；
3、仔细看弹出的文本窗口，会发现文本窗口中显示“于端点 X=… Y=… Z=…”即为选中点的坐标值，这些坐标值的排列顺序与上文1中多段线连接点的顺序一致；
4、将“于端点 X=… Y=… Z=…”这些坐标值全部选中，复制粘贴到Excel 中；
5、在Excel 中使用文本导入向导可将X 、Y 、Z 及无用字段分隔开，从而便于选择及下一步操作。
步骤图示如下：
图中1至8点为将要导出坐标值的点 1
238
7
4
65
使用多段线命令（pline），将1至8点按顺序连接，图中黄线
将各点应用多段线连接完成后，输入list命令查询这条多段线（黄线），CAD 窗口会自动弹出文本窗口；
窗口中“于端点 X=… Y=… Z=…”即为选中点的坐标值，这些坐标值的排列顺序与上文1中多段线连接点的顺序一致；
将“于端点 X=… Y=… Z=…”这些坐标值全部选中，复制粘贴到Excel中
在Excel中点击文本导入向导
选择固定宽度，点击下一步
将X、Y、Z及无用字段分隔开，点击下一步、完成。
Syn编制。
cad点取桩位坐标并自动汇总至表格(更新
;;功能：桥梁设计点取墩台坐标，用法：将此文件内容全部粘贴到txt文档，重命名为lsp文件，拖放到cad（即加载），命令dzb，按命令行操作即可(defun c:dzb(/ )(setvar "cmdecho" 0)(setvar "blipmode" 0)(setq os (getvar "osmode"))(setq dim (getvar "dimzin"))(setvar "osmode" 0)(setvar "dimzin" 0)(chk_style)(setq i_sc (getvar "DIMSCALE"))(if (setq pier (getreal "\n输入起始墩台编号<0>:")) () (setq pier 0))(setq ptb0 (getpoint "\n指定表格右上角点："))(u_doubli)(d_sum)(setq i 0 ii 0)(setvar "osmode" os)(setq ikey "Yes")(while (= ikey "Yes")(if(setq pt0 (getpoint (strcat "\n点取第" (rtos (+ pier ii) 2 0) "号墩台>>>" (rtos (+ 1 i) 2 0) "号点或结束[ENTER]：")))(progn(d_sumsing)(setq i (1+ i)))(progn(command "_.pline" ptb1 "w" (* 0.35 i_sc) (* 0.35 i_sc) (polar ptb1 0 (* 60.0 i_sc)) "") (setvar "osmode" 0)(command "_.text" "j" "m" (polar (polar ptb1 0 (* 7.5 i_sc)) (/ pi 2) (* i 0.5 6.0 i_sc)) (* 3.0 i_sc) "0" (strcat (rtos (+ pier ii) 2 0) "号"))(setq i 0)(setq ii (1+ ii))(initget "Yes No")(if (setq ikey (getkword "\n本墩号点取结束，是否继续？Yes/No<Y>：")) () (setq ikey "Yes")) )))(setvar "osmode" os)(setvar "dimzin" dim)(prin1));;检查字体样式及图层(defun chk_style(/ chksty chklay);检查图层(setq chksty(tblsearch "style" "twyzy"))(if (null chksty)(progn(command "_style" "he_z" "fsdb" "0" "0.7" "0" "n" "n")))(setq chklay(tblsearch "layer" "文本"))(if (null chklay)(command "_layer" "m" "文本" "c" "3" "文本" "lw" "0.18" "文本" "") )(setvar "clayer" "文本")(setvar "textstyle" "he_z")(prin1));;表头(defun d_sum()(setq ptb1 (polar ptb0 (/ pi -2) (* 8.0 i_sc)))(setq ptb2 (polar (polar ptb0 (/ pi -2) (* 4.0 i_sc)) 0 (* 7.5 i_sc)))(command "_.text" "j" "m" ptb2 (* 3.5 i_sc) 0 "墩台编号")(command "_.text" "j" "m" (polar ptb2 0 (* 15.0 i_sc)) (* 3.5 i_sc) 0 "点号")(command "_.text" "j" "m" (polar ptb2 0 (* 30.0 i_sc)) (* 3.5 i_sc) 0 "坐标（N）") (command "_.text" "j" "m" (polar ptb2 0 (* 45.0 i_sc)) (* 3.5 i_sc) 0 "坐标（E）")(command "_.pline" ptb0 "w" (* 0.35 i_sc) (* 0.35 i_sc) ptb1 "")(command "_.pline" ptb0 "w" (* 0.35 i_sc) (* 0.35 i_sc) (polar ptb0 0 (* 60.0 i_sc)) "") (command "_.pline" ptb1 "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar ptb1 0 (* 15.0 i_sc)) "")(command "_.pline" (polar ptb0 0 (* 60.0 i_sc)) "w" (* 0.35 i_sc) (* 0.35 i_sc) (polar ptb1 0 (* 60.0 i_sc)) "")(command "_.pline" (polar ptb0 0 (* 15.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar ptb1 0 (* 15.0 i_sc)) "")(command "_.pline" (polar ptb0 0 (* 30.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar ptb1 0 (* 30.0 i_sc)) "")(command "_.pline" (polar ptb0 0 (* 45.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar ptb1 0 (* 45.0 i_sc)) ""));;写内容(defun d_sumsing()(setvar "osmode" 0)(setq zb_n (cadr pt0)zb_e (car pt0))(command "_.text" "j" "m" (polar (polar ptb1 (/ pi -2) (* 3.0 i_sc)) 0 (* 22.5 i_sc)) (* 3.0 i_sc) "0" (strcat (rtos (+ 1 i) 2 0) "#" ))(command "_.text" "j" "m" (polar (polar ptb1 (/ pi -2) (* 3.0 i_sc)) 0 (* 37.5 i_sc)) (* 3.0 i_sc) "0" (rtos zb_n 2 3))(command "_.text" "j" "m" (polar (polar ptb1 (/ pi -2) (* 3.0 i_sc)) 0 (* 52.5 i_sc)) (* 3.0 i_sc) "0" (rtos zb_e 2 3))(command "_.pline" ptb1 "w" (* 0.35 i_sc) (* 0.35 i_sc) (polar ptb1 (/ pi -2) (* 6.0 i_sc)) "") (command "_.pline" (polar ptb1 0 (* 60.0 i_sc)) "w" (* 0.35 i_sc) (* 0.35 i_sc) (polar (polar ptb1 (/ pi -2) (* 6.0 i_sc)) 0 (* 60.0 i_sc)) "")(command "_.pline" (polar ptb1 0 (* 15.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar ptb1 0 (* 60.0 i_sc)) "")(command "_.pline" (polar ptb1 0 (* 15.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar (polar ptb1 (/ pi -2) (* 6.0 i_sc)) 0 (* 15.0 i_sc)) "")(command "_.pline" (polar ptb1 0 (* 30.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar (polar ptb1 (/ pi -2) (* 6.0 i_sc)) 0 (* 30.0 i_sc)) "")(command "_.pline" (polar ptb1 0 (* 45.0 i_sc)) "w" (* 0.18 i_sc) (* 0.18 i_sc) (polar (polar ptb1 (/ pi -2) (* 6.0 i_sc)) 0 (* 45.0 i_sc)) "")(setq ptb1 (polar ptb1 (/ pi -2) (* 6.0 i_sc)))(setvar "osmode" os));;双下划线子程序(defun u_doubli(/ ss ssdata box pt11 pt22 )(setvar "clayer" "文本")(command "_.text" "j" "m" (polar (polar ptb0 (/ pi 2) (* 10.5 i_sc)) 0 (* 30.0 i_sc)) (* 5.5 i_sc) "0" "全桥桩位坐标表")(setq ss (entlast))(setq ssdata (entget ss))(command "ucs" "e" ss)(setq box (textbox ssdata))(setq pt11 (car box))(setq pt22 (list (car (cadr box)) (cadr pt11)))(setq pt11 (polar pt11 pi (* 1.4 i_sc)) pt22 (polar pt22 0 (* 1.4 i_sc)))(setq pt11 (polar pt11 (* 1.5 pi) (* 1.4 i_sc)) pt22 (polar pt22 (* 1.5 pi) (* 1.4 i_sc)));;偏1.4mm(command "pline" pt11 "w" (* 0.35 i_sc) "" pt22 "")(setq pt11 (polar pt11 (* 1.5 pi) (* 0.8 i_sc)) pt22 (polar pt22 (* 1.5 pi) (* 0.8 i_sc)));;偏0.8mm(command "pline" pt11 "w" (* 0.15 i_sc) "" pt22 "")(command "ucs" "w"))(princ "\n---点坐标-命令dzb--hez87") (prin1)。
如何在CAD中提取各点的坐标？正确且快速提取CAD各点坐标的方法！
如何在CAD中提取各点的坐标？正确且快速提取CAD各点坐
标的方法！
工作中，有时候需要提取CAD中各点的坐标，如果是手动一个一个提取的话，效率太慢了，很有可能会误事。
那么有没有什么方法可以快速提取CAD中各点的坐标呢？
方法是有的，这里就有两种，感兴趣的朋友就一起来看看吧。
第一种方法：利用'数据提取'来提取坐标
第一种方法就是利用“数据提取”来提取坐标了。
这种方法会比较复杂，使用这种方法进行提取，需要注意的是：该文件是已经保存好的了，并且里面所有的线都要在同一个图层中。
首先，直接点击'工具栏'，选择'数据提取'。
选择'数据提取'后，勾选'创建新数据提取'，点击'下一步'，填好文件存储的位置和名称。
接下来，勾选'数据源'中的'图形/图纸集'，再点击'下一步'，进行加载，加载成功后，你就可以看见各图层具体的数据了。
这一步完成之后，便可以选择要提取的坐标了。
提取成功后，便可进行输出了，根据自己的需要勾选好输出选项即可。
第二种方法：利用'list'命令来提取坐标
除了上面这种方法，还有另外一种更为简单的方法。
这种方法需要用到'list'命令。
小编个人觉得这种方法比较方便。
先选择好要提取的坐标线段。
选好之后，在命令栏输入'list'命令，并点击'确定'即可。
接下来你就可以看到已经提取好的坐标了。
cad怎么提取坐标标注到excel
cad怎么提取坐标标注到excel
CAD里面的坐标数据是可以跟EXCEL互相转换的，那么大家知道cad怎么提取坐标标注到excel吗?下面是店铺整理的cad怎么提取坐标标注到excel的方法，希望能给大家解答。
cad提取坐标标注到excel的方法
第一步：打开CAD。
在CAD命令行输入"Li"。
”选择对象“，点选需要提取坐标的多段线。
回车。
第二步：将CAD文本框中的数据复制到Excel中。
选中文本框中的有效数据”Ctrl+C“,在打开的Excel中”Ctrl+V“。
第三步：用Excel”替换“命令删除不必要文字和空格。
选中文本所在单元格。
点击”开始“右侧的“替换”(或者”编辑“——”替换“)。
选中第一格X坐标前的所有部分。
复制粘贴到”查找内容“中。
“替换为”什么也不用填。
点选“全部替换(A)”。
发现此时格式还是有些别扭。
所以还要再进行几步上述操作，将如第二行一样格式文本中多余的空格删掉。
第四步：数据分列。
选中文本所在列。
选择“数据”——“分列”———“下一步”——勾选“逗号”——“下一步”——“完成”。
第五步：交换x,y坐标。
第六步：格式调整。
“Ctrl+1”或者右键单击选择“设置单元格
格式”，在里面调整格式。
（施工经验）提取cad点坐标生成表格并至excel
（施工经验）提取cad点坐标生成表格并至excel提取cad点坐标生成表格并至excelCAD坐标数据批量导出小工具(defun c:md()(setvar "cmdecho" 0)(COMMAND ".UNDO" "BE")(command "-units" "2" "3" "2" "3" "" "")(setq fp (open "d:/放样坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总放样坐标点数目！"))(princ "放样坐标点" fp)(princ "\t" fp)(princ "X坐标值" fp)(princ "\t" fp)(princ "Y坐标值" fp)(princ "\n" fp)(repeat n(setq k (getstring "\n输入放样坐标点编号（如：K1）！")p (getpoint "\n选取节点！")x (strcat "X=" (rtos (nth 0 p)))y (strcat "Y=" (rtos (nth 1 p))))(princ k fp)(princ "\t" fp)(princ x fp)(princ "\t" fp)(princ y fp)(princ "\n" fp))(close fp)(setvar "cmdecho" s))(princ "\n提示：输入MD 命令来运行本程序！")(princ)1、打开记事本，粘贴以上代码，然后保存成md.lsp2、打开CAD并加载这个小程序（在命令行输入appload，选择加载md.lsp程序），将md.lsp复制在support文件夹下后可自动加载。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
提取cad点坐标生成表格并至excel
CAD坐标数据批量导出小工具
(defun c:md()
(setvar "cmdecho" 0)
(COMMAND ".UNDO" "BE")
(command "-units" "2" "3" "2" "3" "" "")
(setq fp (open "d:/放样坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总放样坐标点数目！ "))
(princ "放样坐标点" fp)(princ "\t" fp)
(princ "X坐标值" fp)(princ "\t" fp)
(princ "Y坐标值" fp)(princ "\n" fp)
(repeat n
(setq k (getstring "\n输入放样坐标点编号（如：K1）！")
p (getpoint "\n选取节点！")
x (strcat "X=" (rtos (nth 0 p)))
y (strcat "Y=" (rtos (nth 1 p))))
(princ k fp)(princ "\t" fp)
(princ x fp)(princ "\t" fp)
(princ y fp)(princ "\n" fp))
(close fp)
(setvar "cmdecho" s))
(princ "\n提示：输入 MD 命令来运行本程序！")
(princ)
1、打开记事本，粘贴以上代码，然后保存成
2、打开CAD并加载这个小程序（在命令行输入appload，选择加载程序），将复制在support文件夹下后可自动加载。
3、输入md运行命令，输入桩数，再输入桩号，再选择点，完成后，保存CAD 文件，关闭CAD，打开D盘你就会看到生成一个文件“桩号坐标值.xls”的Excel 文件，打开，如下格式
桩号 X坐标值 Y坐标值
k1 X= Y=
k2 X= Y=
k3 X= Y=
桩号 X坐标值 Y坐标值
1 X= Y=
2 X= Y=
3 X= Y=。