【Gu_xl】CAD表格系列之==== ExCel表格->AutoCAD表格

牢固 · 发表于 2013-6-22 00:42:19

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

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由牢固于 2013-7-8 09:49 编辑

仿照 KozMos XL2CAD 的程序同样写了一个Excel2CAD程序,公布源码如下:

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

VLX程序:

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:Excel2CAD.rar
下载次数:536 文件大小:28.16 KB 售价:5D豆 [记录]
下载权限: 学生以上 [免费赚D豆]

程序界面:

演示:

如果无法播放，请点击此处在新窗口打开

yangist · 发表于 2013-6-22 09:48:24

G版神作A~~~~~~~~~~~~

梦断江南 · 发表于 2013-6-22 00:55:13

好，再来个 cad表格-》xls

Free-Lancer · 发表于 2013-6-22 05:02:44

本帖最后由 Free-Lancer 于 2013-6-22 06:39 编辑

支持G版继续！粗略浏览下，代码太长了，看着头大，有BUG再报告{:soso_e113:}来自: Android客户端

守仁格竹GM · 发表于 2013-6-22 07:49:46

G版精华之作，有个小问题，在我这个版本中转到CAD之后底色一直是白色文字颜色也没变

牢固 · 发表于 2013-6-22 08:07:42

守仁格竹GM 发表于 2013-6-22 07:49
G版精华之作，有个小问题，在我这个版本中转到CAD之后底色一直是白色文字颜色也没变

上传样本来看看！

守仁格竹GM · 发表于 2013-6-22 08:41:56

我是随便新建个excle的，版本2007，CAD是2008但是是64位的，
我觉得可能是我系统有问题。因为别人同样的好像就没事

zyhandw · 发表于 2013-6-22 08:42:09

感谢固版的分享，代码好长（5000多行），需要慢慢看

myfrankie · 发表于 2013-6-22 08:44:32

好，占个位置

牢固 · 发表于 2013-6-22 09:01:42

守仁格竹GM 发表于 2013-6-22 07:49
G版精华之作，有个小问题，在我这个版本中转到CAD之后底色一直是白色文字颜色也没变

可能是代码中*xls-color*常量未定义！我已更新！

(setq *xls-color*
(list (list 1 18 0)
(list 2 7 1677215)
(list 3 1 16711680)
(list 4 3 65280)
(list 5 5 255)
(list 6 2 16776960)
(list 7 6 16711935)
(list 8 4 65535)
(list 9 16 8323072)
(list 10 96 32512)
(list 11 176 127)
(list 12 56 8355584)
(list 13 216 8323199)
(list 14 136 32639)
(list 15 9 12566463)
(list 16 8 8355711)
(list 17 161 9476095)
(list 18 237 9449568)
(list 19 7 1677167)
(list 20 254 12648447)
(list 21 218 6291552)
(list 22 11 16744319)
(list 23 152 24768)
(list 24 254 13617407)
(list 25 176 127)
(list 26 6 16711935)
(list 27 2 16776960)
(list 28 4 65535)
(list 29 216 8323199)
(list 30 16 8323072)
(list 31 136 32639)
(list 32 5 255)
(list 33 140 51455)
(list 34 254 12648447)
(list 35 254 13631439)
(list 36 51 16777104)
(list 37 151 9488639)
(list 38 221 16750799)
(list 39 191 13605119)
(list 40 31 16763024)
(list 41 150 3105023)
(list 42 132 3131584)
(list 43 62 9488384)
(list 44 40 16762880)
(list 45 30 16750336)
(list 46 30 16738048)
(list 47 165 6317968)
(list 48 252 9475984)
(list 49 148 12384)
(list 50 105 3184736)
(list 51 98 12032)
(list 52 48 3158016)
(list 53 24 9449472)
(list 54 237 9449311)
(list 55 177 3158160)
(list 56 250 3092527)
)
*Chinese* T
)

(setq *xls-color* 
       (list (list 1 18 0) 
             (list 2 7 1677215) 
             (list 3 1 16711680) 
             (list 4 3 65280) 
             (list 5 5 255) 
             (list 6 2 16776960) 
             (list 7 6 16711935) 
             (list 8 4 65535) 
             (list 9 16 8323072) 
             (list 10 96 32512) 
             (list 11 176 127) 
             (list 12 56 8355584) 
             (list 13 216 8323199) 
             (list 14 136 32639) 
             (list 15 9 12566463) 
             (list 16 8 8355711) 
             (list 17 161 9476095) 
             (list 18 237 9449568) 
             (list 19 7 1677167) 
             (list 20 254 12648447) 
             (list 21 218 6291552) 
             (list 22 11 16744319) 
             (list 23 152 24768) 
             (list 24 254 13617407) 
             (list 25 176 127) 
             (list 26 6 16711935) 
             (list 27 2 16776960) 
             (list 28 4 65535) 
             (list 29 216 8323199) 
             (list 30 16 8323072) 
             (list 31 136 32639) 
             (list 32 5 255) 
             (list 33 140 51455) 
             (list 34 254 12648447) 
             (list 35 254 13631439) 
             (list 36 51 16777104) 
             (list 37 151 9488639) 
             (list 38 221 16750799) 
             (list 39 191 13605119) 
             (list 40 31 16763024) 
             (list 41 150 3105023) 
             (list 42 132 3131584) 
             (list 43 62 9488384) 
             (list 44 40 16762880) 
             (list 45 30 16750336) 
             (list 46 30 16738048) 
             (list 47 165 6317968) 
             (list 48 252 9475984) 
             (list 49 148 12384) 
             (list 50 105 3184736) 
             (list 51 98 12032) 
             (list 52 48 3158016) 
             (list 53 24 9449472) 
             (list 54 237 9449311) 
             (list 55 177 3158160) 
             (list 56 250 3092527) 
       ) 
  *Chinese* T 
)

守仁格竹GM · 发表于 2013-6-22 09:20:35

底色和文字颜色好了，底色填充时候，没有后置，现在看不见文字，再完善就好了

牢固 · 发表于 2013-6-22 09:24:01

守仁格竹GM 发表于 2013-6-22 09:20
底色和文字颜色好了，底色填充时候，没有后置，现在看不见文字，再完善就好了

命令 regen 重显示一下即可！

守仁格竹GM · 发表于 2013-6-22 09:29:07

牢固发表于 2013-6-22 09:24
命令 regen 重显示一下即可！

:lol 完美测试通过，没发现其他问题

守仁格竹GM · 发表于 2013-6-22 09:30:02

这代码，我估计是短期内没精力研究会了，先用着:D

守仁格竹GM · 发表于 2013-6-22 09:35:10

本帖最后由守仁格竹GM 于 2013-6-22 09:42 编辑

又发现个小问题，如图所示一，分格范围没有分太好,excle里面表格设置形式为图三，缩小字体填充形式导致

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

[每日一码] 【Gu_xl】CAD表格系列之==== ExCel表格->AutoCAD表格

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

评分

本帖被以下淘专辑推荐:

相关帖子

点评

点评

点评

点评

点评

点评