VLAX.CLS类支持高版本吗？

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

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类支持高版本吗？

发表回复

精选推荐