[下载]：好东西(原创)：CAD中读取EXCEL数据的函数

黄卫文

近段论坛上对在CAD中读取EXCEL数据的要求较多，本人为方便大家特意编写了个CAD与EXCEL数据接口函数！     其使用说明：
1、函数名为 hww_excel_cad 调用方法为：
(setq list-b (hww_excel_cad  row-begin col-begin row-end col-end)) list-b为调用所返回的值。row-begin表示excel表中的所要被读取数据的起始行号；col-begin表示excel表中的所要被读取数据的起始列号；row-end表示excel表中的所要被读取数据的结束行号；col-begin表示excel表中的所要被读取数据的结束列号；行号均为整数，列号可以是整数也可以为字符：如"A" "a"。
2、在CAD中读入EXCEL表中数据接口。版权由黄卫文所有!只限个人在自己所开软件中使用，不得做其它方面的用途！特此声明!
3、附件中包括三个文件：hww_excel_cad .vlx函数，使用说明，探井(39-43)（这个文件是别人的）
4、对*.xls的要求为所读范围没有合并的单元格！！
5、使用上面的函数用下面方法：
(setq aa(hww_excel_cad 2 1 10 10))  或(setq aa(hww_excel_cad 2 "a" 10 "Q"))  读探井(39-43).xls文件得到下表：

1. (("序号" "1" "2" "3" "4" "5" "6" "7" "8") ("线号" "0" "0" "0" "0" "0" "0" "0"
   
2. "0") ("井号" "4" "5" "7" "8" "9" "11" "12" "13") ("X" "49257.06" "49239.37"
   
3. "49204.02" "49185.61" "49166.9" "49132.87" "49112.46" "49093.88") ("Y"
   
4. "95214.72" "95196.7" "95161.93" "95146.57" "95128.51" "95093.53" "95076.51"
   
5. "95057.39") ("H" "303.51" "302" "303.24" "305.41" "306.23" "310.07" "312.5"
   
6. "316.77") ("备注" "" "" "" "" "" "" "" "") ("表土厚" "0" "1.8" "0" "0" "4" ".5"
   
7. "4.1" "3.25") ("矿厚" "5.03" "4.7" "8" "6.8" "6" "4.9" "4.3" "5.2") ("含矿率"
   
8. "1265" "1503" "1032" "1222" "1573" "1697" "1686" "1473"))

复制代码

下例程序经过改进所读数据为当前EXCEL工作表中的数据。

XDSoft

谢谢卫文，能不能完善下，可以把表格给读过来，画出？

黄卫文

理论上是可能的，但我现在还在研究对象结构！我弄出来了一定先上这里的：）目前水平有限还需等一等：）谢谢昨晚给的说明知道了句柄（以前没有用过）

XDSoft

最初由 黄卫文 发布
[B]理论上是可能的，但我现在还在研究对象结构！我弄出来了一定先上这里的：）目前水平有限还需等一等：）谢谢昨晚给的说明知道了句柄（以前没有用过） [/B]

希望你先用下OBJECTDCL，贴几个图和代码上来大家交流！给你加分，其他着急用ODCL的朋友，先用试用版做，到时注册就没有提示限制了。

凡是提供ODCL方面的帖子，一律3分以上。

黄卫文

呵呵。好想要，可是目前忙啊没有时间来学习。上面的东东也忙了一个晚上哟！晓东你偏心呀：）

XDSoft

最初由 黄卫文 发布
[B]呵呵。好想要，可是目前忙啊没有时间来学习。上面的东东也忙了一个晚上哟！晓东你偏心呀：） [/B]

没有偏心啊，大家想要ODCL，那么一定要写东西啊，不能拿回去装上看吧？ 先写和后写是一样的，先写可以尽快掌握，所以让大家发发ODCL应用的帖子很正常啊。包括一些朋友跟我要XDRX_API，如果连一个API写的程序都没有，那要API有什么用呢？

ODCL这个好东西，大家都不熟悉，大家都是初学，所以希望大家多贴贴这方面的资料，大家一起共同研究它，用好它。

