---

Hallo!

Ich brauche eure Hilfe! Ich möchte in den Drawings die Stempel (2D Component) exploden. Dies ist mir auch soweit gelungen, nur sind die Stempel nach dem exploden noch vorhanden und lassen sich mit folgendem Makro nicht löschen.

        Dim MyView1 As DrawingView
For y=3 to mysheet.views.count
Set MyView1 = MySheet.Views.Item(y)
Set drawingComponents1 = MyView1.Components
For j=1 to drawingComponents1.count
Set drawingComponent1 = drawingComponents1.Item(j)
drawingComponent1.Explode
****drawingComponent1.delete
next
Next

Mit der Zeile mit den Sternchen gibt es Probleme. Hoffe es hat jemand eien Idee, wie man das Problem umgehen kann.

Grüße CatiaV5User

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

---

Hallo CatiaV5User,

hier ein Auszug aus einem Makro, welches bei mir funktioniert:

TargetComponent1.Explode

Set oSelection = DrawingDocument1.Selection

' Clear the selection
oSelection.Clear

' Add the Object to be deleted in the selection
oSelection.Add TargetComponent1
  oSelection.Delete

Gruß
Bertel

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

---

Ja so gehts! Mit Selection, warum bin ich da nicht selbst drauf gekommen?!

Vielen Dank Bertel! 

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

---

Moin CatiaV5User,

alternative sollte es auch noch so gehen:

For j=1 to drawingComponents1.count 
  Set drawingComponent1 = drawingComponents1.Item(j)
  drawingComponent1.Explode
  drawingComponents1.Remove(j)
next

Hab es aber nicht getestet!!!

Gruß
Proofin

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