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

yytt · 发表于 2003-6-12 22:05:06

下载后只有26k，无法解压

黄卫文 · 发表于 2003-6-13 17:25:36

可能是文件坏了，今天改进了一下原来的程序重新上传了，也许更好用了。

eachy · 发表于 2003-6-13 19:56:13

用以输入用地红线坐标。

(defun c:Ea_DRLn (/ key plst)
;(ea:begin)
(princ "\n注意：行、列值按Excel格式输入.....")
(setq
key (getstring t
"\n输入EXCEL范围[起始行起始列结束行结束列]: "
)
)
(setq plst (hww_excel_cad (read key)))
(apply 'command
(cons ".pline"
(mapcar '(lambda (x) (mapcar 'read x)) plst)
)
)
(command "c")
; (ea:end)
(princ)
)

unit7 · 发表于 2003-6-17 14:08:20

顶

下不为例

fango · 发表于 2003-6-21 16:25:42

函数应该有个用于指明.xls文件的项，不然你怎么知道你的函数要读哪个文件？另外最好还应该可以指定哪个工作簿里的哪张表才比较好嘛！！truetable也应该有后面这一功能，truetable都把所有一个工作簿里的东东都读出并绘出了，其实这不一定是每个用户的本意。

eachy · 发表于 2003-6-21 19:14:15

最初由 fango 发布
[B]函数应该有个用于指明.xls文件的项，不然你怎么知道你的函数要读哪个文件？另外最好还应该可以指定哪个工作簿里的哪张表才比较好嘛！！truetable也应该有后面这一功能，truetable都把所有一个工作簿里的东东都读出并... [/B]

只读当前表。

yytt · 发表于 2003-6-26 13:16:11

cadr14与excel97之间是否可以?
如何读取指定单元格?

黄卫文 · 发表于 2003-6-29 15:46:48

只能用R15以上版的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"。

mmx2004 · 发表于 2003-7-3 16:54:13

怕难就用天正5.0里的"导入excel表格"呀,只是天正5.0也是cad2000以上平台,a14下的3.0没有这个命令

klemthm · 发表于 2003-7-3 23:25:01

谢谢，能不能把表格给读过来，画出？

lhh9801 · 发表于 2003-7-8 00:33:19

我还不大明白，以后要好好学习了

ronghuaxp · 发表于 2003-7-21 22:13:24

编程我学了好久也没有学会，急死了

unionsoft · 发表于 2003-7-31 08:54:43

建议用TrueTable试试看，下载地址:http://www.szty.com.cn/gmsoft

黄卫文 · 发表于 2003-7-31 11:52:34

最初由 unionsoft 发布
[B]建议用TrueTable试试看，下载地址:http://www.szty.com.cn/gmsoft [/B]

你那程序还行，但并不是最好的。至少你画的表格不是很精确。

wowoaicad · 发表于 2003-7-31 12:13:19

最初由黄卫文发布
[B]
你那程序还行，但并不是最好的。至少你画的表格不是很精确。 [/B]

呵呵，你也在晓东论坛发一个怎么样？

账号		自动登录	找回密码
密码			立即注册

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

支持

有个问题

Re: 有个问题