关于08版cad引用vlax和curve问题

llikk_love

Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Application.Version, 2) = "15" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.15")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "16" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")
    End If
   
    Set VLF = VL.ActiveDocument.Functions
End Sub
请问下，这些代码在04版cad中是可以vlax和curve类的，但是到08版cad中，改怎么写了，我尝试改成一下代码还是不行
ElseIf Left(ThisDrawing.Application.Version, 2) = "17" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.17")，
仍然是不行的，我用msgbox查过08版cad的version是17.1，因此我也试过17.1，仍然不行，好像left返回的参数类型还是integer型的，请群里的达人帮忙解答下。

llikk_love

自己先顶一下

llikk_love

其中：If Left(ThisDrawing.Application.Version, 2) = "15" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")
版主("VL.Application.1")是不是笔误，写漏啦。

llikk_love

没人顶，真是痛苦啊

guohq

vl版本一直没有更新，08到15可以一直使用 VL.Application.16