Delete a sketch in drawing

[shastu]

This I would think would be so easy.  I don't need a for loop as the sketch I am trying to delete in VBA is not tied to any view, but rather just a general sketch on the drawing.  The name of the sketch is "Sketch1".  Why doesn't the below code work?

Dim oApp As Inventor.Application
Set oApp = ThisApplication
Set odoc = oApp.ActiveDocument
Dim oSheet As Sheet
Dim oSketch As DrawingSketch
Set DrawingSketch = "Sketch1"

oSketch.Delete

[WCrihfield · Accepted solution]

Hi @shastu.  I think it's just missing a couple steps.  Here, try this version, and see if it works better for you:

Sub DeleteDrawingSketch()
    Dim oApp As Inventor.Application
    Set oApp = ThisApplication
    Dim oDDoc As DrawingDocument
    Set oDDoc = oApp.ActiveDocument
    Dim oSheet As Sheet
    Set oSheet = oDDoc.ActiveSheet
    Dim oSketch As DrawingSketch
    Set oSketch = oSheet.Sketches.Item("Sketch1")
    oSketch.Delete
End Sub

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

[shastu]

Thanks