[求助]：使用VB如何激活CAD?

lmmhhdd

请教,使用VB如何激活CAD应用程序,使其置于前景并拥有焦点?

yunzhong80

Sub Ch2_ConnectToAcad()
    Dim acadApp As AcadApplication
    On Error Resume Next
   
    Set acadApp = GetObject(, "AutoCAD.Application.16")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject("AutoCAD.Application.16")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
    MsgBox "Now running " + acadApp.Name + _
           " version " + acadApp.Version

'使用 acadDoc 变量引用当前的 AutoCAD 图形。
Dim acadDoc as AcadDocument
Set acadDoc = acadApp.ActiveDocument

End Sub

hot123

ding楼上

lmmhhdd

谢谢,这段我用过了,特别是当CAD最小化时,我不能从VB中使其置于前景,而仅仅是连接到CAD,而后我用了AppActivate "autocad 2006",配合acadDoc.Application.WindowState = acMax能够做到前景,请问怎么能不依赖版本号,或者说有什么其他的方法吗?

常青

我要

秦林

Dim acadApp As AcadApplication  改为 Dim acadApp As object
将Set acadApp = GetObject(, "AutoCAD.Application.16")和Set acadApp = GetObject(, "AutoCAD.Application.16")中 的".16去掉试试