---

hy,

ich versuche grad in die macroprogrammierung einzusteigen.
hab folgendes anliegen:
es gibt ein feature was ich ans ende im featurebaum setzen möchte.dabei brauch ich die aktuelle position des features. wie kann man die auslesen. und wie kann ich den featurenamen auslesen.wenn ich den namen habe kann ich dann sagen, dass das feature am ende stehen soll. geht das mit nem macro umzusetzen?

bin euch echt dankbar für jede hilfe

ciao

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

---

hallo programmersheaven 

warum möchte mir denn niemand helfen, kann man mein problem nicht lösen?

have a nice day

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

---

Hallo!

könnst du dein Anliegen anhand eines Beispiels etwas konkretisieren?
Vielleicht kann man dann ja was machen.

Ciao
Max

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

---

das "FEATURE" (Featurename) soll per macro ans ende gesetzt werden.
dafür soll erst das feature indentifiziert werden, sprich Featurename auslesen --> ans ende setzen und als aktiv markieren.

wie kann man das programmieren?

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

---

macro.jpg

hier noch ein bildchen

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

---

bilder weiß ich doch zu würdigen! 

wie man was ans ende verschiebt per makro weiß ich leider auch nicht.
ich würds so machen das ichs such, selektier, kopier, lösch, MainBody suchen & selektieren, einfügen und umbenennen.
und dann stehts am ende.
zB:

Sub CATMain()
    Set partDocument1 = CATIA.ActiveDocument
    Set selection1 = partDocument1.Selection
    selection1.Search "Name='FEATURE',all"
    Set partDocument1 = CATIA.ActiveDocument
    Set selection1 = partDocument1.Selection
    selection1.Copy
    remember_name = selection1.Item(1).Value.Name
    selection1.Delete
    Set part1 = CATIA.ActiveDocument.Part
    part1.Update
    Set selection2 = partDocument1.Selection
    selection2.Search "Name='MainBodyName',all"
    selection1.Paste
    selection1.Item(1).Value.Name = remember_name
    selection1.clear
End Sub

ansonsten kann ich dir leider auch nicht weiterhelfen.
vielleicht gehts ja auch so,
Ciao
Max

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

---

einfach fantastisch, ich hoffe die points sind angekommen 

1000dank für das macro, ich hab es sofort ausprobiert und bin begeistert

ciao,
carsten

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