---

Hallo zusammen,

ich versuche alle Blöcke eins Blattes zu ermitteln bzw. zu löschen. Mit folgendem Code bekomme ich alle Blöcke des Documents, also wenn mehr als ein Zch. Blatt vorhanden ist, alle Blöcke. Ich möchte aber NUR die Blöcke des Aktiven Blattes...! Bitte um Hilfe.

Code:

---

Dim 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.SketchManager

    vBlockDefs = 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

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

ich würd es so versuchen

  für alle "Views" des Blatts
    "Sketch" Element des "Views"
    vom "Sketch" Element mit "GetSketchBlockInstances" alle Blöcke
      alle Blöcke durchlaufen und löschen

   

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP