iCAx开思网

标题: solidworks宏中使用图块插入并爆炸问题 [打印本页]

---

作者: 409686481    时间: 2019-5-8 22:46
标题: solidworks宏中使用图块插入并爆炸问题
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
    

复制代码

---

欢迎光临 iCAx开思网 (https://www.icax.org/)

Powered by Discuz! X3.3