大家觉得这里氛围好，内容丰富，也是大家共同努力的结果，我做上面限制，也是苦心，希望大家能看到更多的知识，把大家更紧紧的团结起来。

你的这个帖子我给加了4分，如果能把编制原理等介绍大家，我会给你加4个5分。60个爱心币。

黄卫文

真心话：其实晓东是很公平的：）
http://www.xdcad.net/forum/showthread.php?s=&threadid=17211
我帖此贴就没有多少人认真看。原理其实就是个东西加了一句话！！可惜了我白贴源码一段。（过几天删除它）没有看我只好编个实用点的了，就成就了上面这个函数！

xzg_hello

94，excel与acad之间的接口很重要，不知晓东有没有这方面的计划

XDSoft

最初由 xzg_hello 发布
[B]94，excel与acad之间的接口很重要，不知晓东有没有这方面的计划 [/B]

小点声说，让他先研究，到时我拿现成的：）

黄卫文

说大实话，我近二年前就很想在CAD和EXCEL这间建立一个联系在VLISP构架下，自从我有一次在网看到《查拥军》先生的大作利用《VBA编程实现从EXCEL表到AUTOCAD表转换》就开始了VBA的学习历程，可是没有人交流非常艰难！因为他在该文隐去了一些内容，加上上传的文章中又有一些小错误可难为了苦苦寻求者！该文是网上最好的文章（表格转换）。虽然没有给完整代码，但其详细的说明让我们能见其水平之高（在画线方面稍有点...）。在学习其间也多少学习到了一些东西：）就是EXCEL的对象，属性关系为今天VLISP打了一些基础。也编了将块属性写到EXCEL表中的VBA等。因为VBA用密码加密本人就感觉不好：）所以一直在测试VLISP与EXCEL之间的关联方法，属性提取。经长时间学习才一知半解，先提供个这函数！下次提供个这函数的相反函数：）暂取名为：hww-cad-excel

XDSoft

最初由 黄卫文 发布
[B]说大实话，我近二年前就很想在CAD和EXCEL这间建立一个联系在VLISP构架下，自从我有一次在网看到《查拥军》先生的大作利用《VBA编程实现从EXCEL表到AUTOCAD表转换》就开始了VBA的学习历程，可是没有人交流非常艰难！?.. [/B]

查拥军的那篇文章，能贴到论坛来吗？

黄卫文

<p><font color=blue><b><u>本贴已经被斑竹移动到文章中心!</u></b></p>

1. <table border=1 cellpadding=0 cellspacing=0 style=border-collapse: collapse bordercolor=#111111 width=650 id=AutoNumber1 height=498><tr><td width=100% height=489><iframe name=I1 width=100% height=100% src=/artical/show.php?id=474>浏览器不支持嵌入式框架或配置为不显示嵌入式框架</iframe></td></tr></table>

复制代码

lijiao

只要熟悉EXCEL的模型对象，在ACAD和EXCEL之间进行数据交换是件很容易的事，在《用VBA开发AutoCAD2000》一书中有比较详细的介绍。
    我作了一个软件包，叫CS2003，在MDT6上运行，里面有这样的例子，等我整理一下，过几天上传给大家分享。

zhoujun518

如果仅仅是为了在EXCEL读一下输入数据的话，我认为不如用ODCL编一个对话框了，大家可以看一下http://www.xdcad.net/forum/showthread.php?s=&threadid=24856  中我编的报表界面，只用了三个小时就写好了，而且挺好用的，于EXCEL数据交换用来用去会出问题的。我准备在ObjectARX中编一个代码，从CListCtrl中派生出一个类，专门在ACAD中实现报表式的读入，提供一个ARX文件拷在CAD下就行了，那样岂不稳定又方便？（ODCL不就是这样的么？提议大家一起来扩展ODCL的功能！）

怪了，上面那个报表界面帖子晓东一分也没给我加。

hangbbs

http://okok.org/cgi-bin/ut/topic ... mp;bpg=1&age=30