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

MickZ · 发表于 2016-10-22 12:59:00

Dim VL As Object
    Dim acadApp As AcadApplication
    Dim acadDoc As AcadDocument
    Set acadApp = GetObject(, ".Application")
    Set acadDoc = acadApp.ActiveDocument
    Set VL = acadDoc.Application.GetInterfaceObject("VL.Application.16")

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

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

copy

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