---

Hallo Leute,
ich möchte ein Frame bearbeiten. Der Frame ist aus mehrere Linien gebaut. Es sind ein paar Linien, die ich gerne entfernen möchte.
z.ß Line.14 soll entfernt werden. Weiss jemdand vielleicht wie das geht?
Es soll einfach in einem Activen Document ausgeführt werden.
LG
Wie immer Vielen Dank im Voraus

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

---

Servus
Linien selektieren (osel.add oLinie) und danach löschen (osel.delete)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Vielen Dank Bernd.
Soll ich zuerst eine Linie erzeugen und dann löschen_?
Die linie existiert eigentlich im Frame .
Ich muss die nur löschen können.

Sub CATMain()
Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
Set drawingViews1 = drawingSheet1.Views
Set MyView = drawingViews1.ActiveView

Dim Fact2D  As Factory2D
Set Fact2D = MyView.Factory2D
Dim Line1 As Line2D
Set Line1 = Fact2D.CreateLine (500, 100 ,500, 100)
'Ich will einfach die Linie 143 entfernen.... ich weiss nicht ob das
'Richtig ist?
'Dim MyDimension As DrawingDimension
'Set MyDimension = MyView.Dimensions.Remove("Linie.143")

End Sub

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

---

Servus
Anbei ein Beispiel:

Code:

---

Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Background View")

Dim geometricElements1 As GeometricElements
Set geometricElements1 = drawingView1.GeometricElements

Dim line2D1 As Line2D
Set line2D1 = geometricElements1.Item("Linie.3")

Dim osel As Selection

Set osel = CATIA.ActiveDocument.Selection

osel.Clear
osel.Add line2D1

osel.Delete

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Danke Bernd;-)
das hat mir schon viel geholfen.
Nur noch eine Frage. Geht das mit dem Textfelder auch genau so?
z.ß Text.71 entfernen?
Lg

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

---

Servus
Probiere es doch einfach.

Gruß
Bernd

PS: Ja, es geht genauso.

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,
danke nochmal für die Hilfe. Ich habe das mit dem Textfelder probiert und es geht sogar dass ich ein Textfeld erzeuge und danach wieder lösche.
ABER
Ich kann ein schon erzeugtes Textfeld nicht löschen. z.ß (Textfeld.141).
Kannst dir bitte schauen was ich in dem Programm ändern soll damit ich die vorhanden Textfelder löschen kann.
Danke Dir :-)

Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.4 (Detail)")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim MyView As DrawingView
'Set MyView = drawingViews1.ActiveView
Set MyView = drawingSheet1.Views.Item(1)

Dim Mytexts As DrawingTexts
Set Mytexts = MyView.Texts

Dim Mytext As DrawingText
Set Mytext = Mytexts.Add("TEST", 500, 400)

Mytext.SetFontSize 0, 0, 100
'Mytext.SetFontName 0, 0, "SSS1"
Mytext.SetParameterOnSubString catItalic, 0, 0, 1
Set oSel = CATIA.ActiveDocument.Selection
'oSel.VisProperties.SetRealColor r,b,g, 10
oSel.VisProperties.SetRealColor 0, 0, 255, 0

msgbox "Hallo"
Dim osel As Selection
Set osel = CATIA.ActiveDocument.Selection
osel.Clear

osel.Add Mytext
osel.Delete

End Sub

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