请教不开图，DBX插入图块

cheng5276

;RetVal = object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation [, Password])
;想通过不开图在目标图中的指定点插入图中已有的图块对象，不成功。
;但查看（dump） DBX是有InsertBlock方法的
;另外[, Password]如何用，我没查到相关的用法。
;请高手们指点迷津。
(defun c:tt()
(setq dbx (cheng5276-dbx "c:\\02.dwg"))
(Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "aaa" 1 1 1 0) ;插入不成功
(vla-saveas dbx "c:\\02.dwg")
(vlax-release-object dbx)
)
;创建DBX通用函数
(defun cheng5276-dbx (file / dbxstr dbx)
(setq DbxStr (if (< (atof (getvar "ACADVER")) 16.0)　
"ObjectDBX.AxDbDocument"　
(strcat "ObjectDBX.AxDbDocument." (substr (getvar "acadver") 1 2))
)　
)　
(setq dbx (Vlax-Get-Or-Create-Object DbxStr))
(if file (vla-open dbx file))
dbx
)

hhhlike

最近也碰到这个问题，不知道有没有解决了

byghbcx

AUTOCAD的设计中心可以直接拖入，没必要写程序

davide888

我也想知道      

edata

老帖也回一回
DBX插入文件，试试插入外部文件，密码"778899"是"A$C7EC4176F.dwg" 加密的密码。。

2. (defun c:tt()
   
3. (setq dbx (cheng5276-dbx (findfile "20140611~11.dwg")))
   
4. (Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "A$C7EC4176F.dwg" 1 1 1 0 "778899") ;插入不成功
   
5. (vla-saveas dbx (findfile "20140611~11.dwg"))  
   
6. (vlax-release-object dbx)
   
7. )
   
8. ;创建DBX通用函数
   
9. (defun cheng5276-dbx (file / dbxstr dbx)
   
10. (setq DbxStr (if (< (atof (getvar "ACADVER")) 16.0)　
    
11. "ObjectDBX.AxDbDocument"　
    
12. (strcat "ObjectDBX.AxDbDocument." (substr (getvar "acadver") 1 2))
    
13. )　
    
14. )　
    
15. (setq dbx (Vlax-Get-Or-Create-Object DbxStr))
    
16. (if file (vla-open dbx file))
    
17. dbx
    
18. )

(defun c:tt()<br /> (setq dbx (cheng5276-dbx (findfile "20140611~11.dwg")))<br /> (Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "A$C7EC4176F.dwg" 1 1 1 0 "778899") ;插入不成功<br /> (vla-saveas dbx (findfile "20140611~11.dwg"))  <br /> (vlax-release-object dbx)<br /> )<br /> ;创建DBX通用函数<br /> (defun cheng5276-dbx (file / dbxstr dbx)<br /> (setq DbxStr (if (< (atof (getvar "ACADVER")) 16.0)　<br /> "ObjectDBX.AxDbDocument"　<br /> (strcat "ObjectDBX.AxDbDocument." (substr (getvar "acadver") 1 2)) <br /> )　<br /> )　<br /> (setq dbx (Vlax-Get-Or-Create-Object DbxStr))<br /> (if file (vla-open dbx file))<br /> dbx<br /> )

edata

实现了当前文件的块插入到外部文件，应该是楼主所说的。。。

1. (defun c:tt()
   
2. (setq dbx (cheng5276-dbx (findfile "20140611~11.dwg")))
   
3.   (setq mydoc(vla-get-activedocument(vlax-get-acad-object)))
   
4. (setq BLOCKS (vla-get-blocks mydoc))
   
5. (setq SB (vla-item BLOCKS "A$C7EC4176F" ))
   
6. (vla-copyobjects
   
7.    mydoc
   
8.    (vlax-safearray-fill
   
9.      (vlax-make-safearray
   
10.        vlax-vbobject
    
11.        '(0 . 0)
    
12.      )
    
13.      (list SB)
    
14.    )
    
15.    (Vlax-Get dbx 'ModelSpace)
    
16. )
    
17. (vlax-release-object SB)
    
18.   (Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "A$C7EC4176F" 1 1 1 0 )
    
19. ;(Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "A$C7EC4176F" 1 1 1 0 "778899") ;插入不成功
    
20. (vla-saveas dbx (findfile "20140611~11.dwg"))  
    
21. (vlax-release-object dbx)
    
22. )
    
23. ;创建DBX通用函数
    
24. (defun cheng5276-dbx (file / dbxstr dbx)
    
25. (setq DbxStr (if (< (atof (getvar "ACADVER")) 16.0)　
    
26. "ObjectDBX.AxDbDocument"　
    
27. (strcat "ObjectDBX.AxDbDocument." (substr (getvar "acadver") 1 2))
    
28. )　
    
29. )　
    
30. (setq dbx (Vlax-Get-Or-Create-Object DbxStr))
    
31. (if file (vla-open dbx file))
    
32. dbx
    
33. )

(defun c:tt()<br /> (setq dbx (cheng5276-dbx (findfile "20140611~11.dwg")))<br />   (setq mydoc(vla-get-activedocument(vlax-get-acad-object)))<br /> (setq BLOCKS (vla-get-blocks mydoc))<br /> (setq SB (vla-item BLOCKS "A$C7EC4176F" ))<br /> (vla-copyobjects<br />    mydoc<br />    (vlax-safearray-fill<br />      (vlax-make-safearray<br />        vlax-vbobject<br />        '(0 . 0)<br />      )<br />      (list SB)<br />    )<br />    (Vlax-Get dbx 'ModelSpace)<br /> )<br /> (vlax-release-object SB)<br />   (Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "A$C7EC4176F" 1 1 1 0 )<br /> ;(Vla-InsertBlock (Vlax-Get dbx 'ModelSpace) (vlax-3d-point '(0 0 0)) "A$C7EC4176F" 1 1 1 0 "778899") ;插入不成功<br /> (vla-saveas dbx (findfile "20140611~11.dwg"))  <br /> (vlax-release-object dbx)<br /> )<br /> ;创建DBX通用函数<br /> (defun cheng5276-dbx (file / dbxstr dbx)<br /> (setq DbxStr (if (< (atof (getvar "ACADVER")) 16.0)　<br /> "ObjectDBX.AxDbDocument"　<br /> (strcat "ObjectDBX.AxDbDocument." (substr (getvar "acadver") 1 2)) <br /> )　<br /> )　<br /> (setq dbx (Vlax-Get-Or-Create-Object DbxStr))<br /> (if file (vla-open dbx file))<br /> dbx<br /> )

灰石Jeremy

谢大神指导，最近也在琢磨