[求助]：如何把本图中的BLOCK用VLA-COPYOBJECTS拷贝到另一张图

LADESIGNER

[php](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)))
        blocks(vla-get-blocks dbxDoc)
  )
  (vla-open dbxDoc DwgName)
  (vla-CopyObjects
    AcadDocument
    (vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0)) (list(vla-item curblocks BlkName)))
    blocks
  )
  (vlax-release-object dbxDoc)
)

[/php]
试过以上代码（修改自明经）不行。

LADESIGNER

BY 龙龙仔：
[php](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
  )
  (vlax-release-object dbxDoc)
)
[/php]

雨箭风刀

看程序应该是可以的，这个程序只是拷贝块定义，没有复制块实体。
你可能没有理解
你可以在新图里面用insert看看，是不是已经有块定义被复制过去了。插入一块实例就知道有没有成功了