浩辰cad表格怎么导到excel

浩辰CAD表格数据怎么提取~

1、浩辰CAD2012版表格数据快速提取的方法
2、而其中的表格数据批量提取功能是指将CAD里的表格数据提取出来，保存为Excel文件，应用于各种需要的场合。为了帮助大家掌握表格数据提取的方法，本文将通过一个实例，向大家介绍浩辰CAD机械2012软件中的提取表格数据导出功能。
3、要使用此功能，我们可以依次单击【浩辰机械】—【辅助工具】—【提取表格数据导出】命令，或输入软件快捷键“OT”。 在命令行提示：“请选择组成表格的直线和文字(直线、多段线、文字、多行文字、块参照)：”之后，我们框选图1所示的明细表内容(如图1)。
4、之后，命令行会提示：“是否按照从上到下的顺序输出表格【是(Y)/否(N)】：”我们选择“是”。
5、这时，界面就成功的切换到Excel软件中，我们的数据也就完成了提取(如图2)。
6、可以看出，通过简单的两个步骤，我们就可以将浩辰CAD机械软件中的表格数据提取到了Excel格式文件中，比传统的方式更加方便、快捷。

浩辰CAD表格转换Excel的操作教程：
用浩辰CAD软件打开图纸——框选BOM表——在菜单栏中找到并点击【扩展工具】——在下拉框中找到【表格工具】——选择并点击【CAD表格转换EXCEL】——在弹出的【CAD表格转换EXCEL】对话框中确定好大小比例，CAD软件将会自动输出EXCEL表格。如下图所示：


以上就是浩辰CAD表格转换成Excel的操作步骤，望采纳谢谢~

导出方法如下：

1. 点击浩辰CAD扩展工具中的“CAD表格转Excel”命令图标；

2. 命令运行后会弹出一个“转换尺寸比例”的对话框；

3. 在对话框中，用户可以选择转换表格之间的尺寸比例，这一参数会直接影响生成表格的尺寸大小。

4. 按系统提示框选建筑明面积细表，并确定，软件会自动将CAD表格转换为Excel并将其打开。建筑面积明细表转换效果，如下图。

    

5. 从转换效果上看，转换后的Excel表格不仅数据准确，而且格式美观大方，用户可以直接使用该表格进行修改、添加、删除、打印……省去了许多表格调整工作的烦恼。

浩辰CAD表格导入excel的操作步骤

首先使用浩辰CAD软件打开图纸，然后用鼠标框选BOM表，在菜单栏中找到并点击【扩展工具】——在下拉框中找到【表格工具】——选择并点击【CAD表格转换EXCEL】，在弹出对话框中确定好大小比例，CAD软件将会自动输出EXCEL表格。如下图所示：

以上就是浩辰CAD软件中将CAD表格导入到excel的详细操作步骤。

