如何在cad中引用exce'l表格中的数据
在cad中可能会引用excel中计算的数据，希望是在cad中需要数据的时候自动切换到目前打开的excel窗口中选择数据。只要选择数据的格式正确，cad中的命令就正常执行。请问，该如何获取目前打开的excel文件（不一定是保存过的文件，所以没有路径及文件名），并得到其中的数据？
应该用哪些函数，思路如何？
招C++软件工程师4名
主要做CAD方面的工作，要求有独立思考，架构工作的能力
1、计算机及相关专业毕业,热爱编程，学习能力强，诚实守信；
2、 熟悉Visual C++开发环境、精通C/C++语言编程、良好的C/C++功底、熟练掌握VC,
3、 至少有二年的C++编程经验,深入理解面向对象的编程思想；
4、 对Windows运行机制有一定了解；
5、 具有ObjectArx开发经验者或者了解并愿意从事CAD二次开发者优先考虑。熟练掌握C#程序开发及.NET开发环境； 熟悉sqlserver 等数据库, SQL语言及编程的优先考虑。
6、 积极上进，善于学习，具备良好的分析、解决问题的能力；
7、 良好的沟通能力和团队协作精神。
有意向者请发简历到tianyuehr@qq.com 答非所问。 等待高手。。 用用PASTESPEC命令试试，这个是做表格用的。http://au.autodesk.com.cn/QueryCourseAction.do?id=1774 这个合不合你意
下面我用的,先选cad中的文字,执行宏,再用excel表a2往下的数据依次替换
Sub CAD_Exl()
Dim ExcelApp As Excel.Application '定义excle应用程序变量
Dim ExS 'As worksheet '定义工作表变量
On Error Resume Next
Set ExS = GetObject(, "Excel.Application")
If Err <> 0 Then
Set ExcelApp = CreateObject("Excel.Application") '激活excel程序
ExcelApp.Visible = True
ExcelApp.Workbooks.Add '创建新工作薄
'Excelapp.Workbooks(1).Activate'该语句激活WorkBooks集合中的第一个工作簿，使其成为当前工作簿 Workbooks("Mybook.xls").Activate
Set ExS = ExcelApp.ActiveWorkbook.Sheets(1)
End If
Dim sset As AcadSelectionSet '定义选择集对象
Dim eV As AcadEntity '定义选择集中的元素对象
Set sset = ThisDrawing.SelectionSets.Add("ss13") '新建一个选择集
Call sset.Select(acSelectionSetPrevious)'提示用户选择
'写入行位置
r = 2
C = 1
With ExS
For Each eV In sset '在选择集中进行循环
If eV.ObjectName = "AcDbText" Then
eV.TextString = ExS.Cells(r, C).Value & ".0"'写入excle文件
r = r + 1
End If
Next
End With
sset.Delete '删除选择集
'n = ThisDrawing.Utility.GetReal("输入文件名:")
'ExS.SaveAs "e:\" & c2 & ".xls" '保存，文件名是"1.xls"
'excelapp.Quit '退出excel程序
Set ExcelApp = Nothing '释放变量
Set ExS = Nothing
End Sub
页:
[1]