插入块后，可以直接炸开当前插入块吗？

yucc

   
插入块后，可以直接炸开当前插入块吗？

2. On Error Resume Next
   
3. If ListView2.ListItems.Count = 0 Then
   
4.    
   
5.     MsgBox "请先选择图纸！"
   
6.     Exit Sub
   
7. 
   
8. Else
   
9. 
   
10. Set acadApp = GetObject(, "AutoCAD.Application.18")
    
11. 
    
12. If Err Then
    
13.     Err.Clear
    
14.         ' 创建一个新的AutoCAD应用程序对象
    
15.   Set acadApp = CreateObject("AutoCAD.Application.18")
    
16.       If Err Then
    
17.         Exit Sub
    
18.       End If
    
19.   End If
    
20.    
    
21.     ' 显示AutoCAD应用程序
    
22.     acadApp.Visible = True
    
23.     acadApp.WindowState = acMax
    
24. 
    
25. Dim i As Integer
    
26. For i = 1 To ListView2.ListItems.Count + 1
    
27. 
    
28. acadApp.Documents.Open ListView2.ListItems(i).SubItems(1) & "" & ListView2.ListItems.Item(i)
    
29. 
    
30. Dim lujing As String
    
31.      lujing = Text3.Text
    
32. 
    
33. Dim d(2) As Double
    
34.      d(0) = Val(Text1.Text)
    
35.      d(1) = Val(Text2.Text)
    
36.      d(2) = 0
    
37.      acadApp.ActiveDocument.ModelSpace.InsertBlock d, lujing, 1, 1, 1, 0  
    
38.      
    
39.      '这里能否增加一句，直接炸开当前插入块
    
40.      
    
41.      acadApp.Application.ZoomExtents
    
42.      acadApp.Documents.Close
    
43. Next i
    
44. End If
    
45. 'acadApp.Quit
    
46. MsgBox "OK!  ^_^"

On Error Resume Next<br /> If ListView2.ListItems.Count = 0 Then<br />    <br />     MsgBox "请先选择图纸！"<br />     Exit Sub<br /> <br /> Else<br /> <br /> Set acadApp = GetObject(, "<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Application.18")<br /> <br /> If Err Then<br />     Err.Clear<br />         ' 创建一个新的AutoCAD应用程序对象<br />   Set acadApp = CreateObject("AutoCAD.Application.18")<br />       If Err Then<br />         Exit Sub<br />       End If<br />   End If<br />     <br />     ' 显示AutoCAD应用程序<br />     acadApp.Visible = True<br />     acadApp.WindowState = acMax<br /> <br /> Dim i As Integer<br /> For i = 1 To ListView2.ListItems.Count + 1<br /> <br /> acadApp.Documents.Open ListView2.ListItems(i).SubItems(1) & "" & ListView2.ListItems.Item(i)<br /> <br /> Dim lujing As String<br />      lujing = Text3.Text<br /> <br /> Dim d(2) As Double<br />      d(0) = Val(Text1.Text)<br />      d(1) = Val(Text2.Text)<br />      d(2) = 0<br />      acadApp.ActiveDocument.ModelSpace.InsertBlock d, lujing, 1, 1, 1, 0  <br />      <br />      '这里能否增加一句，直接炸开当前插入块<br />      <br />      acadApp.Application.ZoomExtents<br />      acadApp.Documents.Close<br /> Next i<br /> End If<br /> 'acadApp.Quit<br /> MsgBox "OK!  ^_^"

yucc

多谢“zzyong00”，已解决