[VBA程序]：Excel表格到CAD的示例程序

NoahsArk · 发表于 2003-2-8 16:36:23

使用于autocad的哪个版本？

ahlzl · 发表于 2003-2-12 14:15:25

最初由 entrophy 发布
[B]我有一套龙震的关于excel和cad通信程序
下次放上来 [/B]

快点啊！

unionsoft · 发表于 2003-2-20 15:53:05

我编了个ObjectARX程序，使用了Excel Automation技术，可以在CAD与Excel间互相导表格，详见:
http://www.xdcad.net/forum/showt ... 83&goto=newpost

xiaping · 发表于 2003-3-11 20:19:28

[QUOTE]最初由 entrophy 发布
[B]我有一套龙震的关于excel和cad通信程序
下次放上来 [/B][/QUOTE
希望早日看到。

yuqiyu · 发表于 2003-3-18 01:31:58

我痛若啊,想下来看看都不行

xiaping · 发表于 2003-3-19 19:25:45

最初由 entrophy 发布
[B]我有一套龙震的关于excel和cad通信程序
下次放上来 [/B]

下次什么时候放上来啊？

sdxylijian · 发表于 2003-3-22 14:36:32

可惜呀，我正要用到这方面的资料，但是我的分数不够……:6

bridgewind · 发表于 2003-3-30 05:21:56

太好啦！！！
非常感谢版主，向你学习！
对建议教材怎样？

tiansong · 发表于 2003-5-25 22:24:16

太好了

zlj1996 · 发表于 2003-7-14 09:20:03

我这有一篇文章，介绍利用VBA编程实现从EXCEL表到AUTOCAD表转换的
大家可以看看！

zkycds · 发表于 2003-8-1 15:16:28

我也想看看，可惜分数不够

mmmm · 发表于 2003-8-26 11:47:09

Excel的颜色和AutocAD的颜色的对应关系是怎样的？
有公式可以处理吗？
否则只能有有限的几个颜色用。

爱好者 · 发表于 2003-9-24 17:35:24

efan2000斑竹，你编的程序让我受益非浅，程序结构非常清晰，使我这样的初学者能够学到很多东西。
再有我对程序中一段未能理解。。。
For i = 1 To Len(xlRange.text) '将EXCEL的换行符替换成\P，注如果是在R2002以上可使用Replace函数。
      If Asc(Mid(xlRange.text, i, 1)) = 10 Then
         s = s & "\P"
      Else
         s = s & Mid(xlRange.text, i, 1)
      End If
Next
。。。
这段代码的意思？？？？？

efan2000 · 发表于 2003-9-24 22:29:47

这段代码就是对Excel中的多行文字进行处理，由于在Excel中，换行一般是VbCr，也就是ASCII的10代码。但是在AutoCAD中，换行却变成了\P，故要单独处理。使用Replace，可以直接将vbCr替换成\P，但是VBA5.0及其以下的没有这个函数，只好通过循环来处理了。

爱好者 · 发表于 2003-9-25 10:16:11

f:\snap222.jpg
上图是EXCEL表格，下图是利用斑竹你的程序执行的结果。
发现会出现文字高度大于单元格高度；如果是数字就会超出单元格边界。
斑竹，该怎样处理？

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

[VBA程序]：Excel表格到CAD的示例程序

我要哭啦…………！！！

efan2000斑竹，我用了你的程序。。。

斑竹：反映出现的问题。。。