社区 › VB › 如何用vb打开cad？

mayuezxl 发表于 2005-9-6 15:32:00

如何用vb打开cad？

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

alin 发表于 2005-9-7 21:10:00

'对于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 发表于 2005-9-8 10:48:00

实在太感谢版主了，在这里我对你致以最高的谢意。
我刚开始用vb和vba操作cad，有好多问题，不知道该看哪方面的书，我的mail是mayuezxl@163.com ,方便的话指点我一下，谢谢。

tjdxtm 发表于 2005-9-9 16:47:00

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

查看完整版本: 如何用vb打开cad？