[VBA函数]：为什么这段vb代码对acad2002有效，对acad2004却无效呢？

lijiao

最初由 god 发布
[B]对，是在一台机子上同时装有ACAD2002,ACAD2004，2002没反应，2004有，挺奇怪的吧？ [/B]

如果用户最后启动的是2002，调用的就是2002；如果用户最后启动的是2004，调用的就是2004。

Laoyao

自己的一点见解.
AcadApp = GetObject(, "AutoCAD.Application") 是调用ACAD,没有指定2002,2004.
如果指定调用2002的话,用前期绑定,引用类库为好.


lijiao  的解释是否正确,GOD请你试试,结果贴上来,谢谢.

god

lijiao说得没错。

据我的经验
如果用Dim AcadApp As AutoCAD.AcadApplication '建立Application对象 就需要前期绑定，
如果用 Dim AcadApp As Object '//应用程序对象声明  '建立Application对象 就不需要前期绑定，即使绑定也没关系。

如用前期绑定，绑定了2000的类型库，就只能调用2002 ，不能调用2004。绑定了2004的类型库，就只能调用2004 ，不能调用2002。

而且2004也不支持以下vb对acad的vlisp用法
  Set vla = CreateObject("VL.Application.1")
    Set vld = vla.ActiveDocument
    Set vl_read = vld.Functions.Item("read")
    Set vl_eval = vld.Functions.Item("eval")
   
    Set vl_hello = vl_read.funcall("(defun hello ()  (load  ""a.lsp"")) ")
    Set vl_hello = vl_eval.funcall(vl_hello)
    Set vl_hello = vld.Functions.Item("hello")
    vl_hello.funcall

如果谁解决了这个问题，请告诉我一声

ganok

urdiafa 说得对，你调用2002用Set AcadApp = GetObject(, "AutoCAD.Application.15") ，调用2004用Set AcadApp = GetObject(, "AutoCAD.Application.16") ，同时安装2002和2004时要先判别是什么版本。

urdiafa

在使用autocad時,用(startapp (findfile "*.exe"))來調用vb程式,在此判斷使用版本,就可正確使用Set AcadApp = GetObject(, "AutoCAD.Application.*") ,我嘗試用 GetActiveWindow API
但抓不到AUTOCAD CAPTION,不知道有沒有更好的辦法

zlmcad

从注册表找到cad 的注册项，再选择调用的cad版本

urdiafa

vlisp--->得知正在使用cad注冊項----->告知---->vb
但如何告知vb?