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

ltong841212

 其中EXCEL的格式是 A列为x坐标 B列为y坐标 CAD读取这些数据然后绘制成圆（半径相同 任意指定）我是菜鸟不知这想法能否实现？

如果可以请高人给写个程序  这个对我很重要 谢谢了。

rjh2001r

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

别忘了引用EXCEL 11.0 Object Library

 

zhy307501169

这个程序很简单

yxh1202

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

rensd

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

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

月上龙岗

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

挂职网

看起来很麻烦啊

lik132

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

monkeylzx

多谢分享，继续来学习