社区 › VB › VLAX.CLS类支持高版本吗？

sealive 发表于 2008-6-14 23:23:00

VLAX.CLS类支持高版本吗？

VBA中VLAX.CLS类支持高版本吗？如ACAD2008、2009
vl16.tlb 编程接口是否支持编程！
高版本中使用VLAX.CLS失败！
classname=VL.Application.16

唐僧肉 发表于 2009-2-12 20:39:00

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-2-22 19:24:00

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

唐僧肉 发表于 2009-2-23 15:51:00

在acad2009.lsp内加
(vl-load-com)就行了.

唐僧肉 发表于 2009-2-23 16:01:00

贴个返回曲线上定距离点坐标的函数吧.
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 发表于 2009-2-24 10:20:00

我用的也是VBA

wuyunpeng888 发表于 2009-2-24 23:25:00

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

wuyunpeng888 发表于 2009-2-27 23:02:00

这段程序应该改一下
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

查看完整版本: VLAX.CLS类支持高版本吗？