求助！！关于ObjectDBX

wuqiu1986

我电脑装有2004和2008，在研究老大的程序时

1. (defun RegObjectDBX (/ DBXSERVER)
   
2.           ;by Tony Tanzillo
   
3.     (cond ((vl-registry-read
   
4.        "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
   
5.      ) ;_ vl-registry-read
   
6.     )
   
7.     ((not (setq DBXSERVER (findfile "AxDb15.dll")))
   
8.      (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
   
9.     )
   
10.     (t
    
11.      (startapp "regsvr32.exe" (strcat "/s \"" DBXSERVER "\""))
    
12.      (or (vl-registry-read
    
13.      "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
    
14.          ) ;_ vl-registry-read
    
15.          (alert
    
16.      "Error: Failed to register ObjectDBX ActiveX services."
    
17.          ) ;_ alert
    
18.      ) ;_ or
    
19.     )
    
20.     ) ;_ cond
    
21.   ) ;_ defun

(defun RegObjectDBX (/ DBXSERVER)<br />           ;by Tony Tanzillo<br />     (cond ((vl-registry-read<br />        "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"<br />      ) ;_ vl-registry-read<br />     )<br />     ((not (setq DBXSERVER (findfile "AxDb15.dll")))<br />      (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")<br />     )<br />     (t<br />      (startapp "regsvr32.exe" (strcat "/s \"" DBXSERVER "\""))<br />      (or (vl-registry-read<br />      "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"<br />          ) ;_ vl-registry-read<br />          (alert<br />      "Error: Failed to register ObjectDBX ActiveX services."<br />          ) ;_ alert<br />      ) ;_ or<br />     )<br />     ) ;_ cond<br />   ) ;_ defun

注册不成功，而且我搜索了整个电脑也找不到AxDb15.dll，AxDb16.dll。请求帮助！
另外哪位有关于 ObjectDBX 这方面的资料的，希望能慷慨相赠。在此感谢

millermin

暂时只能帮顶。

Andyhon

AutoCAD 2000 主目录下有 AxDb15.dll
AutoCAD 2004 主目录下有 AxDb16.dll

millermin

我的程序找到了，但仅在高版本用过，到是挺顺，你试试。

(setq cadver(substr (getvar "acadver") 1 2))                     
(setq id (strcat "objectdbx.AxDbDocument." cadver))           
(setq dbx(vlax-create-object id))