cad表格转换成excel.docVIP

cad表格转换成excel 篇一：如何将cad表格文字转换成excel表格 如何将cad表格文字转换成excel表格 1、由cad自带“绘图—表格...”创建的表格，可以右键点击表格，点“输出...”，输出.csv格式的表格，直接打开，进行编辑。 2、由cad直线绘制的表格，填充的是单行文字类的，采用第三方工具或插件，网上第三方工具或插件很多，本人是采用的探索者2012，打开“Tssd2012 For 2007”，打开图纸，“文字工具——连接成组”，左键框选文字，点击“书写文字——多行编辑”，双击其中任一文字，打开“探索者多行文本”编辑框，全部选中文字，“复制”，打开excel，点击单元格，进行粘贴。需要注意的是，每次只能复制一列，不能多列同时复制。还有的是，如果不是单行文字时，要用炸开命令选把文字炸开，然后才能连接成组。 2015年12月17日 篇二：将EXCEL表格转换为AutoCAD图形 将EXCEL表格转换为AutoCAD图形 有些工程图纸中有大量的数据信息，并以表格形式出现，如果这些表格有EXCEL文件，或使用EXCEL作成比较方便，然后使用本程序转换成AutoCAD图形将有意想不到的效果。 Private Sub ExportToACAD() On Error Resume Next Dim objAcad As Object #39;#39;AcadApplication Dim objAcadDoc As Object#39;#39;AcadDocument Dim objModelSpace As Object #39;#39;AcadModelSpace Dim msgResult As Integer Dim a As Range If Selection Is Nothing Then MsgBox quot;Nothing Selected!quot;: Exit Sub msgResult = MsgBox(quot;您共选择了quot; amp; Selection.Rows.Count amp; quot;行、quot; amp; Selection.Columns.Count amp; quot;列，quot; _ amp; Chr(13) amp; quot;请注意一些对齐方式可能被忽略！quot; _amp; Chr(13) amp; quot;继续吗？quot;, vbOKCancel, quot;选择quot;) If msgResult = vbCancel Then Exit Sub Err.Clear Set objAcad = GetObject(, quot;autocad.applicationquot;) If Err.Number = 0 Then GoTo Finish Err.Clear Set objAcad = CreateObject(quot;autocad.applicationquot;) Finish:#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39;#39; If Err.Number lt;gt; 0 Then MsgBox quot;You must have AutoCAD installed to run this Macro!quot;, vbCritical, quot;Export to ACADquot; Exit Sub End If On Error GoTo errHandler Set objAcadDoc = objAcad.Documents.Add Set objModelSpace = objAcadDoc.ModelSpace Dim textObj As Object #39;#39;AcadText Dim lineObj As Object #39;#39;AcadLine Dim insPnt(0 To 2) As Double Dim stPnt(0 To 2) As Double Dim edPnt(0 To 2) As Double Dim txtHeight As Double Const txtClearance As Double = 2 Static startY As Double sta