---

Hallo Forum,
gab es nicht mal irgendwo ein Tool, das alle unbenutzten Skizzen gelöscht hat? Kann es im Netz nicht finden. Ich muß das Rad ja nicht neu erfinden oder habe ich das nur geträumt?

Gruß
Seher

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

---

Hallo Seher,

das ist kein Problem:

Public Sub delSketchesWithoutDependents()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oSketches As PlanarSketches
  Set oSketches = oDoc.ComponentDefinition.Sketches
 
  Dim oSketch As PlanarSketch
 
  For Each oSketch In oSketches
 
      If oSketch.Dependents.Count = 0 Then
       
        Call oSketch.Delete
       
      End If

  Next oSketch
 
End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Klappt super!

Vielen Dank
Seher

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