如何用vb打开cad？

mayuezxl

明总，请问，用vb如何打开磁盘上已经存在的cad文件？谢谢

alin

'对于2004，修改一下帮助里的例程有

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

     Dim acadDoc As AcadDocument
     Set acadDoc = acadApp.Documents.Open("F:\ALIN\3000091_siteplan.dwg")
End Sub

mayuezxl

实在太感谢版主了，在这里我对你致以最高的谢意。

我刚开始用vb和vba操作cad，有好多问题，不知道该看哪方面的书，我的mail是mayuezxl@163.com ,方便的话指点我一下，谢谢。

tjdxtm

多查查这里以前的帖子。会有收获的。