VLAX类的应用

cbse_smy

在调用VLAX类（明经提供）时总是出错，并且引用了Visual Lisp ActiveX Model类，下面语句无法执行：

Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")

提示是无法加载！

请高手相助！我在2004、2005中均试而且用GetInterfaceObject加载其它模块也不行！

翔羽

我也是同样的问题，请教大家了~~

翔羽

我用的是Autocad2002,我在工程中引用了visual lisp module class，但是在执行Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")的时候始终报错，请问怎么解决？

sharksun

论坛里有答案，自己搜索。

cbse_smy

在调用VLAX类（明经提供）时总是出错，并且引用了Visual Lisp ActiveX Model类，下面语句无法执行：

Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.16")

提示是无法加载！

请高手相助！我在2004、2005中均试而且用GetInterfaceObject加载其它模块也不行！

lenovo1

路过。

MJTD_7777

我们家的是2002，用下面的语句通过

Dim Vl
Set Vl = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")

如果你的不行可以做下述尝试

在你注册表HKEY_CLASSES_ROOT\CLSID中找 “VL.Application”

一般GEtobject后的内容都在这里，GetInterfaceObject也同样。

如果找到的话，ProgID中的内容就是你要填入GetInterfaceObject的内容。

祝你成功！！

songzhi

简单点说就是执行一下"vl-load-com".

你可以：

把"(vl-load-com)"加入acad200x.lsp

或

在命令下执行"(vl-load-com)"

或

在VBA里加入sendcommand "(vl-load-com)" & vbcr

以上都是在论坛里搜到的。

cbse_smy

第八楼的说法好像不灵，我试了N次，无任何效果，但是在下在此谢谢每一位朋友！

第七楼的说法是挺灵的，我试了一下还好

songzhi

我当时和你遇到的是相同的问题，也就是按照我所说的方法解决的。到你那儿不灵了？怪事情。看来还得多学习的