---

Hallo,
jetzt hab ich das mit den Attributen so lala begriffen, nun kann ich eine Skizze im aktiven Blatt nicht löschen.

Hat da jemand eine Anregung für mich?

etwas später:
    Dim oSketch As DrawingSketch
    Set oSketch = oDoc.ActiveSheet.Sketches(2)
    oSketch.Delete

------------------
Gruß
Hans-Peter 
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

[Diese Nachricht wurde von SHP am 27. Aug. 2005 editiert.]

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

---

Hallo Hans-Peter,

so geht's:

Private Sub delSketch()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument

  Call oDoc.ActiveSheet.Sketches(1).Delete

End Sub

... löscht die 1. Skizze.

Könnte es sein, dass Deine Skizze nicht auf dem Blatt, sondern an eine View angehängt ist ?

Grüsse,

Paul

www.morecam.ch/cad.htm

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

---

Zitat:

---

Original erstellt von PaulSchuepbach:
Hallo Hans-Peter,

so geht's:

Private Sub delSketch()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument

  Call oDoc.ActiveSheet.Sketches(1).Delete

End Sub

... löscht die 1. Skizze.

Könnte es sein, dass Deine Skizze nicht auf dem Blatt, sondern an eine View angehängt ist ?

Grüsse,

Paul

www.morecam.ch/cad.htm

---

Danke Paul,
meine Skizze ist am Blatt.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

@Paul
wie kann es gehen wenn ich den Namen der Skizze weis und die Textbox löschen möchte?

So geht's mal nicht:
Call oDoc.ActiveSheet.Sketches(1).TextBoxes(1).Delete

------------------
Gruß
Hans-Peter 
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

[Diese Nachricht wurde von SHP am 28. Aug. 2005 editiert.]

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

---

Hallo Hans-Peter,

Du kannst die Textbox nur löschen, wenn Du die Skizze in Bearbeitung nimmst:

Private Sub deleteTextBox()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oSheet As Sheet
  Set oSheet = oDoc.ActiveSheet
 
  Call oSheet.Sketches(1).Edit
 
  Call oSheet.Sketches(1).TextBoxes(1).Delete
 
  Call oSheet.Sketches(1).ExitEdit
 
End Sub

Grüsse,

Paul

www.morecam.ch/cad.htm

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

---

Danke Paul,
so klappt es.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

So, das eine hätte ich, jetzt kommt das nächste.

Hab jetzt 5 Skizzen mit je einem Attributset "iFeatureDaten" und dem Attribut "aktuell" mit Value 1.
Die Attributsets finde ich so:

    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oAttributSetColl As AttributeSetsEnumerator
    Set oAttributSetColl = oDoc.AttributeManager.FindAttributeSets("iFeatureDaten", "aktuell", 1)

Jetzt will ich bei allen Skizzen das Attribut "aktuell auf 0 setzen.

Wie mach ich das am Besten?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Hallo,
das mit den Attributen hab ich hingekriegt, aber ich kann die Skizzen die jetzt das Attribut "aktuell" auf 0 haben, nicht löschen.

Sub delete_aktuell_null()
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    Dim oSketchColl As ObjectCollection
    Set oSketchColl = oDoc.AttributeManager.FindObjects("iFeatureDaten", "aktuell", 0)

    Dim oSketchName As String
    Dim oSketch As Sketch
   
    'nur wenn mindestens eine Skizze gefunden wird
    If oSketchColl.count > 0 Then
        For x = 1 To oSketchColl.count
            oSketchName = oSketchColl(x).name
            Set oSketch = oDoc.ActiveSheet.Sketches.Item(oSketchName)
            Call oSketch.Delete
        Next
    End If
    Stop
End Sub

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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