---

Hallo zusammen,

ich erstelle gerade wieder ein Makro.
Dieses soll Universell über Reactions gestartet werden.

Mir fehlt nur noch die Deklarierung meines aktiven Parts.

Dazu habe ich bereits folgenden Code:

Code:

---

Dim mySelection as Selection
Set mySelection = CATIA.ActiveDocument.Selection
mySelection.Search ("'Part Design'.Part.Name=*;in")

---

Dadurch kann ich immer im aktiven part den "Namen" markieren.

Wie bekomme ich von diesem Namen den Filename heraus?

Das ist der letzte Schritt der mir noch fehlt.

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

---

Servus

Schau dir mal diesen Code an:

Code:

---

Sub CATMain()

Dim mySelection as Selection
dim mySelectedObject as Object
dim i as integer

Set mySelection = CATIA.ActiveDocument.Selection
mySelection.Search "CATPrtSearch.PartFeature,in"

if mySelection.Count <> 0 then 'wurde was gefunden
    for i = 1 to mySelection.Count 'Schleife über alles oder ggf nur auf 1. Element zugreifen
        Set mySelectedObject = mySelection.item2(i).value  'auf das i-te Element zugreifen
        MsgBox TypeName(mySelectedObject)  'was für ein Typ hat dies?
        msgBox mySelectedObject.Parent.FullName  ' zum Document hochhangeln
    next
end if

End Sub

---

Gruß
Bernd

PS: Bitte Systeminfo ergänzen

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

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

---

Servus,

vielen vielen Dank es funktioniert jetzt alles so wie es soll 

Gruß

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