如何在cad中引用exce'l表格中的数据

lincoln_ma

在cad中可能会引用excel中计算的数据，希望是在cad中需要数据的时候自动切换到目前打开的excel窗口中选择数据。只要选择数据的格式正确，cad中的命令就正常执行。

请问，该如何获取目前打开的excel文件（不一定是保存过的文件，所以没有路径及文件名），并得到其中的数据？
应该用哪些函数，思路如何？

tyicd

招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

lincoln_ma

答非所问。

qq229918602

等待高手。。

江湖远人

用用PASTESPEC命令试试，这个是做表格用的。http://au.autodesk.com.cn/QueryCourseAction.do?id=1774

linlq986

这个合不合你意

下面我用的,先选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