[VBA程序]：CAD数据输出到EXCEL示例程序

自由的鱼

Sub DJinfo()
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "excel.application")
If Err <> 0 Then
Err.Clear
Set xlApp = CreateObject("excel.application")
If Err <> 0 Then
MsgBox "无法启动excel"
Exit Sub
End If
End If
Set xlbook = xlApp.Workbooks.Add
Set xlSheet = xlbook.ActiveSheet
xlApp.Visible = True
xlSheet.Cells(1, 1) = "权利人"
xlSheet.Cells(1, 2) = "身份证号"
xlSheet.Cells(1, 3) = "地址"
xlSheet.Cells(1, 4) = "用地面积"
xlSheet.Cells(1, 5) = "建筑面积"

Dim i As Integer
Dim sset As AcadSelectionSet
Dim j As Integer
For j = 0 To ThisDrawing.SelectionSets.Count - 1
    ThisDrawing.SelectionSets.Item(i).Clear
    ThisDrawing.SelectionSets.Item(i).Delete
Next
Set sset = ThisDrawing.SelectionSets.Add("DJinfo")
Dim Ftype(1) As Integer
Dim Fdata(1) As Variant
Ftype(0) = 0: Fdata(0) = "LINE"
Ftype(1) = 8: Fdata(1) = "JZD"
Dim Xtype As Integer
Dim Xdata As Variant


sset.Select acSelectionSetAll, , , Ftype, Fdata
For i = 0 To sset.Count - 1

sset.Item(i).GetXData "djinfo", Xtype, Xdata
xlSheet.Cells(i + 2, 1) = Xdata(4)
xlSheet.Cells(i + 2, 2) = Xdata(5)
xlSheet.Cells(i + 2, 3) = Xdata(3)
xlSheet.Cells(i + 2, 4) = Xdata(17)
xlSheet.Cells(i + 2, 5) = Xdata(18)
Next


End Sub

chinali001

本人初学，也很想把一些数据输出报表到EXCEL中，请问你这程序如何运行啊？还有想进一步学习这方面的知识，要看ＣＡＤ或ＬＩＳＰ帮助文件的哪一部分啊，谢谢！！！

自由的鱼

运行程序请看我的签名拦，里面有方法介绍！如果是初学的话最好买本书看，循序渐进，遇到函数不懂的时候就可以查帮助！

gxls63

要是cad与excel能双向通信就更好了

ivysoft

请参考我做的工具，可以将AutoCAD表格输出到Excel中，支持单元格合并等，同时支持从Excel输出到AutoCAD。
http://www.xdcad.net/forum/showthread.php?s=&threadid=322975

forcebos

请问，在CAD数据输出到EXCEL时，由于CAD自制的表格中数据可能踩线或者格子中没有数据，
最终在导出到EXCEL单元格后发生错位，请教如何解决？

tiansong

在excel导入到cad中边框线怎么总不能生成

yzh_china

我已经成功加载，但不知道该怎么调用，那位能说明一下：
运行时第一句出现定义错误，那位指点一下。我对于编程很陌生，谢了

135135135

已经按楼主的办法处理就是还没有使用成功

skysmiler

直接引用不就可以了吗，修改EXCEL源文件里面会自动跟踪变化。

tengf2003

谢谢版主

清风明月10

谢谢楼主的分享！很有意思

zbwei120

vba程序，不太熟悉，先下载学习一下。