---

Hallo,

ich möchte die Ausgabekomponenten einer Skizze in VBA über eine Zählschleife umbenennen. Leider weis ich nicht wie man diese anspricht

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

---

Hallo,

entweder man spricht diese Elemente direkt über den Strukturbaum an,
oder über eine Suchabfrage.

zu 1.: via Objektauflösung Strukturbaum-Element selektieren und Code generieren.

zu 2.: versuchen per Suche (strg+F) diese Elemente zu finden und zu selektieren. Diese Suchabfrage dann in einem Makro ausführen.

Das Umbenennen selbst geht dann über das Ändern der Texteigenschaft.

grüße Dominik

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

---

Hallo,

ich habe das am Freitag mal versucht. Bin aber leider auch nicht zu einem Ergebnis gekommen. Ich denke du musst dir deine Problematik mit den Skizzen nochmal überlegen (in Bezug nehmend auf diesen Beitrag Liste über Regel abfragen). Vielleicht hilft es dir ja weiter wenn du nicht versuchst alle Linien in einen Sketch zu zeichnen und das Feature über die Outputs des Sketches zu steuern sondern mit einer Konstruktionstabelle die dann die entsprechenden Linien einfach als Konstruktionselemente definiert (solch einen Beitrag hatten wir hier bereits. Das ging zwar um Punkte könnte man aber mit Linien genauso machen. Hier mal der Link Variable Muster_Konstruktionstabelle)

@ Dominik:
1.
Leider geht es nicht mit einer Objektauflösung da hier die komplette Skizze selektiert wird. Selbst wenn man versucht den Typ zu bestimmen erhält man den Sketch. In der Online-Doku steht absolut nicht drinnen.

2.
Die Output Elemente kannst du über die Suche in der Umgebung Sketcher und den Typ Output Variable Muster_Konstruktionstabelle(ACHTUNG NICHT OUTPUTS)finden. Hierzu einfach mal ein Makro aufzeichnen und suchen. Der richtige Suchstring wird dann automatisch gesetzt. Im Anschluss musst du dann mit einer Schleife durch die Selektion. Achtung ja mehr Outputs du verwendest desto weniger performant werden Makro´s mit Suchfunktionen ablaufen. Von dem her eher mal den obigen Vorschlag durchdenken

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

danke für die Tipps, ich habe das jetzt so weit geschaft, dass ich die Ausgabekomponenten inaktivieren kann...Was müsste ich in meiner Syntax ändern damit die Ausgabekomponente umbenannt wird???

Dim partdocument1
Dim selection1
Dim ausgabe

Set partdocument1 = CATIA.ActiveDocument

Set selection1 = partdocument1.Selection
selection1.Clear

selection1.Search "CATSketchSearch.2DOutput,all"

Set ausgabe = selection1.item(1).Value
selection1.Clear

selection1.Add ausgabe
CATIA.StartCommand ("inaktivieren")

gruß
Alex

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

---

Hallo Alex,

du kannst über die Benennung über 'ausgabe.name' ansprechen, d.h. auslesen und ändern.

grüße Dominik

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

---

also irgendwas mache ich da falsch, weil mit ausgabe.name habe ich bereits ausprobiert

Dim partdocument1
Dim selection1
Dim ausgabe

Set partdocument1 = CATIA.ActiveDocument

Set selection1 = partdocument1.Selection
selection1.Clear

selection1.Search "CATSketchSearch.2DOutput,all"

Set ausgabe = selection1.item(1).Value
selection1.Clear

ausgabe.Name = "test"

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

---

*snip* Bitte ignorieren. Denkfehler meinerseits.

[Diese Nachricht wurde von Starbirth am 04. Dez. 2009 editiert.]

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

---

Hallo,

Ich grabe das Thema aus. Ich stoße gerade auf die gleiche Schwierigkeiten als Cyzed.
Ich will mit einem Makro Ausgaben einer Skizze umbenennen.

Leider funktioniert die Eigenschaft ".Name" in diesem Fall nicht.
Für Parameters kenne ich den Umweg mit der Methode ".Rename". Es funktioniert in diesem Fall auch nicht.

Mein Makro (ich selektiere meine Ausgabe vor dem Start):

Code:

---

Dim oDoc As PartDocument
Set oDoc = CATIA.ActiveDocument

Dim MySel As Selection
Set MySel = oDoc.Selection

Debug.Print MySel.Item(1).Value.Name

On Error Resume Next
MySel.Item(1).Value.Name = "test"

If Err.Number <> 0 Then
    MsgBox "Something bad just happened", vbCritical, "Rename failed"
    MySel.Item(1).Value.Rename "test"
End If
Err.Clear
On Error GoTo 0

---

Ideen ?

Gruß,
Florent.

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

---

Hallo Zusammen!
Ich grabe diesen alten Beitrag wieder aus, da ich leider nirgends eine Lösung finden kann...
Ich habe ebenfalls das Problem, dass ich ein Ouptut Feature einer Skizze umbenennen will. Die Auswahl des Outputs ist kein Problem, ich finde jedoch nicht den passenden Befehl um auf den Namen zuzugreifen.
Die Funktion TypeName gibt übrigens den Typ "item" aus...
Für einen Vorschlag wäre ich sehr dankbar!
Gruß
F.Kampe

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

---

Servus
Über den Displayname (ModelElement) klappt das umbenennen. (siehe auch Forensuche)

Code:

---

Sub CATMain()

Dim partdocument1 As PartDocument
Dim selection1 As Selection
Dim ModelElement

Set partdocument1 = CATIA.ActiveDocument

Set selection1 = partdocument1.Selection
selection1.Clear

selection1.Search "CATSketchSearch.2DOutput,all"

Set ModelElement = selection1.Item(1).Value.GetItem("ModelElement")

ModelElement.DisplayName = "Test"

End Sub

---

Gruß
Bernd

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

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

---

Super! Vielen Dank dafür, genauso hat es funktioniert.
Beste Grüße
F. Kampe

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