请教大侠：Excelvba 打开CAD文件后没执行命令

gungun

请教大侠：我是用excelvba打开一个CAD文件，然后删除CAD里面的某个块。但往往是删除这个命令没有执行，是不是文件没有完全打开，就已经执行了删除命令呢，导致没有执行成功？
那么应该怎样让删除命令顺利执行呢，我刚学习这个，在论坛也找不到相关资料，麻烦各位不吝赐教。

Call open……
Call DeleteBlock("A1")   '此命令没执行

zzyong00

1. Public WithEvents ACADApp As AcadApplication    ' Use with Application Event Examples
   
2. Sub Example_AcadApplication_Events()
   
3.     ' This example intializes the public variable (ACADApp) which will be used
   
4.     ' to intercept AcadApplication Events
   
5.     '
   
6.     ' The VBA WithEvents statement makes it possible to intercept an generic object
   
7.     ' with the events associated with that object.
   
8.     '
   
9.     ' Before you will be able to trigger any of the AcadApplication events,
   
10.     ' you will first need to run this procedure.
    
11.    
    
12.     ' We could get the application from the ThisDocument object, but that would
    
13.     ' require having a drawing open, so we grab it from the system.
    
14.     Set ACADApp = GetObject(, "AutoCAD.Application.19")
    
15. End Sub
    
16. 
    
17. Private Sub ACADApp_EndOpen(ByVal FileName As String)
    
18.     ' This example intercepts an Application EndOpen event.
    
19.     '
    
20.     ' This event is triggered when AutoCAD finishes opening a drawing.
    
21.     '
    
22.     ' To trigger this example event:
    
23.     '     1) Make sure to run the example that initializes
    
24.     '     the public variable (named ACADApp) linked to this event.
    
25.     '
    
26.     '     2) Use AutoCAD to open an existing drawing and wait until the
    
27.     '     operation finishes
    
28. 
    
29.     ' Use the "FileName" variable to determine which drawing file is being opened
    
30.     MsgBox "A drawing was just loaded from: " & FileName
    
31. End Sub
    

Public WithEvents ACADApp As AcadApplication    ' Use with Application Event Examples<br /> Sub Example_AcadApplication_Events()<br />     ' This example intializes the public variable (ACADApp) which will be used<br />     ' to intercept AcadApplication Events<br />     '<br />     ' The VBA WithEvents statement makes it possible to intercept an generic object<br />     ' with the events associated with that object.<br />     '<br />     ' Before you will be able to trigger any of the AcadApplication events,<br />     ' you will first need to run this procedure.<br />     <br />     ' We could get the application from the ThisDocument object, but that would<br />     ' require having a drawing open, so we grab it from the system.<br />     Set ACADApp = GetObject(, "AutoCAD.Application.19")<br /> End Sub<br /> <br /> Private Sub ACADApp_EndOpen(ByVal FileName As String)<br />     ' This example intercepts an Application EndOpen event.<br />     '<br />     ' This event is triggered when AutoCAD finishes opening a drawing.<br />     '<br />     ' To trigger this example event:<br />     '     1) Make sure to run the example that initializes<br />     '     the public variable (named ACADApp) linked to this event.<br />     '<br />     '     2) Use AutoCAD to open an existing drawing and wait until the<br />     '     operation finishes<br /> <br />     ' Use the "FileName" variable to determine which drawing file is being opened<br />     MsgBox "A drawing was just loaded from: " & FileName<br /> End Sub<br />

gungun

zzyong00 发表于 2015-5-25 22:03

非常感谢大侠的回复，不过我刚接触这个，还是搞不明白应该怎么处理，能不能结合我的例子详细说明呢，谢谢！
是不是这样的呢？似乎通不过[em0]

Call open……
Call ACADApp_EndOpen(filename)
Call DeleteBlock("A1")   

gungun

OK,已经搞定，看了些教程拿来急用先了，哈哈，谢谢 zzyong00的指点