[求助]：关于dwg文件的读取。

砼皮铁骨

如何在lisp中实现：在不打开dwg文件的情况下，读取文件中图块信息（包括块属性，插入点等）。希望各位高手帮忙！谢谢！用纯lisp能实现吗（不使用vla－vlax－开头的函数）？

zhanzujie

恐怕不可以.
LISP程序是在AUTOCAD平台下运行的,应用程序肯定要打开,DWG文件也要打开,只不过视图是隐藏的.还是得用VLISP

aeo

用dbx
AxDb15.dll

r2002

2. 
   
3. (defun REGISTEROBJECTDBX (/ DBXSERVER) ; by Tony Tanzillo
   
4.     (cond
   
5.       ((vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"))
   
6.       ((not (setq DBXSERVER (findfile "AxDb15.dll")))
   
7.         (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
   
8.       )
   
9.       (t
   
10.         (startapp "regsvr32.exe" (strcat "/s "" DBXSERVER """))
    
11.         (or
    
12.           (vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID")  
    
13.           (alert "Error: Failed to register ObjectDBX ActiveX services.")
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18. 
    
19. (setq APP (vlax-get-acad-object))
    
20. (setq DBXDOC (vla-getinterfaceobject APP "ObjectDBX.AxDbDocument"))
    
21. ;;;这里的DBXdoc,就是我们要得对象
    
22. ;;;它的特性和(setq Doc(vla-get-activedocument APP) )差不多.
    
23. ;;;所以操作DBXdoc,和Doc一样,可以用Doc的大多的属性和方法
    
24.   (vla-open DBXDOC DWGNAME) ;;;dwgname为你要处理的文件
    
25.     (setq DBXBLOCKS (vla-get-blocks DBXDOC);;;所有块.
    
26. 下面和在一般的图中操作一样了.
    

<br /> (defun REGISTEROBJECTDBX (/ DBXSERVER) ; by Tony Tanzillo<br />     (cond<br />       ((vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"))<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<br />           (vl-registry-read "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID")  <br />           (alert "Error: Failed to register ObjectDBX ActiveX services.")<br />         )<br />       )<br />     )<br />   )<br /> <br /> (setq APP (vlax-get-acad-object))<br /> (setq DBXDOC (vla-getinterfaceobject APP "ObjectDBX.AxDbDocument"))<br /> ;;;这里的DBXdoc,就是我们要得对象<br /> ;;;它的特性和(setq Doc(vla-get-activedocument APP) )差不多.<br /> ;;;所以操作DBXdoc,和Doc一样,可以用Doc的大多的属性和方法<br />   (vla-open DBXDOC DWGNAME) ;;;dwgname为你要处理的文件<br />     (setq DBXBLOCKS (vla-get-blocks DBXDOC);;;所有块.<br /> 下面和在一般的图中操作一样了.<br />

砼皮铁骨

我在autocad2004下运行这个段代码，总是出现：Error: Failed to register ObjectDBX ActiveX services．　我在cad的目录里没有找到AxDb15.dll, 只有axdb16.dll.．　

aeo

ObjectDBX.AxDbDocument.16

砼皮铁骨

谢谢斑竹这么快就回复了, 我去试试..

jejen

可以用fhotoshop 读取的吧？？

自由的鱼

最初由 jejen 发布
[B]可以用fhotoshop 读取的吧？？ [/B]

这是什么软件？

砼皮铁骨

晕。不知道他说的是什么软件。

darkblue

请问三楼的，那这样是不是就在注册表中注册一个组件？这个REGISTEROBJECTDBX函数应该在哪里调用？每次大陆都需要吗？像这样的组件，我们要怎么知道如何用它？请不吝赐教，谢谢！！！