在win7 32系统下能获取vl 对象，但是换个win10 64位的就获取不了 vl 了？

373294296 · 发表于 2019-2-20 22:28:29

If Left(cadApp.Version, 2) = "15" Then
Set vl = cadApp.GetInterfaceObject("VL.Application.1")
Else
Set vl = cadApp.GetInterfaceObject("VL.Application.16")
End If
请教高手解决？谢谢了

373294296 · 发表于 2019-2-20 22:39:00

If Left(cadApp.Version, 2) = "15" Then
      Set vl = cadApp.GetInterfaceObject("VL.Application.1")
Else
      Set vl = cadApp.GetInterfaceObject("VL.Application.16")
End If
老师们，我的win10 64位的怎么获取不了  vl对象呢？

1005100717 · 发表于 2019-2-21 08:35:13

win10考虑下权限问题，还有就是 64位使用32位com是不能通过进程内方法的，必须经过进程外中转。32位程序使用64位com同理

woaishuijia · 发表于 2019-2-21 14:39:36

本帖最后由 woaishuijia 于 2019-2-21 14:40 编辑

运行没问题，但是网站不让上传代码

373294296 · 发表于 2019-2-22 23:02:18

为什么我的一运行到Set vl = .GetInterfaceObject("vl.application.16") ，就没了？

373294296 · 发表于 2019-2-22 23:03:13

求高手解决？？？为什么我的获取不了库类型呢

lee50310 · 发表于 2019-7-13 13:02:48

本帖最后由 lee50310 于 2019-7-16 09:56 编辑

既然可測得使用者cad版本,那直接將兩者結合,試試看

账号		自动登录	找回密码
密码			注册

在win7 32系统下能获取vl 对象，但是换个win10 64位的就获取不了 vl 了？

本帖子中包含更多资源