明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2368|回复: 4

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

[复制链接]
发表于 2014-8-7 14:35:50 | 显示全部楼层 |阅读模式
如题,我用的是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,请问怎么解决?

发表于 2014-8-11 10:36:34 | 显示全部楼层
可能是你没正解安装autocad吧
 楼主| 发表于 2015-3-25 17:16:59 | 显示全部楼层
没有人遇到过这个问题吗?怎么没有人回答啊
发表于 2015-3-25 22:45:37 | 显示全部楼层
几个月了,这个问题还没解决?
在这里测试,没有任何问题!
 楼主| 发表于 2016-1-3 13:17:26 | 显示全部楼层
最后我把程序安装在C盘下,没有问题的!谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-29 01:37 , Processed in 0.174434 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表