用vba编程可以实现。
我电脑没装cad，不然可以模拟做一个例子了。
不过，这里有一个程序，是excel到CAD的，可以参考一下。
Sub 根据excel自动画表()
Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
Dim xlSheet As Worksheet
Set xlSheet = xlApp.ActiveSheet
Dim iPt(0 To 2) As Double
iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
Dim BlockObj As AcadBlock
Set BlockObj = ThisDrawing.Blocks("*Model_Space")
Dim xlRange As Range
For Each xlRange In xlSheet.UsedRange
AddLine BlockObj, xlRange
AddText BlockObj, xlRange
Next
Set xlRange = Nothing
Set xlSheet = Nothing
Set xlApp = Nothing
End Sub
'边框处理
Sub AddLine(ByRef BlockObj As AcadBlock, ByVal xlRange As Range)
Dim rl As Double
Dim rt As Double
Dim rw As Double
Dim rh As Double
rl = xlRange.Left / 2.835
rt = xlRange.top / 2.835
rw = xlRange.Width / 2.835
rh = xlRange.Height / 2.835
Dim pPt(0 To 3) As Double
Dim pLineObj As AcadLWPolyline
If xlRange.Borders(xlEdgeLeft).LineStyle <> xlNone And xlRange.Column = 1 Then
pPt(0) = rl: pPt(1) = -rt
pPt(2) = rl: pPt(3) = -(rl + rh)
Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
With xlRange.Borders(xlEdgeLeft)
If .ColorIndex <> xlAutomatic Then
If .ColorIndex = 3 Then
pLineObj.color = acRed
ElseIf .ColorIndex = 4 Then
pLineObj.color = acGreen
ElseIf .ColorIndex = 5 Then
pLineObj.color = acBlue
ElseIf .ColorIndex = 6 Then
pLineObj.color = acYellow
ElseIf .ColorIndex = 8 Then
pLineObj.color = acCyan
ElseIf .ColorIndex = 9 Then
pLineObj.color = acMagenta
End If
End If
If .Weight = xlThin Then
pLineObj.ConstantWidth = 0
ElseIf .Weight = xlMedium Then
pLineObj.ConstantWidth = 0.35
ElseIf .Weight = xlThick Then
pLineObj.ConstantWidth = 0.7
End If
End With
End If
If xlRange.Borders(xlEdgeBottom).LineStyle <> xlNone And (xlRange.Row = xlRange.MergeArea.Row + xlRange.MergeArea.Rows.Count - 1) Then
pPt(0) = rl: pPt(1) = -(rt + rh)
pPt(2) = rl + rw: pPt(3) = -(rt + rh)
Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
With xlRange.Borders(xlEdgeBottom)
If .ColorIndex <> xlAutomatic Then
If .ColorIndex = 3 Then
pLineObj.color = acRed
ElseIf .ColorIndex = 4 Then
pLineObj.color = acGreen
ElseIf .ColorIndex = 5 Then
pLineObj.color = acBlue
ElseIf .ColorIndex = 6 Then
pLineObj.color = acYellow
ElseIf .ColorIndex = 8 Then
pLineObj.color = acCyan
ElseIf .ColorIndex = 9 Then
pLineObj.color = acMagenta
End If
End If
If .Weight = xlThin Then
pLineObj.ConstantWidth = 0
ElseIf .Weight = xlMedium Then
pLineObj.ConstantWidth = 0.35
ElseIf .Weight = xlThick Then
pLineObj.ConstantWidth = 0.7
End If
End With
End If
If xlRange.Borders(xlEdgeRight).LineStyle <> xlNone And (xlRange.Column >= xlRange.MergeArea.Column + xlRange.MergeArea.Columns.Count - 1) Then
pPt(0) = rl + rw: pPt(1) = -(rt + rh)
pPt(2) = rl + rw: pPt(3) = -rt
Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
With xlRange.Borders(xlEdgeRight)
If .ColorIndex <> xlAutomatic Then
If .ColorIndex = 3 Then
pLineObj.color = acRed
ElseIf .ColorIndex = 4 Then
pLineObj.color = acGreen
ElseIf .ColorIndex = 5 Then
pLineObj.color = acBlue
ElseIf .ColorIndex = 6 Then
pLineObj.color = acYellow
ElseIf .ColorIndex = 8 Then
pLineObj.color = acCyan
ElseIf .ColorIndex = 9 Then
pLineObj.color = acMagenta
End If
End If
If .Weight = xlThin Then
pLineObj.ConstantWidth = 0
ElseIf .Weight = xlMedium Then
pLineObj.ConstantWidth = 0.35
ElseIf .Weight = xlThick Then
pLineObj.ConstantWidth = 0.7
End If
End With
End If
If xlRange.Borders(xlEdgeTop).LineStyle <> xlNone And xlRange.top = 1 Then
pPt(0) = rl + rw: pPt(1) = -rt
pPt(2) = rl: pPt(3) = -rt
Set pLineObj = BlockObj.AddLightWeightPolyline(pPt)
With xlRange.Borders(xlEdgeTop)
If .ColorIndex <> xlAutomatic Then
If .ColorIndex = 3 Then
pLineObj.color = acRed
ElseIf .ColorIndex = 4 Then
pLineObj.color = acGreen
ElseIf .ColorIndex = 5 Then
pLineObj.color = acBlue
ElseIf .ColorIndex = 6 Then
pLineObj.color = acYellow
ElseIf .ColorIndex = 8 Then
pLineObj.color = acCyan
ElseIf .ColorIndex = 9 Then
pLineObj.color = acMagenta
End If
End If
If .Weight = xlThin Then
pLineObj.ConstantWidth = 0
ElseIf .Weight = xlMedium Then
pLineObj.ConstantWidth = 0.35
ElseIf .Weight = xlThick Then
pLineObj.ConstantWidth = 0.7
End If
End With
End If
Set pLineObj = Nothing
End Sub
'文字处理
Sub AddText(ByRef BlockObj As AcadBlock, ByVal xlRange As Range)
If xlRange.Text = "" Then Exit Sub
Dim rl As Double
Dim rt As Double
Dim rw As Double
Dim rh As Double
rl = xlRange.Left / 2.835
rt = xlRange.top / 2.835
rw = xlRange.MergeArea.Width / 2.835
rh = xlRange.MergeArea.Height / 2.835
Dim iPt(0 To 2) As Double
iPt(0) = rl: iPt(1) = -rt: iPt(2) = 0
Dim mTextObj As AcadMText
Set mTextObj = BlockObj.AddMText(iPt, rw, xlRange.Text)
Dim tPt As Variant
If xlRange.VerticalAlignment = xlTop And (xlRange.HorizontalAlignment = xlLeft Or xlRange.HorizontalAlignment = xlGeneral) Then
mTextObj.AttachmentPoint = acAttachmentPointTopLeft
mTextObj.InsertionPoint = iPt
ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlCenter Then
mTextObj.AttachmentPoint = acAttachmentPointTopCenter
tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw / 2)
ElseIf xlRange.VerticalAlignment = xlTop And xlRange.HorizontalAlignment = xlRight Then
mTextObj.AttachmentPoint = acAttachmentPointTopRight
tPt = ThisDrawing.Utility.PolarPoint(iPt, 0, rw)
ElseIf xlRange.VerticalAlignment = xlCenter And (xlRange.HorizontalAlignment = xlLeft _
Or xlRange.HorizontalAlignment = xlGeneral) Then
mTextObj.AttachmentPoint = acAttachmentPointMiddleLeft
tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlCenter Then
mTextObj.AttachmentPoint = acAttachmentPointMiddleCenter
tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
ElseIf xlRange.VerticalAlignment = xlCenter And xlRange.HorizontalAlignment = xlRight Then
mTextObj.AttachmentPoint = acAttachmentPointMiddleRight
tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh / 2)
tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
ElseIf xlRange.VerticalAlignment = xlBottom And (xlRange.HorizontalAlignment = xlLeft _
Or xlRange.HorizontalAlignment = xlGeneral) Then
mTextObj.AttachmentPoint = acAttachmentPointBottomLeft
tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlCenter Then
mTextObj.AttachmentPoint = acAttachmentPointBottomCenter
tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw / 2)
ElseIf xlRange.VerticalAlignment = xlBottom And xlRange.HorizontalAlignment = xlRight Then
mTextObj.AttachmentPoint = acAttachmentPointBottomRight
tPt = ThisDrawing.Utility.PolarPoint(iPt, -1.5707963, rh)
tPt = ThisDrawing.Utility.PolarPoint(tPt, 0, rw)
End If
mTextObj.InsertionPoint = tPt
Set mTextObj = Nothing
End Sub
注：该程序来自VBA二次开发CAD技术

