请问怎么用EXCEL VBA实现在CAD里面的画线命令

huaxiao2005 · 发表于 2008-9-9 08:40:11

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

各位大侠好,我就是想在EXCEL VBA里面运用了一个小程序,可以找开一个.DWG文件,想在文件里面画一条直线,具体操作就是想在EXCEL里面写命令,自动拷贝到CAD命令行运行,有什么方法吗,最麻烦的方法就是在EXCEL写好命令后再手动复制粘贴到CAD命令行中运行

woaishuijia · 发表于 2008-9-9 10:47:34

请参考下面的步骤：
1、在EXCEL VBA编辑器的“工具”菜单中点“引用”，在“引用”对话框中找到ACAD类库，勾选它，确定。见图1

2、用CAD创建一个新文件并保存为以下路径“E:\drawing1.dwg”，关闭CAD程序。
3、在EXCEL工作表Sheet1的A1单元格写入CAD文件路径“E:\drawing1.dwg”（没有引号），在B1单元格写入准备发送到CAD命令行的字符串“L 0,0 100,100 ”（没有引号，注意其中有四个半角空格）见图2。

4、在EXCEL VBA编辑器Sheet1对象代码窗口写如下代码
-------------------------------------------------------------------------
Sub A()
Dim CAD As AcadApplication, DOC As AcadDocument
Set CAD = New AcadApplication
CAD.Visible = True
Set DOC = CAD.Documents.Open(Sheet1.Cells(1, 1).Value)
DOC.SendCommand Sheet1.Cells(1, 2).Value
End Sub
-------------------------------------------------------------------------
见图3

5、在EXCEL界面运行宏，见图4

6、EXCEL按A1单元格中的文件路径打开了CAD文件并按B1单元格的命令在其上画了一条线。见图5

wq3333 · 发表于 2008-9-9 10:51:10

高人.............

huaxiao2005 · 发表于 2008-9-9 14:09:54

非常感谢版主的答复,假如我的文件已经找开,想指明这个画线命令是在当前文件上的操作,该怎么操作,也就是说,我想在已经打开的文件中画线,同样在EXCEL VBA中实现,怎么弄?先谢谢

huaxiao2005 · 发表于 2008-9-9 14:12:07

顺便问一下,有没有相关资料可以提供一下,或介绍一下吗,主要是在EXCEL VBA 中控制CAD的命令操作,非常感受谢,huaxiao2005@tom.com

woaishuijia · 发表于 2008-9-9 15:51:25

上面的代码改一下
---------------------------------------------
Sub A()
Dim CAD As AcadApplication, DOC As AcadDocument
Set CAD = GetObject(, "Autocad.Application")
Set DOC = CAD.ActiveDocument
DOC.SendCommand Sheet1.Cells(1, 2)
End Sub
---------------------------------------------
本版置顶帖CAD三维及二次开发子版区资料汇总－－求助前请先查阅该贴（参与有奖）中有关于CAD的VBA的资料链接

[ 本帖最后由 woaishuijia 于 2008-9-9 15:53 编辑 ]

www1974 · 发表于 2008-9-16 00:03:17

要是逐条读取A合B如何修改？

[ 本帖最后由 www1974 于 2008-9-16 00:05 编辑 ]

woaishuijia · 发表于 2008-9-16 06:04:41

不太理解你的意图，能否再说得详细些？

www1974 · 发表于 2008-9-16 10:54:16

原帖由 woaishuijia 于 2008-9-16 06:04 发表 http://www.3dportal.cn/discuz/images/common/back.gif3 c: k: i( {+ f! c; I' p- s4 s6 ?
不太理解你的意图，能否再说得详细些？

就是循环读取A1（图名），对应执行B1（CAD命令），直到至An和Bn, 当n+1行空时退出循环。这样就变成一个批量修改的脚本执行工具了~

[ 本帖最后由 www1974 于 2008-9-16 10:57 编辑 ]

woaishuijia · 发表于 2008-9-16 11:35:10

代码可以这样写
-----------------------------------------------------
Sub A()
Dim CAD As AcadApplication, DOC As AcadDocument, I As Integer
Set CAD = New AcadApplication
CAD.Visible = True
I = 1
Do Until Sheet1.Cells(I, 1).Value = "" Or Sheet1.Cells(I, 2).Value = ""
      Set DOC = CAD.Documents.Open(Sheet1.Cells(I, 1).Value)
      DOC.SendCommand Sheet1.Cells(I, 2).Value
      DOC.Save
      DOC.Close
      I = I + 1
