[求助]：用vb打开cad图纸

citykunan

怎么用vb打开cad图纸（cad已打开）

acadDoc.SendCommand ("filedia") & Chr(13) & ("0") & Chr(13)
acadDoc.SendCommand ("open") & Chr(13) & ("C:\Lhy_Leo\\ZJG_Site_04_11_16.dwg") & Chr(13)

好像不行，谢谢。

秦林

Private Sub StartAutoCAD()
Public objDoc As Object
Dim DwgName As String
    On Error Resume Next
    Set objAcad = GetObject(, "AutoCAD.Application")
    If Err Then
        Set objAcad = CreateObject("AutoCAD.Application")
        Err.Clear
    End If
    If Right(App.Path, 1) = "\" Then
        DwgName = App.Path & "facility.dwg"
    Else
        DwgName = App.Path & "\facility.dwg"
    End If
    Set objDoc = objAcad.ActiveDocument
    If objDoc.FullName <> DwgName Then
        objDoc.Open DwgName
    End If
    objAcad.Visible = True
end sub