I just want to get (delete) the Blocks on the Active Drawing Sheet. With this Code i get all Blocks in Documet. Please help!
SolidworksApi macrosDim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSketchMgr As SldWorks.SketchManager
Dim swSketchBlockDef As SldWorks.SketchBlockDefinition
Dim swSketchBlockInstance As SldWorks.SketchBlockInstance
Dim vBlockDefs As Variant
Dim vBlockInstances As Variant
Dim swBlockDefSketch As Variant
Dim swSheet As SldWorks.Sheet
Dim i As Integer
Dim j As Integer
Sub main()Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swSketchMgr = swModel.SketchManagervBlockDefs = swSketchMgr.GetSketchBlockDefinitions
If IsEmpty(vBlockDefs) = False Then
For i = 0 To UBound(vBlockDefs)
Set swSketchBlockDef = vBlockDefs(i)
vBlockInstances = swSketchBlockDef.GetInstances
If IsEmpty(vBlockInstances) = False Then
For j = 0 To UBound(vBlockInstances)
Set swSketchBlockInstance = vBlockInstances(j)
Debug.Print swSketchBlockInstance.Name
Next j
End If
Next i
End If
End Sub