DBX问题

天下第三

论坛已有：

 利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884

那么，反向操作如何进行，即：

把当前图形中的BLOCK插入其它未打开的图形中

把当前图形中的BLOCK插入其它未打开的图形中

 利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8884

那么，反向操作如何进行，即：

把当前图形中的BLOCK插入其它未打开的图形中

把当前图形中的BLOCK插入其它未打开的图形中

danxingpen

同样的函数copyobjects,,,,只不过里面的参数改动下:
(vla-copyobjects    rdwg
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbobject
        '(0 . 0)
      )
      (list SB)
    )
    (vla-get-modelspace dbxdwg)
  )

龙龙仔

3. ;;(DBX-COPYBLOCKTO (findfile "d:/dwg/12345.dwg") "123")
4. ;;注意:dwgname圖檔不能在打開狀態
5. (defun DBX-COPYBLOCKTO (DWGNAME    BLKNAME    /   BLOCKS
6.    DBXDOC    *ACAD*     BLK  ACADDOCUMENT
7.    CURBLOCKS
8.          )
9.   (setq *ACAD*      (vlax-get-acad-object)
10. ACADDOCUMENT (vla-get-activedocument *ACAD*)
11. CURBLOCKS    (vla-get-blocks ACADDOCUMENT)
12. BLK      (vla-item CURBLOCKS BLKNAME)
13. DBXDOC      (vla-getinterfaceobject
14.          *ACAD*
15.          (strcat "ObjectDBX.AxDbDocument."
16.           (substr (getvar "acadver") 1 2)
17.          )
18.        )
19.   )
20.   (vla-open DBXDOC DWGNAME)
21.   (setq BLOCKS (vla-get-blocks DBXDOC))
22.   (vla-copyobjects
23.     ACADDOCUMENT
24.     (vlax-safearray-fill
25.       (vlax-make-safearray vlax-vbobject '(0 . 0))
26.       (list (vla-item CURBLOCKS BLKNAME))
27.     )
28.     BLOCKS
29.   )
30.   (vla-saveas DBXDOC DWGNAME)
31.   (vlax-release-object DBXDOC)
32. )

;;(DBX-COPYBLOCKTO (findfile "d:/dwg/12345.dwg") "123") ;;注意:dwgname圖檔不能在打開狀態 (defun DBX-COPYBLOCKTO (DWGNAME    BLKNAME    /   BLOCKS    DBXDOC    *ACAD*     BLK  ACADDOCUMENT    CURBLOCKS          )   (setq *ACAD*      (vlax-get-acad-object) ACADDOCUMENT (vla-get-activedocument *ACAD*) CURBLOCKS    (vla-get-blocks ACADDOCUMENT) BLK      (vla-item CURBLOCKS BLKNAME) DBXDOC      (vla-getinterfaceobject          *ACAD*          (strcat "ObjectDBX.AxDbDocument."           (substr (getvar "acadver") 1 2)          )        )   )   (vla-open DBXDOC DWGNAME)   (setq BLOCKS (vla-get-blocks DBXDOC))   (vla-copyobjects     ACADDOCUMENT     (vlax-safearray-fill       (vlax-make-safearray vlax-vbobject '(0 . 0))       (list (vla-item CURBLOCKS BLKNAME))     )     BLOCKS   )   (vla-saveas DBXDOC DWGNAME)   (vlax-release-object DBXDOC) )

citykunan

龙兄总有惊人之举 ：）

天下第三

原来是要先(vla-open DBXDOC DWGNAME)
再(vla-get-blocks DBXDOC))

谢谢龙龙仔！！！
  

davide888

龙龙仔 发表于 2008-5-8 17:02

不知道为什么，我用不了，谁可以告诉我。“未找到主键”