Excel启动AutoCAD

最新推荐文章于 2025-06-30 13:58:47 发布

原创最新推荐文章于 2025-06-30 13:58:47 发布 · 1.8k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #Excel #对象

VBA 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用VBA在Excel环境中启动并控制AutoCAD应用程序的方法。通过定义对象和调用特定函数，可以实现从Excel无缝操作AutoCAD的功能。

有一段时间用到了VBA，感觉好玩，记下了一些代码

使用VBA在Excel中启动AutoCAD

Option Explicit
Dim acadApp As Object '定义acadApp这个对象，为AutoCad
------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Call test
End Sub
Sub test()
On Error Resume Next
Call ConnectToAcad '使用ConnectToAcad函数 链接AutoCad App
End Sub
------------------------------------------------------------------------------
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then Quit
acadApp.Visible = True
End If
End Sub