GetInterfaceObject("VL.Application.16")方法问题

MickZ

1. Dim VL As Object
   
2.     Dim acadApp As AcadApplication
   
3.     Dim acadDoc As AcadDocument
   
4.     Set acadApp = GetObject(, "AutoCAD.Application")
   
5.     Set acadDoc = acadApp.ActiveDocument
   
6.     Set VL = acadDoc.Application.GetInterfaceObject("VL.Application.16")

Dim VL As Object<br />     Dim acadApp As AcadApplication<br />     Dim acadDoc As AcadDocument<br />     Set acadApp = GetObject(, "<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Application")<br />     Set acadDoc = acadApp.ActiveDocument<br />     Set VL = acadDoc.Application.GetInterfaceObject("VL.Application.16")

此段VB代码在AutoCad07环境下可以得到VL对象,在AutoCAD09环境下取不到VL对象。
但是在AutoCAD09环境下搜索注册表也能查到值"VL.Application.16"，此问题如何解决？
如问题解决，愿意付出50元酬劳，谢谢！

zzyong00

1. Dim AcadVersion As Integer
   
2.     With ThisDrawing.Application
   
3.         AcadVersion = Val(Left(.Version, 2))
   
4.         '根据AutoCAD的版本判断使用的VL库类型
   
5.         Select Case AcadVersion
   
6.         Case Is = 15
   
7.             Set VL = .GetInterfaceObject("VL.Application.1")
   
8.         Case Is >= 16
   
9.             Set VL = .GetInterfaceObject("VL.Application.16")
   
10.         End Select
    
11.     End With
    
12.    

Dim AcadVersion As Integer<br />     With ThisDrawing.Application<br />         AcadVersion = Val(Left(.Version, 2))<br />         '根据AutoCAD的版本判断使用的VL库类型<br />         Select Case AcadVersion<br />         Case Is = 15<br />             Set VL = .GetInterfaceObject("VL.Application.1")<br />         Case Is >= 16<br />             Set VL = .GetInterfaceObject("VL.Application.16")<br />         End Select<br />     End With<br />    

zzyong00

有可能 是你的09安装有问题吧

MickZ

zzyong00 发表于 2016-10-23 22:15
有可能 是你的09安装有问题吧

09安的应该是没问题的,在xp系统下安的,用vb调cad别的接口都可以调起来的.....

MickZ

zzyong00 发表于 2016-10-23 22:06

试过这段代码,一样取不到对象....

zzyong00

实际上vl非常鸡肋，仅限于玩

MickZ

zzyong00 发表于 2016-10-24 21:37
实际上vl非常鸡肋，仅限于玩

需要获取vl对象,后面要用....

雪山飞狐_lzh

既然你都2009了 用netapi不是更好

MickZ

顶一下,来个大神啊