复制外部参照到当前图纸无法复制标注

467731732@qq.co

1. (defun c:ttt (/ blk-name b blk doc acver a e)
   
2.   (setq blk-name (cdr (assoc 2 (entget (car (entsel))))))
   
3.   (setq
   
4.     b (vlax-get
   
5.         (vlax-invoke-method
   
6.           (vlax-get (vlax-get (vlax-get-acad-object) 'activedocument)
   
7.                     'blocks
   
8.           )
   
9.           'item
   
10.           blk-name
    
11.         )
    
12.         'count
    
13.       )
    
14.   )
    
15.   (setq
    
16.     blk        (vlax-invoke-method
    
17.           (vlax-get (vlax-get (vlax-get-acad-object) 'activedocument)
    
18.                     'blocks
    
19.           )
    
20.           'item
    
21.           blk-name
    
22.         )
    
23.   )
    
24.   (vla-open
    
25.     (setq doc (vla-getinterfaceobject
    
26.                 (vlax-get-acad-object)
    
27.                 (if (< (setq acver (atoi (getvar "acadver"))) 16)
    
28.                   "objectdbx.axdbdocument"
    
29.                   (strcat "objectdbx.axdbdocument." (itoa acver))
    
30.                 )
    
31.               )
    
32.     )
    
33.     (findfile
    
34.       (strcat blk-name ".dwg")
    
35.     )
    
36.   )
    
37. 
    
38.   (setq a -1)
    
39.   (repeat b
    
40.     (setq e (vlax-vla-object->ename
    
41.               (vlax-invoke-method blk 'item (setq a (1+ a)))
    
42.             )
    
43.     )
    
44.     (vlax-invoke
    
45.       doc
    
46.       'copyobjects
    
47.       (list (vla-handletoobject doc (cdr (assoc 5 (entget e)))))
    
48.       (vla-get-modelspace
    
49.         (vla-get-activedocument (vlax-get-acad-object))
    
50.       )
    
51.     )
    
52.   )
    
53. )
    
54. 
    

(defun c:ttt (/ blk-name b blk doc acver a e)<br />   (setq blk-name (cdr (assoc 2 (entget (car (entsel))))))<br />   (setq<br />     b (vlax-get<br />         (vlax-invoke-method<br />           (vlax-get (vlax-get (vlax-get-acad-object) 'activedocument)<br />                     'blocks<br />           )<br />           'item<br />           blk-name<br />         )<br />         'count<br />       )<br />   )<br />   (setq<br />     blk        (vlax-invoke-method<br />           (vlax-get (vlax-get (vlax-get-acad-object) 'activedocument)<br />                     'blocks<br />           )<br />           'item<br />           blk-name<br />         )<br />   )<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 blk-name ".dwg")<br />     )<br />   )<br /> <br />   (setq a -1)<br />   (repeat b<br />     (setq e (vlax-vla-object->ename<br />               (vlax-invoke-method blk 'item (setq a (1+ a)))<br />             )<br />     )<br />     (vlax-invoke<br />       doc<br />       'copyobjects<br />       (list (vla-handletoobject doc (cdr (assoc 5 (entget e)))))<br />       (vla-get-modelspace<br />         (vla-get-activedocument (vlax-get-acad-object))<br />       )<br />     )<br />   )<br /> )<br /> <br />

newer

楼主，你的意思是插入外部参照图，外部参照图里面的标注过不来？把你图纸打包包括参照压缩传到论坛吧。另外，论坛发帖贴代码有方法，如果你经常泡DISCUZ论坛，应该清楚，把代码格式化美化好后，用贴代码的方法贴到论坛来。

发帖，高级方式，右边图标，付费的右下那个<>是贴代码。选亮你的代码后，点它，选LISP。

Lisphk

代码看着好累，楼主习惯后置参数吗，
直接的 vla-get-activedocument , vla-get-blocks 多好看

kqqt6236

支持一下。