设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
查看: 5285|回复: 129

[每日一码] 快速输出 XLS

  [复制链接]

签到天数: 369 天

连续签到: 2 天

[LV.9]以坛为家II

发表于 2014-12-19 07:22:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 Free-Lancer 于 2014-12-19 07:27 编辑

  1. (defun _Table:getColumnCount (lst)
  2.   (apply 'max (mapcar 'length lst))
  3. )
  4. (defun _Table:getRowCount (lst)
  5.   (length lst)
  6. )
  7. (defun _List:getRC (lst)
  8.   (strcat "A1:"
  9.           (xd::excel:i2ColNo (_Table:GetColumnCount lst))
  10.           (itoa (_table:getrowcount lst))

  11.   )
  12. )

游客,如果您要查看本帖隐藏内容请回复





上一篇:《AutoCAD 2004与AutoLISP二次开发技术》
下一篇:获取指定Sheet的 UsedRange 行列编号
00.gif

评分

参与人数 4D豆 +20 收起 理由
yularna + 5 很给力!经验;技术要点;资料分享奖!
Lispboy + 5 很给力!经验;技术要点;资料分享奖!
lucas3 + 5 感谢大师分享!伟大!
/db_自贡黄明儒_ + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

本帖被以下淘专辑推荐:

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 1122 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 2834个

财富等级: 家财万贯

发表于 2014-12-19 09:06:53 | 显示全部楼层
力挺楼主,楼主伟才!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 0 反对 1

使用道具 举报

签到天数: 1349 天

连续签到: 46 天

[LV.10]以坛为家III

已领礼包: 1734个

财富等级: 堆金积玉

发表于 2014-12-19 08:41:16 | 显示全部楼层
回复学习学习!:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 0 反对 1

使用道具 举报

签到天数: 1786 天

连续签到: 48 天

[LV.Master]伴坛终老I

已领礼包: 5031个

财富等级: 富甲天下

发表于 2014-12-19 07:47:55 | 显示全部楼层
力挺楼主,楼主伟才!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 790 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1756个

财富等级: 堆金积玉

发表于 2014-12-19 08:08:10 | 显示全部楼层

大作   学习         
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1395 天

连续签到: 6 天

[LV.10]以坛为家III

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2014-12-19 08:12:20 | 显示全部楼层

高效必须学习...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1263 天

连续签到: 2 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-19 08:18:59 | 显示全部楼层
这才是实用功能
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1317 天

连续签到: 3 天

[LV.10]以坛为家III

已领礼包: 3183个

财富等级: 富可敌国

发表于 2014-12-19 08:24:45 | 显示全部楼层
感谢大师分享!伟大!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 972 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

发表于 2014-12-19 08:25:18 来自手机 | 显示全部楼层
搜索下相关资料,value 是值,text是cell显示内容,比如cell格式设为小数,保留两位,此时输入0.0085,单元格将显示0.01,即text为"0.01",string格式,value为0.0085
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1263 天

连续签到: 2 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-19 08:28:57 | 显示全部楼层
不过要改进一下,一个文档已经打开,就往打开的文件追加

点评

是这个意思吗? **** 本内容被作者隐藏 ****  详情 回复 发表于 2014-12-19 10:51
这个提议好,就像前两天大师那个例子,点一个实体加一行,很不错。  详情 回复 发表于 2014-12-19 10:16
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 972 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

发表于 2014-12-19 08:34:14 来自手机 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-12-19 08:28
不过要改进一下,一个文档已经打开,就往打开的文件追加

追加就获取usedrange后重新计算写入范围,或者用 offset 方法获取地址
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 564 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 124个

财富等级: 日进斗金

发表于 2014-12-19 09:22:41 | 显示全部楼层
高效必须学习...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1816 天

连续签到: 355 天

[LV.Master]伴坛终老I

已领礼包: 5033个

财富等级: 富甲天下

发表于 2014-12-19 10:16:53 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-12-19 08:28
不过要改进一下,一个文档已经打开,就往打开的文件追加

这个提议好,就像前两天大师那个例子,点一个实体加一行,很不错。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 369 天

连续签到: 2 天

[LV.9]以坛为家II

 楼主| 发表于 2014-12-19 10:27:48 | 显示全部楼层
测试下速度,24960个 Point  的 XYZ 坐标写出,计时仅 vlax-put-property 语句

命令: tt
选择对象: 指定对角点: 找到 24960 个
选择对象:
Write XLS Used 1.295
命令:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1498 天

连续签到: 3 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 2919个

财富等级: 家财万贯

发表于 2014-12-19 10:39:57 | 显示全部楼层
太好了,很好用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|Archiver|手机版|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

辽公网安备 21040202000005号

GMT+8, 2018-5-26 23:21 , Processed in 0.817159 second(s), 137 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表