CAD迷你画图有个提取表格功能，图纸空白处右键，在表格工具里。选中你需要导出的表格，保存就可以了。

如果表格是块的话先X炸开，最好把文字也选中炸开，然后再扩展工具 的表格工具里用CAD表格转EXCEL就可以了

---

三门峡市18781848370： 如何在浩辰CAD插入EXCEL表格 - ？
调曼乐脉： 使用truetable是一款基于CAD平台的插件,它能够在CAD和Excel、WPS之间相互导入表格,能输出更新CAD中的任意表格,同时附带钢结构助手,轻轻松松统计用钢量.truetable11.0破解说明介绍: 1. 解压缩 2. 首先要确定电脑中己安装好...

三门峡市18781848370： 怎样将cad中的表格导入excel - ？
调曼乐脉： 讲EXCEL表格导入CAD中有三种方法,可以参考:1、使用CAD的数据连接功能,优点Excel中的数据发生更改后无需手动更改dwg文件中的数据.打开【工具】-【数据连接】-创建新的Excle数据连接-自定义连接名称-确定后浏览要连接的文件打开.2、可以直接在Excle中选择要复制的表格选择复制,打开AutoCAD找到【编辑】-【选择性粘贴】在选择框中选择【CAD Entities(图元)】即可.3、直接在Excel或word中复制文本到CAD软件中,不过粘贴过来后是图形无法编辑里面的文本

