[求助]ACAD2004中如何使用VLAX类

WWWDONG · 发表于 2003-6-1 09:30:00

在调用如下函数时出错，错误行如下：

Public Function GetDXFCodeValue(ent As AcadEntity, gCode As Integer) As Variant


Dim obj As VLAX, retval

    Set obj = New VLAX
retval = obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget(handent " & _
                                 Chr(34) & ent.Handle & Chr(34) & "))))")
Set obj = Nothing
GetDXFCodeValue = retval

End Function

mccad · 发表于 2003-6-1 09:45:00

WWWDONG · 发表于 2003-6-1 18:06:00

VLAX.CLS v1.2 (Last updated 12/21/2000)
' Copyright 1999, 2000 by Frank Oquendo

WWWDONG · 发表于 2003-6-1 18:08:00

lh_163 · 发表于 2003-6-5 17:52:00

把vlax类初始化模块中的第一句"set VL=ThisDrawing.Application.GetInterfaceObject("VL.Application.1")"最后的“1”改为“16”即可。

mccad · 发表于 2003-6-5 20:52:00

对，2004在程序中的版本为16，所以引用时不管是AutoCAD，ObjectDBX还是VL均应更改为16[br]

WWWDONG · 发表于 2003-6-6 13:57:00

版主果然高手
谢谢！

账号		自动登录	找回密码
密码			注册

[求助]ACAD2004中如何使用VLAX类

你有没有定义好类

类是从该站下载的，是否有更新？

已在AUTO CAD 中加载VL.ARX

问题这样解决

对，2004在程序中的版本为16，所以引用时不管是AutoCAD，ObjectDBX还是VL均应更改为

对！