求助vba转vb6.0！

zz0147 · 发表于 2012-12-10 18:54:52

初学cad开发没有多久，特来向各位高手求助。
一下是vba的语句：
Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")
我想把它转为vb6.0的，可是怎么写都获取不到对象，我肯定是写错的了，恳请给位高手，给看看。

谢谢了。

zz0147 · 发表于 2012-12-10 18:57:13

我在群里问了一下，可能是我的水平太低了，高手都没有说

zz0147 · 发表于 2012-12-10 18:57:45

zz0147 · 发表于 2012-12-11 09:44:19

是不是vb6.0没有人用了，谁能帮忙解决了，给予2个明经币的答谢。

zz0147 · 发表于 2012-12-12 17:43:55

nikkyu · 发表于 2012-12-14 13:49:30

Set VL = acadApp.GetInterfaceObject("VL.Application.1")

nikkyu · 发表于 2012-12-14 13:57:20

版本号不同这个语句不一样
Case "15"
Set VL = acadApp.GetInterfaceObject("VL.Application.1")
Case "16", "17"
Set VL = acadApp.GetInterfaceObject("VL.Application.16")

zz0147 · 发表于 2012-12-17 19:44:01

不知道问题在哪里，我用前也发送命令了。可是还是不行。。。

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