solidworks宏中使用图块插入并爆炸问题

409686481

SOLIDWORKS录制一个关于草图中插入图块并爆炸的宏，但是为什么多次使用后会失效？问题出在哪里，求大神解答，谢谢。

1. Dim swApp As Object
   
2. 
   
3. Dim Part As Object
   
4. Dim boolstatus As Boolean
   
5. Dim longstatus As Long, longwarnings As Long
   
6. Dim instance As ISketchManager
   
7. Dim LpSketchBlockInstance As SketchBlockInstance
   
8. 
   
9. Sub main()
   
10. 
    
11. Set swApp = Application.SldWorks
    
12. 
    
13. Set Part = swApp.ActiveDoc
    
14. Dim myBlockDefinition As Object
    
15. Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, "C:\Users\Administrator\Desktop\块1.SLDBLK", False, 1, 0)
    
16. boolstatus = Part.Extension.SketchBoxSelect("-500", "-500", "-500", "500", "500", "500")
    
17. 
    
18. Part.SketchManager.ExplodeSketchBlockInstance Nothing
    

复制代码