大家合力写个开源的EXCEL-CAD如何

maiqi816

我上传一个你看看 CAD图形里面有具体转换的要求

牢固

maiqi816 发表于 2013-6-9 16:47
我上传一个你看看 CAD图形里面有具体转换的要求

这种太个性化的定制，我无法满足你！你完全可以在Excel里将表格按页编辑好，再导入CAD来实现！

snsj

1. 'MsgBox ExecuteExcel4Macro("'C:\[0.xls]Sheet1'!R1C1")应用XLM老式函数实现不打开EXCEL读取数据功能
   
2. '函数参数说明
   
3. '-----------------------------------------------------------------
   
4. 'path：文件路径
   
5. 'filename：文件名称
   
6. 'sheet：工作表名称
   
7. 'h:单元格第几行,l:单元格第几列
   
8. 'excelvalue("c:\", "0.xls", "Sheet1", "2", "2"),返回第2行第2列的值
   
9. '-----------------------------------------------------------------
   
10. Public Function excelvalue(path, filename, apsheet, h, l)
    
11.     ' 从关闭的工作薄返回值
    
12.     Dim MyPath As String
    
13.     '确定文件是否存在
    
14.     If Right(path, 1) <> "\" Then path = path & "\"
    
15.     If Dir(path & filename) = "" Then
    
16.         excelvalue = "无法找到指定的Excel文件"
    
17.         Exit Function
    
18.     End If
    
19.     '创建公式
    
20.     MyPath = "'" & path & "[" & filename & "]" & apsheet & "'!R" & h & "C" & l
    
21.     '执行EXCEL4宏函数
    
22.     excelvalue = ExecuteExcel4Macro(MyPath)
    
23. End Function
    

'MsgBox ExecuteExcel4Macro("'C:\[0.xls]Sheet1'!R1C1")应用XLM老式函数实现不打开EXCEL读取数据功能<br /> '函数参数说明<br /> '-----------------------------------------------------------------<br /> 'path：文件路径<br /> 'filename：文件名称<br /> 'sheet：工作表名称<br /> 'h:单元格第几行,l:单元格第几列<br /> 'excelvalue("c:\", "0.xls", "Sheet1", "2", "2"),返回第2行第2列的值<br /> '-----------------------------------------------------------------<br /> Public Function excelvalue(path, filename, apsheet, h, l)<br />     ' 从关闭的工作薄返回值<br />     Dim MyPath As String<br />     '确定文件是否存在<br />     If Right(path, 1) <> "\" Then path = path & "\"<br />     If Dir(path & filename) = "" Then<br />         excelvalue = "无法找到指定的Excel文件"<br />         Exit Function<br />     End If<br />     '创建公式<br />     MyPath = "'" & path & "[" & filename & "]" & apsheet & "'!R" & h & "C" & l<br />     '执行EXCEL4宏函数<br />     excelvalue = ExecuteExcel4Macro(MyPath)<br /> End Function<br />

支持下FREE，以前写的一个VB版的不打开EXCEL直接读取数据的函数

牢固

snsj 发表于 2013-6-9 17:36
支持下FREE，以前写的一个VB版的不打开EXCEL直接读取数据的函数

所谓的不打开Excel,只是让Excel界面不显示而已吧？楼上的程序更新了下，添加了选择Excel文件功能！

snsj

这个不打开EXCEL我理解有三种方法：
1：以隐藏的方式打开，取值后关闭，释放对象
2.就是我上面那种应用XLM老式函数实现，是没有EXCEL进程的
3.还有就是用EXCEL数据库的方式获取

Free-Lancer

牢固 发表于 2013-6-9 13:15
花了两天时间，程序基本搞定！是仿照  KozMos XL2CAD 的程序同样写了一个Excel2CAD程序，控制对话框就直接 ...

换了个机子 Windows  7 + Excel 2010 + AutoCAD 2012 均为64位版，依然如上提示


命令:
Excel表格->CAD表格 By Gu_xl 命令: X2C
*** Gu_xl@sohu.com 2013.06.09 ***
命令:
命令: X2C

放置位置:
输入表格宽度<47859.66>:
Automation 错误。 未找到主键

牢固

Free-Lancer 发表于 2013-6-10 08:30
换了个机子 Windows  7 + Excel 2010 + AutoCAD 2012 均为64位版，依然如上提示

Excel 2007 +Win7 64位+CAD2008/2013测均无问题！
难道是Excel版本的问题？我系统没有安装Excel2010,无法测试原因！

牢固

Free-Lancer 发表于 2013-6-10 08:30
换了个机子 Windows  7 + Excel 2010 + AutoCAD 2012 均为64位版，依然如上提示

找到原因了，原先的vlxls-app-init函数就没有支持Excel2010,程序更新了！应该可以了！程序版本更新：
1、增加按Excel页面设置输出表格的功能
2、增加选择Excel文件功能
新程序界面：

请大家来测试，并提出宝贵意见！

429014673

输入表格宽度<13106.80>:1
这个宽度好像我在CAD里面测量了下，不是这个数……不知是什么意思

牢固

429014673 发表于 2013-6-11 17:35
输入表格宽度:1
这个宽度好像我在CAD里面测量了下，不是这个数……不知是什么意思

这个宽度是根据默认字高计算的表格宽度！可以修改！回车是就是默认值！可以设定字高来设置控制表格宽度！

Free-Lancer

牢固 发表于 2013-6-11 16:58
找到原因了，原先的vlxls-app-init函数就没有支持Excel2010,程序更新了！应该可以了！程序版本更新：
1 ...

G版附件没有更新？

牢固

Free-Lancer 发表于 2013-6-12 13:16
G版附件没有更新？

更新了！

Free-Lancer

牢固 发表于 2013-6-12 13:37
更新了！

还是不对啊，界面是旧的！
命令: X2c
放置位置:
输入表格宽度<47859.66>: Automation 错误。 未找到主键

牢固

Free-Lancer 发表于 2013-6-12 13:48
还是不对啊，界面是旧的！
命令: X2c
放置位置:

(vl-file-delete (findfile "xl2cad.Dcl"))删掉旧对话框！excel2010我测试已无问题了！你再试！

Free-Lancer

我这还是不对啊， Windows7 + Excel 2010 + AutoCAD 2012 均为 64 位版

放置位置:
输入表格宽度<20573.70>:
Automation 错误。 未找到主键