VBA中Autocad已经打开，再打开指定文件

您可以使用以下VBA代码来打开指定的AutoCAD文件：

Sub OpenDWGFile()
    Dim strFilePath As String
    
    '设置要打开的文件路径
    strFilePath = "C:\MyFiles\MyDrawing.dwg"
    
    '打开指定的AutoCAD文件
    Documents.Open strFilePath
End Sub

请确保在运行此代码之前，您已经在VBA中启用了对AutoCAD的引用。如果您还没有这样做，请按照以下步骤进行操作：

1. 在VBA中打开您的项目。
2. 从菜单栏中选择“工具”>“引用”。
3. 在“可用引用”列表中找到“AutoCAD”并勾选它。
4. 单击“确定”按钮保存更改。

运行上述代码后，它将自动打开指定路径下的AutoCAD文件。

相关问题

VBA打开指定CAD文件

你可以使用下面的VBA代码来打开指定的CAD文件：

Sub OpenCADFile()
    '定义CAD应用程序对象
    Dim cadApp As Object
    '定义CAD文档对象
    Dim cadDoc As Object
    '定义CAD文件路径
    Dim filePath As String
    
    '设置CAD文件路径
    filePath = "C:\Users\YourUserName\Documents\YourCADFile.dwg"
    
    '创建CAD应用程序对象
    Set cadApp = CreateObject("AutoCAD.Application")
    '使CAD应用程序窗口可见
    cadApp.Visible = True
    '打开指定的CAD文件
    Set cadDoc = cadApp.Documents.Open(filePath)
End Sub

请将上述代码中的"C:\Users\YourUserName\Documents\YourCADFile.dwg"替换为你要打开的CAD文件的完整路径。注意，需要在电脑上安装有AutoCAD软件才能成功打开CAD文件。

VBA判断Autocad是否打开

可以使用VBA中的GetObject函数来判断Autocad是否打开。具体的代码如下：

Dim acadApp As Object
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
On Error GoTo 0
If acadApp Is Nothing Then
    MsgBox "Autocad未打开"
Else
    MsgBox "Autocad已打开"
End If

这段代码会尝试获取一个名为"AutoCAD.Application"的对象，如果获取不到则说明Autocad未打开，反之则说明Autocad已经打开。