llikk_love 发表于 2012-1-10 11:13:31

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

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 发表于 2012-1-10 11:14:41

自己先顶一下

llikk_love 发表于 2012-1-10 11:21:41

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

llikk_love 发表于 2012-1-11 09:29:21

没人顶，真是痛苦啊

guohq 发表于 2014-6-3 22:39:18

vl版本一直没有更新，08到15可以一直使用 VL.Application.16
页: [1]
查看完整版本: 关于08版cad引用vlax和curve问题