Loop
CAD.Quit
End Sub
-----------------------------------------------------------------
运行宏后，EXCEL首先运行CAD程序，然后检查A1和B1单元格是否空格，如不是就按A1内容打开DWG文件，按B1内容执行CAD命令，然后保存并关闭文件，再检查A2和B2单元格。。。。。。直到An或Bn单元格出现空格为止，最后退出CAD程序。
本程序仅供参考，其运行的前提条件是A*单元格中的DWG文件必须是真实存在并且不能是只读的；B*单元格中的命令和参数字符串必须是完整、准确的。否则应该在程序中添加错误处理内容。

www1974 · 发表于 2008-9-16 12:50:34

原帖由 woaishuijia 于 2008-9-16 11:35 发表 http://www.3dportal.cn/discuz/images/common/back.gif+ b- j: `% K) j8 _/ W  N9 G
代码可以这样写  d1 ^% N: d4 T: X, S; R- i
-----------------------------------------------------
; A' s3 w, y( u7 @; [& w/ E5 pSub A()
6 e" P5 s7 c1 h9 M; G Dim CAD As AcadApplication, DOC As AcadDocument, I As Integer
7 {' Y" K& c9 }3 y4 E Set CAD = New AcadApplication
% N4 W- w& c/ h5 K0 E7 Q CAD.Visible =  ...

学习了，多谢。这个可以简单处理文本比较合适，比如修改图纸编号等等，因为我的图纸都是一张一个文件，量比较大，不过问题也比较单一。

xuj321123 · 发表于 2008-9-20 16:30:10

高人。学习了

)19*(

上山蜗牛 · 发表于 2008-9-22 14:37:01

学习中，老师能在旁边写上注释嘛？我还是有不能理解的地方！
因为你们，我对二次开发越来越有兴趣了!

woaishuijia · 发表于 2008-9-22 19:05:27

2楼代码注释
----------------------------------------------
Sub A()
Dim CAD As AcadApplication '声明一个AutoCAD应用程序对象
Dim DOC As AcadDocument '声明AutoCAD文档对象
Set CAD = New AcadApplication '运行一个新的AutoCAD进程
CAD.Visible = True '使运行的AutoCAD程序可见。如果没有这行，程序将不可见，就是说看不见CAD窗口，只能在Windows任务管理器看到有CAD程序运行。
Set DOC = CAD.Documents.Open(Sheet1.Cells(1, 1).Value) '按照“Sheet1”工作表第一行第一列单元格的内容打开文件
DOC.SendCommand Sheet1.Cells(1, 2).Value '按“Sheet1”工作表第一行第二列单元格的内容向CAD命令行发送命令
End Sub
----------------------------------------------

6楼代码注释
----------------------------------------------
Sub A()
Dim CAD As AcadApplication, DOC As AcadDocument '声明一个AutoCAD应用程序对象和一个AutoCAD文档对象
Set CAD = GetObject(, "Autocad.Application") '获得一个已经运行的AutoCAD程序(如果已有多个CAD程序运行，则得到第一个)
Set DOC = CAD.ActiveDocument '在该CAD程序的当前文档上做下面的工作
DOC.SendCommand Sheet1.Cells(1, 2) '按“Sheet1”工作表第一行第二列单元格的内容向CAD命令行发送命令
End Sub
----------------------------------------------

10楼代码注释
----------------------------------------------
Sub A()
Dim CAD As AcadApplication, DOC As AcadDocument, I As Integer '声明一个AutoCAD应用程序对象和一个AutoCAD文档对象,还有一个循环变量(就是计数用的)
Set CAD = New AcadApplication '运行一个新的AutoCAD进程
CAD.Visible = True '使运行的AutoCAD程序可见
I = 1 '从工作表的第一行开始计数
Do Until Sheet1.Cells(I, 1).Value = "" Or Sheet1.Cells(I, 2).Value = "" '下面用循环反复（逐行）检查单元格的内容，直到单元格内容为空
      Set DOC = CAD.Documents.Open(Sheet1.Cells(I, 1).Value) '按照“Sheet1”工作表第I行第一列单元格的内容打开文件
      DOC.SendCommand Sheet1.Cells(I, 2).Value '按“Sheet1”工作表第I行第二列单元格的内容向CAD命令行发送命令
      DOC.Save '保存文件
      DOC.Close '关闭文件
      I = I + 1 '计数加1
Loop '返回DO那行，检查下一行单元格内容是否为空，如不为空，就重复执行上面五行，按下一行的内容打开、编辑、保存、关闭文件。。。。。。
'如果检查结果为单元格内容为空，就执行下面的语句
CAD.Quit '退出（关闭）CAD程序
End Sub
----------------------------------------------

上山蜗牛 · 发表于 2008-9-23 07:55:40

早上上班就来看有没有回复~真好！
版主说说看vba、lisp这两个到底怎么个差别

[ 本帖最后由上山蜗牛于 2008-9-23 07:57 编辑 ]

woaishuijia · 发表于 2008-9-23 08:11:55

请看这个帖子
选择AutoLISP还是VBA？（转贴）

www1974 · 发表于 2008-9-24 13:00:17

原帖由 woaishuijia 于 2008-9-22 19:05 发表 http://www.3dportal.cn/discuz/images/common/back.gif
, F* x y8 i" _2楼代码注释' W2 h" v9 O$ g
----------------------------------------------; g. u; C) k1 u
Sub A()
& T' ~/ r% O2 X: K. i Dim CAD As AcadApplication '声明一个AutoCAD应用程序对象
4 ~: _7 S/ K7 x, i Dim DOC As AcadDocument '声明AutoCAD文档对象
* J8 a" g! t' V1 R Set CAD = New A ...

