获取ObjectDBX

Free-Lancer

1. (defun fy:ODBX (varSym)
   
2.   (set varSym
   
3.        (vla-GetInterfaceObject
   
4.          (vlax-get-acad-object)
   
5.          (strcat "ObjectDBX.AxDbDocument."
   
6.                  (substr (getvar "acadver") 1 2)
   
7.          )
   
8.        )
   
9.   )
   
10. )

(defun fy:ODBX (varSym)<br />   (set varSym<br />        (vla-GetInterfaceObject<br />          (vlax-get-acad-object)<br />          (strcat "ObjectDBX.AxDbDocument."<br />                  (substr (getvar "acadver") 1 2)<br />          )<br />        )<br />   )<br /> )

参数为变量名
(fy:odbx 'dbxdoc)

Free-Lancer

1. (defun fy:ODBX (varSym fn)
   
2.   (if (set varSym
   
3.            (vla-GetInterfaceObject
   
4.              (vlax-get-acad-object)
   
5.              (strcat "ObjectDBX.AxDbDocument."
   
6.                      (substr (getvar "acadver") 1 2)
   
7.              )
   
8.            )
   
9.       )
   
10.     (if        (findfile fn)
    
11.       (vla-open (eval varsym) fn)
    
12.       (eval varsym)
    
13.     )
    
14.   )
    
15. )
    
16. (fy:ODBX 'dbdoc (findfile "0.dwg"));_Open 0.dwg
    
17. (vlax-for obj (vla-get-modelspace dbdoc)
    
18.   (setq el (cons obj el))
    
19. );_Select All Object of "0.dwg" In Modelspace
    
20. (vla-copyobjects
    
21.   dbdoc
    
22.   (vlax-make-variant
    
23.     (vlax-safearray-fill
    
24.       (vlax-make-safearray
    
25.         vlax-vbobject
    
26.         (cons 0 (1- (length el)))
    
27.       )
    
28.       el
    
29.     )
    
30.   )
    
31.   (vla-get-modelspace
    
32.     (vla-get-activedocument (vlax-get-acad-object))
    
33.   )
    
34.   'IDpairs
    
35. );_Copy Objects to Modelspace of ActiveDocument

(defun fy:ODBX (varSym fn)<br />   (if (set varSym<br />            (vla-GetInterfaceObject<br />              (vlax-get-acad-object)<br />              (strcat "ObjectDBX.AxDbDocument."<br />                      (substr (getvar "acadver") 1 2)<br />              )<br />            )<br />       )<br />     (if        (findfile fn)<br />       (vla-open (eval varsym) fn)<br />       (eval varsym)<br />     )<br />   )<br /> )<br /> (fy:ODBX 'dbdoc (findfile "0.dwg"));_Open 0.dwg<br /> (vlax-for obj (vla-get-modelspace dbdoc)<br />   (setq el (cons obj el))<br /> );_Select All Object of "0.dwg" In Modelspace <br /> (vla-copyobjects<br />   dbdoc<br />   (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray<br />         vlax-vbobject<br />         (cons 0 (1- (length el)))<br />       )<br />       el<br />     )<br />   )<br />   (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br />   'IDpairs<br /> );_Copy Objects to Modelspace of ActiveDocument