---

Hallo. Kann mir jemand helfen, brauche Makro?

Ich möchte ein Geo.Set, das ein bestimmte Name hat,
in einem beliebigen Geo.Set erstellen.

Ich habe mit der Makroaufzeichnung probiert.Es geht nicht mit beliebigem Set.

So soll es ungefähr schrittweise aussehen:

1.ein beliebiges Geo.Set auswahlen
2.Makro ausführen
3.Ergebnis: Geo.Set mit Name z.B "Work"

Ob es überhaupt geht mit Makro? Vielleicht hat jemand andere Idee?

Vielen Dank im Voraus

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

---

Servus
Bitte Systeminfo ausfüllen.
Im Groben geht es so:

Code:

---

Sub CATMain()

Dim partDocument1 As partDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As part
Set part1 = partDocument1.part

Dim osel As Object
Set osel = partDocument1.Selection

Dim hybridBody1 As hybridBody
Set hybridBody1 = osel.Item2(1).Value

Dim hybridBodies2 As hybridBodies
Set hybridBodies2 = hybridBody1.hybridBodies

Dim hybridBody2 As hybridBody
Set hybridBody2 = hybridBodies2.Add()

hybridBody2.Name = "Work"

part1.Update

End Sub

---

Allerdings fehlt noch die ganze Fehlerbehandlung.

Gruß
Bernd

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

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

---

Hallo Bernd.
Vielen Dank für rasche Antwort.   werde morgen ausprobieren.

Gruß
Konstantin

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

---

Hallo Bernd. Es funktioniert einwandfrei. Vielen Dank.

Wie funktioniert es mit Geometrie?
Und zwar: 1. Beliebige Geometrie auswählen.
          2. Makro ausführen
          3. Dann hat man an der Stelle Geo.Set"Work" ->Untergeo.Set"Input"-> die ausgewählte Geo springt ins "Input"
Kann man so etwa programmieren?

------------------
Gruß
Konstantin

[Diese Nachricht wurde von kostja1978 am 11. Apr. 2013 editiert.]

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

---

Ja

http://books.google.de/books/about/Catia_V5.html?id=R4X7dm9ujAgC&redir_esc=y

Edit: Du suchst wahrscheinlich nach der Methode selectionWork.SelectElement2()

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 12. Apr. 2013 editiert.]

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