[求助]怎样实现从CAD中读取EXCEL数据并绘图

ltong841212 发表于 2009-1-15 11:22:00

其中EXCEL的格式是 A列为x坐标 B列为y坐标 CAD读取这些数据然后绘制成圆（半径相同任意指定）我是菜鸟不知这想法能否实现？如果可以请高人给写个程序  这个对我很重要谢谢了。

rjh2001r 发表于 2009-2-5 21:35:00

本帖最后由作者于 2009-2-5 21:53:12 编辑 Public Sub GetDataFromXLS()   Dim ExcelSheet As Object    Dim cell As Range    Dim Excelobj As Excel.Application    Dim ExcelWorkbook As Object    Dim pt(0 To 2) As Double '创建Excel应用程序实例    On Error Resume Next    Set Excelobj = GetObject(, "Excel.Application")    If Err <> 0 Then       Set Excelobj = CreateObject("Excel.Application")    End If    Set ExcelWorkbook = Excel.Workbooks.Open("c:\11.xls") '假设你的数据存在C盘11.xls文件里    Set ExcelSheet = Excelobj.ActiveSheet    Set cell = ExcelSheet.cell       For j = 0 To 9 '假设你有10行坐标，且从第2行开始        pt(0) = ExcelSheet.Cells(j + 2, 1).Value        pt(1) = ExcelSheet.Cells(j + 2, 2).Value        ThisDrawing.ModelSpace.AddCircle pt, 2    Next j   '显示Excel工作表    Excelobj.Visible = True    '关闭文件    ExcelWorkbook.Close SaveChanges:=False    '关闭Excel应用程序    Excel.Application.Quit    '删除Excel应用程序实例    Set Excelobj = Nothing    End Sub电子表格截图：

rjh2001r 发表于 2009-2-5 21:49:00

本帖最后由作者于 2009-2-5 21:55:33 编辑 别忘了引用EXCEL 11.0 Object Library

zhy307501169 发表于 2009-3-2 12:07:00

这个程序很简单

yxh1202 发表于 2010-6-6 14:50:00

我想问的是，打开excel文档可以用WINDOWS的选择路径方式打开吗，那样不是更自由

rensd 发表于 2010-6-19 10:07:00

yxh1202发表于2010-6-6 14:50:00static/image/common/back.gif我想问的是，打开excel文档可以用WINDOWS的选择路径方式打开吗，那样不是更自由

当然可以啦，你自己加控件就行。

月上龙岗 发表于 2010-10-28 16:31:00

这个程序在CAD 加载后，如何用？或是什么命令。。

挂职网 发表于 2010-12-10 16:41:29

看起来很麻烦啊

lik132 发表于 2011-1-7 16:10:59

如果我的excel表格中储存的是属性块名称，一个名称对应一个块，现在想把EXCEL中的名称在CAD中用块表示出来该怎么办呢，请高人指点一下思路，本人菜鸟

monkeylzx 发表于 2011-2-25 08:51:27

多谢分享，继续来学习

页: [1] 2

明经CAD社区's Archiver

[求助]怎样实现从CAD中读取EXCEL数据并绘图