VLAX.CLS类支持高版本吗？

sealive

VBA中VLAX.CLS类支持高版本吗？如ACAD2008、2009

vl16.tlb 编程接口是否支持编程！

高版本中使用VLAX.CLS失败！

classname=VL.Application.16

唐僧肉

16改17就可以了.

不知道我说清楚了没.

版本号是17,但vl还是16的版本.

Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Application.Version, 2) = "15" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "17" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")
    End If
   
    Set VLF = VL.ActiveDocument.Functions
End Sub

wuyunpeng888

我的有时候好用，有时候不好用，不知道是什么原因，我用的是2009

唐僧肉

在acad2009.lsp内加

(vl-load-com)就行了.

唐僧肉

贴个返回曲线上定距离点坐标的函数吧.

Public Function GetcurvePoint_at_dist1(ByVal dist As Double, curve As AcadEntity) As Variant
    Dim obj As VLAX, retVal
    Set obj = New VLAX

    obj.EvalLispExpression "(setq curve (handent " & Chr(34) & curve.Handle & Chr(34) & "))"

    obj.EvalLispExpression "(setq cpnt (vlax-curve-getPointAtDist curve " & dist & "))"
    retVal = obj.GetLispList("cpnt")
    '释放内存，函数返回
    Set obj = Nothing
    GetcurvePoint_at_dist1 = retVal
End Function

wuyunpeng888

我用的也是VBA

wuyunpeng888

Private Sub Class_Initialize()
    '根据AutoCAD的版本判断使用的库类型
    If Left(ThisDrawing.Application.Version, 2) = "15" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")
    ElseIf Left(ThisDrawing.Application.Version, 2) = "17" Then
        Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")
    End If
   
    Set VLF = VL.ActiveDocument.Functions
End Sub

这段代码为什么在我的机器上就不能用呢？说是加载应用程序出现问题，真是气死我了

wuyunpeng888

这段程序应该改一下
Private Sub Class_Initialize()
With Application
    Select Case Left(.Version, 2)
    Case "15"
        Set VL = .GetInterfaceObject("VL.Application.1")
    Case "16", "17"
        Set VL = .GetInterfaceObject("VL.Application.16")
    End Select
    Set VLF = VL.ActiveDocument.Functions
End With
End Sub