SolidWorks机械工程师网——最大的SolidWorks学习平台

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim instance As ISketchManager
Dim LpSketchBlockInstance As SketchBlockInstance

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myBlockDefinition As Object
Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, "C:UsersAdministratorDesktop块1.SLDBLK", False, 1, 0)
boolstatus = Part.Extension.SketchBoxSelect("-500", "-500", "-500", "500", "500", "500")

Part.SketchManager.ExplodeSketchBlockInstance Nothing