使用 DBX 不打开图将块原位插入到当前图

Free-Lancer

1. (defun c:tt (/ dbx)
   
2.   (fy:odbx 'dbx (findfile "test.dwg"))
   
3.   (vlax-for x (vla-get-modelspace dbx)
   
4.     (if        (and (= (vla-get-objectname x) "AcDbBlockReference")
   
5.              (= "tukuang" (vla-get-name x));_图框块
   
6.         )
   
7.       (progn
   
8.         (vla-CopyObjects
   
9.           dbx
   
10.           (vlax-safearray-fill
    
11.             (vlax-make-safearray vlax-vbObject '(0 . 0))
    
12.             (list (vla-item (vla-get-blocks dbx) (vla-get-name x)))
    
13.           )
    
14.           (fy:acblocks)
    
15.         );_先把块定义复制过来
    
16.         (vla-insertblock
    
17.           (fy:acms)
    
18.           (vla-get-insertionpoint x);_原位
    
19.           "tukuang"
    
20.           (vla-get-xscalefactor x)
    
21.           (vla-get-yscalefactor x)
    
22.           (vla-get-zscalefactor x)
    
23.           (vla-get-rotation x)
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   (vlax-release-object dbx)
    
29.   (princ)
    
30. )

(defun c:tt (/ dbx)<br />   (fy:odbx 'dbx (findfile "test.dwg"))<br />   (vlax-for x (vla-get-modelspace dbx)<br />     (if        (and (= (vla-get-objectname x) "AcDbBlockReference")<br />              (= "tukuang" (vla-get-name x));_图框块<br />         )<br />       (progn<br />         (vla-CopyObjects<br />           dbx<br />           (vlax-safearray-fill<br />             (vlax-make-safearray vlax-vbObject '(0 . 0))<br />             (list (vla-item (vla-get-blocks dbx) (vla-get-name x)))<br />           )<br />           (fy:acblocks)<br />         );_先把块定义复制过来<br />         (vla-insertblock<br />           (fy:acms)<br />           (vla-get-insertionpoint x);_原位<br />           "tukuang"<br />           (vla-get-xscalefactor x)<br />           (vla-get-yscalefactor x)<br />           (vla-get-zscalefactor x)<br />           (vla-get-rotation x)<br />         )<br />       )<br />     )<br />   )<br />   (vlax-release-object dbx)<br />   (princ)<br /> )

lucas3

感谢Free-Lancer大师分享！{:soso_e179:}