三门峡市18781848370： 如何在cad中导入excel表 - ？
调曼乐脉： 把CAD中的表格导入到Excel表格中可按以下方法操作:1、全选这个表格,在表格上右键,在弹出的菜单中选择“输出”命令: 2、计算机要你保存一个CSV文件,CSV是文件的扩展名,你别管它是什么意思,文件的基本名可以写成“成绩统计”或其它,注意文件类型是“逗号分隔(*.CSV)”: 3、保存好的文件是这样的,它是Excel逗号分隔值文件: 4、这个分隔值文件可以直接用Excel打开的,打开后的情况跟在Excel中用手工输入的是一模一样,可以进行你所要的数据处理.本次操作就算成功了.

三门峡市18781848370： 怎么把CAD中的表格导入EXCEL中 - ？
调曼乐脉： 浩辰CAD2012有这个工具,相当NB,可以将CAD中由直线、文字组成的表格直接转换成EXCEL

三门峡市18781848370： CAD里面的表格数据(材料表)如何导入Excel,而且还可以编辑. - ？
调曼乐脉： 1、CAD可以创建表格也可以将excel的表格直接导入,导入前我们做一个报价单的excel表格. 2、然后找到表格选项,点击打开. 3、打开以后选择自数据链接,点击“启动数据链接管理器”对话框,在里面选择创建新的excel数据链接,完成以后跳出来指定链接名称的对话框. 4、选择浏览文件,找到要添加的excel文件. 5、完成以后可以看见鼠标头上有一个表格,可以跟随鼠标移动,确定要置入的位置后点击一下鼠标,表格就被导入进去了. 6、但是导入的表格有些地方比较拥挤,选中表格,右键里面有一个均匀调整行大小,点击一下就会发现拥挤的部分展开了.

三门峡市18781848370： 怎么把cad表格导出excel - ？
调曼乐脉： 具体操作步骤如下:1、在cad上将需要导入excel的表格全选,然后在表格上点击鼠标右键,在弹出的菜单中选择“输出”命令:2、然后计算机会弹出一个窗口,要你保存一个CSV文件,CSV是文件的扩展名,然后再在“文件名”处输入改文件的基本名,注意文件类型是“逗号分隔(*.CSV)”:3、保存好的文件是Excel逗号分隔值文件:4、这个分隔值文件可以直接用Excel打开的,打开后的情况跟在Excel中用手工输入的是一模一样,可以进行你所要的数据处理.

三门峡市18781848370： cad文字整个表格怎么导出成Excel格式????急急急急急急急急急？
调曼乐脉： 用浩辰CAD可以解决. 点扩展工具、表格工具、cad表格转换到excel,然后框选需要转换的表格.

三门峡市18781848370： 怎么把cad表格里的数据导入到excel - ？
调曼乐脉： 1、在CAD中,选中表格,右键,输出,选择文件存放路径,导出后为一个csv格式的文件. 2、然后在EXCEL,点击文件,选择CSV格式,打开这个文件即可.

三门峡市18781848370： 如何把cad里面的图形导入excel - ？
调曼乐脉： 解决如何把cad里面的图形导入excel的步骤如下:1.选择该图形单击鼠标右键,在弹出的右键菜单里找到输出选项.2.点击输出选项在弹出的对话框内给文件命个名字,然后设置格式为逗号分隔(*scv).3.然后打开excel这款软件,在该界面内找到文件菜单里的打开选项.4.点击打开选项在弹出的对话框内找到我们刚刚输出的图形文件,点击打开我们就将CAD图形导入到excel中了.这样就解决了如何把cad里面的图形导入excel的问题了.

三门峡市18781848370： 要如何把CAD的表格导入到Excel里面 - ？
调曼乐脉： 你可以使用“CADTable2Excel”.在“明经CAD社区”上可以找到.2012年7月6日发布.“CADTable2Excel”由 依云开发的一款AutoCAD表格提取到Excel的免费软件.当前版本是V1.0,可提取AutoCAD中简单规则的表格.并带有求和功能,方便统计重量.支持AutoCAD2007~2012.