64 b上的VLA-GETINTERFACEOBJECT

tfurness · 发表于 2022-7-6 07:32:20

（SETQ obj（VLA-GETINTERFACEOBJECT（VLAX-GET-ACAD-OBJECT）“CadLisp.Lisp”））

我正试图让它在我们新的64位Windows 7机器上运行（Map 2012）。
去年，它在我们现有的XP机器（Map2009）上运行良好。

当我运行这个时，我得到以下错误；
（SETQ obj（VLA-GETINTERFACEOBJECT（VLAX-GET-ACAD-OBJECT））CadLisp。Lisp”））
错误：自动化错误。加载应用程序中的问题

“CadLisp.Lisp”是一个com对象，使用vb脚本在命令提示符下运行良好。

有人有什么建议吗？

提前感谢

BlackBox · 发表于 2022-7-6 07:41:57

欢迎来到CADTutor！

你到底想用Cadlesp做什么。Lisp对象？

irneb · 发表于 2022-7-6 07:42:39

如果它在VBScript中运行良好，那么也许可以尝试使用vlax get或create object，这与VBS的CreateObject函数的原理相同。只要确保使用完vlax release对象即可。

BlackBox · 发表于 2022-7-6 07:50:10

FWIW-

copy


_$ (setq obj (vlax-get-or-create-object "CadLisp.Lisp"))
nil

irneb · 发表于 2022-7-6 07:53:37

RM，OP确实声明“CadLisp.Lisp”COM对象在vb脚本中为他工作。这意味着它是一些ActiveX/COM程序/库，已经在他的电脑上注册了。我自己也不熟悉这样的程序，我尝试这个时也得到了零回报。但是，如果它在VBS中适用，那么就没有理由不在同一台PC上的Visual Lisp中也适用。

SLW210 · 发表于 2022-7-6 07:59:33

t燃烧，

请阅读代码发布指南，并编辑您的帖子以包含代码标签。

tfurness · 发表于 2022-7-6 08:02:55

谢谢你的回复。一些附加信息。。

卡德利普。lisp是一个自定义COM对象，我们编写它来访问我们的自定义COM对象。net程序集，该程序集与我们的数据库进行通信。

我们使用以下代码加载dll

copy

 
(DEFUN load-cadlisp (/ server)
   (PROGN (VL-LOAD-COM)
       (SETQ server (CoGetClassServer cl:progid))
    (IF (NOT server)
        (ALERT "Error: no good")
     (PROGN (VLAX-IMPORT-TYPE-LIBRARY
         :TLB-FILENAME
       Server
       :METHODS-PREFIX
      cl:prefix
      :PROPERTIES-PREFIX
      cl:prefix
     :CONSTANTS-PREFIX
      (STRCAT ":" cl:prefix)
                  )
            );_Progn
          );_if
   );_Progn
);_DEFUN load-cadlisp
(DEFUN CoGetClassServer (progid) (CoGetClassProperty progid "InprocServer32")) ;_DEFUN CoGetClassServer
(DEFUN CoGetClassProperty (ProgID property / clsid)
 (IF (SETQ clsid (ProgID->CLSID ProgID))
   (VL-REGISTRY-READ
     (STRCAT "HKEY_CLASSES_ROOT\\WOW6432NODE\\CLSID\" clsid "\" property)
     )
   )
 ) ;_DEFUN CoGetClassProperty
(DEFUN ProgID->CLSID (ProgID)
 (VL-REGISTRY-READ (STRCAT "HKEY_CLASSES_ROOT\" progid "[url="file://clsid/"]\\CLSID[/url]"))
 ) ;_DEFUN ProgID->CLSID
;; load cadlisp DLL

dll中有许多函数，如下所示

copy

 
(DEFUN GetAPNameOverride (corpnum indx)
 (SETQ obj (VLA-GETINTERFACEOBJECT (VLAX-GET-ACAD-OBJECT) cl:progid))
 (SETQ res (ap-GetAPNameOverride obj corpnum indx)) ;_res NameOverride   
 ) ;_defun GetAPNameOverride

对于我们新的64位机器，在添加了
WOW6432节点到注册表路径。

然而，功能在

copy

 
(SETQ obj (VLA-GETINTERFACEOBJECT (VLAX-GET-ACAD-OBJECT) cl:progid))

在过去的一两年里，我们的32位环境中已经有很多这样的函数。但现在在新的64位机器上，它正在失败。（正如我之前所说，COM包装器（Cadlisp）在vb脚本中运行良好）我猜测这与64位Acad加载32位Dll有关，但我不确定这一切是如何工作的。有什么想法吗？

顺便说一句，我们确实试过了
这也失败了

再次提前感谢