lwd899 发表于 2014-8-7 14:35:50

CreateObject/ GetObject Win7 64位系统下无法打开AutoCAD

如题，我用的是vb.net写的，代码如下：
Public Sub StartCAD(ByVal DxfFilePath As String)
      Dim Isgetcad As Boolean = True'判断是否找到打开的cad，默认找到
      Try
            acadApp = GetObject(, "autocad.application")
      Catch ex As Exception
            Try
                acadApp = CreateObject("autocad.application")
                Isgetcad = False
            Catch ex1 As Exception
                MsgBox("无法打开AutoCAD")
                Exit Sub
            End Try
      End Try
      acadApp.Visible = True
      AppActivate(acadApp.Caption)
      If Isgetcad Then
            acadApp.Documents.open(DxfFilePath)
            Thisdrawing = acadApp.ActiveDocument
      Else
            acadApp.Documents.Close()   '关闭cad初始文档drawing1
            acadApp.Documents.open(DxfFilePath)
            Thisdrawing = acadApp.ActiveDocument
      End If
    End Sub
在win7 64位系统下，当AutoCad选中“以管理员身份运行此程序”时，就无法打开cad，请问怎么解决？

zzyong00 发表于 2014-8-11 10:36:34

可能是你没正解安装autocad吧

lwd899 发表于 2015-3-25 17:16:59

没有人遇到过这个问题吗？怎么没有人回答啊

zzyong00 发表于 2015-3-25 22:45:37

几个月了，这个问题还没解决？
在这里测试，没有任何问题！

lwd899 发表于 2016-1-3 13:17:26

最后我把程序安装在C盘下，没有问题的！谢谢！
页: [1]
查看完整版本: CreateObject/ GetObject Win7 64位系统下无法打开AutoCAD