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

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

在调用如下函数时出错，错误行如下：
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

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

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

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

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

版主果然高手
谢谢！
页: [1]
查看完整版本: [求助]ACAD2004中如何使用VLAX类