请教高手：用程序如何复制外部参照中的图元到当前文档？

tengte

　　现需要通过选择提取块内文字（包括外部参照的情况），复制到当前文档。
　　用entmake不支持天正文字，而用CopyObjects能复制块内对象，但对外部参照无效，会提示：“Automation 错误。 对象不在数据库中”。
　　不知道有没有高手解决了这个问题？

tengte

求助高手！！！

Gu_xl

1. (defun c:tt ()
   
2.   (vla-open
   
3.     (setq doc (vla-GetInterfaceObject
   
4.                 (vlax-get-acad-object)
   
5.                 (if (< (setq acVer (atoi (getvar "ACADVER"))) 16)
   
6.                   "ObjectDBX.AxDbDocument"
   
7.                   (strcat "ObjectDBX.AxDbDocument." (itoa acVer))
   
8.                 )
   
9.               )
   
10.     )
    
11.     (findfile
    
12.       (strcat
    
13.         (cdr
    
14.           (assoc 2
    
15.                  (entget
    
16.                    (last (last (setq e (nentsel "选择参照块内对象："))))
    
17.                  )
    
18.           )
    
19.         )
    
20.         ".dwg"
    
21.       )
    
22.     )
    
23.   )
    
24.   (vlax-invoke
    
25.     doc
    
26.     'CopyObjects
    
27.     (list
    
28.       (vla-HandleToObject doc (cdr (assoc 5 (entget (car e)))))
    
29.     )
    
30.     (vla-get-ModelSpace
    
31.       (vla-get-ActiveDocument (vlax-get-acad-object))
    
32.     )
    
33.   )
    
34. (princ)
    
35. )

(defun c:tt ()<br />   (vla-open<br />     (setq doc (vla-GetInterfaceObject<br />                 (vlax-get-acad-object)<br />                 (if (< (setq acVer (atoi (getvar "ACADVER"))) 16)<br />                   "ObjectDBX.AxDbDocument"<br />                   (strcat "ObjectDBX.AxDbDocument." (itoa acVer))<br />                 )<br />               )<br />     )<br />     (findfile<br />       (strcat<br />         (cdr<br />           (assoc 2<br />                  (entget<br />                    (last (last (setq e (nentsel "选择参照块内对象："))))<br />                  )<br />           )<br />         )<br />         ".dwg"<br />       )<br />     )<br />   )<br />   (vlax-invoke<br />     doc<br />     'CopyObjects<br />     (list<br />       (vla-HandleToObject doc (cdr (assoc 5 (entget (car e)))))<br />     )<br />     (vla-get-ModelSpace<br />       (vla-get-ActiveDocument (vlax-get-acad-object))<br />     )<br />   )<br /> (princ)<br /> )

tengte

Gu_xl 发表于 2016-2-29 14:27

谢谢Gu_xl大侠！经测试可行（第一次出错，后面都正常）！
另外，想问一下，用vla-open打开的外部参照文件，在命令执行完成后，是否需要关闭？如果不关闭是否有负面影响？

尘缘一生

Gu_xl 发表于 2016-2-29 14:27

这段程序，我测试不成功怎么？

wgij007

是的，出现。 命令: tt ; 错误: ActiveX 服务器返回错误: 非选择性的参数。