请教关于CopyObjects

dmdzf

想把另一个文件中的块定义BLOCK,在需要时复制到本文档中，因为中望CAD不支持ARX，所以就想用CopyObjects来实现。

1. Sub CopyObj()
   
2. Dim xapp As ZcadApplication
   
3. Dim OBJ As Object
   
4. 
   
5. Dim td As ZcadDocument
   
6. Dim TD2 As ZcadDocument
   
7. Dim tObj(0) As Object
   
8. Set td = ThisDrawing
   
9. Set xapp = New ZcadApplication
   
10. ‘xapp.Visible = True
    
11. Set TD2 = xapp.Documents.Open("D:\Program Files\插件\CZ_TK.dwg")
    
12. Set tObj(0) = TD2.Blocks("MXB")
    
13. 
    
14. TD2.Activate
    
15. TD2.CopyObjects tObj(0), td.ModelSpace   ‘   在这一句出错。
    
16. OBJ.Name = "mxb2"
    
17. MsgBox OBJ.Name
    
18. End Sub
    

Sub CopyObj()<br /> Dim xapp As ZcadApplication<br /> Dim OBJ As Object<br /> <br /> Dim td As ZcadDocument<br /> Dim TD2 As ZcadDocument<br /> Dim tObj(0) As Object<br /> Set td = ThisDrawing<br /> Set xapp = New ZcadApplication<br /> ‘xapp.Visible = True<br /> Set TD2 = xapp.Documents.Open("D:\Program Files\插件\CZ_TK.dwg")<br /> Set tObj(0) = TD2.Blocks("MXB")<br /> <br /> TD2.Activate<br /> TD2.CopyObjects tObj(0), td.ModelSpace   ‘   在这一句出错。<br /> OBJ.Name = "mxb2"<br /> MsgBox OBJ.Name<br /> End Sub<br />

请各位大大帮俺看看，谢谢！！！