如何把这个转化到VB？希望斑竹能做个gif~多谢了。

piaoyun1 · 发表于 2008-11-13 21:52:43

text 0,0 2.5 30 你好！
我在Excel VBA 中用以上命令建立一个单行文字，可以生成文字，但是无法自动结束这个命令，必须要到CAD窗口按两次回车才能结束，请问这是为什么，有什么办法可以解决。

woaishuijia · 发表于 2008-11-14 10:44:53

文字命令不支持空格结束，就需要在EXCEL表格里加上回车，方法是Alt+Enter。
实际上字符串中的空格(实际也是回车的意思)也可以这样。
另外，按EXCEL的规矩，单元格内容的前面有“-”号时，还要加一个单引号，见图

zwanglai · 发表于 2008-11-14 11:17:35

原帖由 www1974 于 2008-9-16 12:50 发表 http://www.3dportal.cn/discuz/images/common/back.gif' Z6 H# V, j, @) }. v
: ~2 F7 c+ T0 ^/ S8 {. n ]0 ]6 W
# C7 q- U+ W# c. O$ u# n
学习了，多谢。这个可以简单处理文本比较合适，比如修改图纸编号等等，因为我的图纸都是一张一个文件，量比较大，不过问题也比较单一。

真是太强了。我现在正有两套样机图纸的覆盖图要画，都是批量的图样编号要修改。

piaoyun1 · 发表于 2008-11-14 11:40:16

真是谢谢了！受誉非浅啊！不断的向你学习！

xiaohan996 · 发表于 2009-12-15 17:54:05

真强！！真是牛人呢！

xiaohan996 · 发表于 2009-12-15 20:48:18

我要将I3,J3,K3.....录完，然后录I4,J4,K4......直到把本页面的单行文字全部录入到CAD，我已编好EXCEL程序，但不能多个复制到CAD中，因CAD中不持连续单行文字的输入，必须一个个的复制，粘贴进CAD中才有效，其中原因是每复制一个后要按回车，若在EXCEL表中用ALT+回车，占据一格，也不能连续复制粘贴，所以只能用VBA，重复这个工作。请问这个怎么编？

ZJH274 · 发表于 2010-1-5 09:04:16

真是太激动了，真好，谢谢啦。

12QQQ · 发表于 2010-1-22 23:20:10

Set DOC = CAD.ActiveDocument '在该CAD程序的当前文档上做下面的工作

如果是多个cad文档，如何指定其中一个并赋值给DOC呢？

		自动登录	找回密码
密码			注册

通知

[已答复] 请问怎么用EXCEL VBA实现在CAD里面的画线命令

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 4# 的帖子

回复 9# www1974 的帖子

回复 13# 上山蜗牛的帖子

回复 15# 上山蜗牛的帖子

请教高人

回复 18# piaoyun1 的帖子

回复 19# woaishuijia 的帖子

高手！帮我看看这个怎么编写VBA程序！

通知

[已答复] 请问怎么用EXCEL VBA实现在CAD里面的画线命令

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 4# 的帖子

回复 9# www1974 的帖子

回复 13# 上山蜗牛 的帖子

回复 15# 上山蜗牛 的帖子

请教高人

回复 18# piaoyun1 的帖子

回复 19# woaishuijia 的帖子

高手！帮我看看这个怎么编写VBA程序！

回复 13# 上山蜗牛的帖子

回复 15# 上山蜗牛的帖子