如何用vb打开cad？

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

明总，请问，用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？

发表回复

精选推荐