从外部的DWG插入到图纸空间的代码

Lisphk

插入点 原点， 需要的自己修改下。

1. (defun test ()
   
2.   (vl-load-com)
   
3.   (setq acad1 (vlax-get-acad-object))
   
4.   (setq doc1 (vla-get-ActiveDocument acad1))
   
5.   (setq ps (vla-get-PaperSpace doc1))
   
6.   (setq        ValidBlockName
   
7.          (findfile
   
8.            "...MY BLOCK FULL PATH.." ;;修改为自己要插入DWG的文件名
   
9.          )
   
10.   )
    
11.   (setq        blk (vla-InsertBlock
    
12.               ps
    
13.               (vlax-3d-point '(0.0 0.0 0.0))
    
14.               ValidBlockName
    
15.               1.0
    
16.               1.0
    
17.               1.0
    
18.               0.0
    
19.             )
    
20.   )
    
21.   (princ)
    
22. )

(defun test ()<br />   (vl-load-com)<br />   (setq acad1 (vlax-get-acad-object))<br />   (setq doc1 (vla-get-ActiveDocument acad1))<br />   (setq ps (vla-get-PaperSpace doc1))<br />   (setq        ValidBlockName<br />          (findfile<br />            "...MY BLOCK FULL PATH.." ;;修改为自己要插入DWG的文件名<br />          )<br />   )<br />   (setq        blk (vla-InsertBlock<br />               ps<br />               (vlax-3d-point '(0.0 0.0 0.0))<br />               ValidBlockName<br />               1.0<br />               1.0<br />               1.0<br />               0.0<br />             )<br />   )<br />   (princ)<br /> )

xvjiex

感谢分享从外部的DWG插入到图纸空间的代码