---

Guten Tag Leute

wieder einmal eine einfache Frage, aber eben, ich finde es nicht ...

In einem Zusammenbau habe ich einzelne Bauteile sowie weitere Zusammenbauten.
Nun markiere ich ein Bauteil oder ein Zusammenbau und möchte den Namen (Dateinamen) des markierten Elementes.
Wie kriege ich das hin?
Gibt es etwas wie "activated"?

Roland Weber

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

---

Hi,

am besten holst du dir über den Select Set die gewählte Occurrence, und dann kommst du über die Occurrence zum Dokument und zum Namen.

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

---

Irgendwie habe ich es nicht geschafft.

Aber gefunden habe ich folgendes:

    Dim oOccurrence As ComponentOccurrence
    Dim doc As Document

    On Error Resume Next
    Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
    If Err Then Exit Sub
    Set doc = oOccurrence.Definition.Document
    Dim CurFileName As String
    CurFileName = doc.FullFileName

Nun habe ich den FileName meines Elementes.

Aber danke für den Hinweis.

Roland

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

---

Zitat:

---

Original erstellt von waldi:
Hi,

am besten holst du dir über den Select Set die gewählte Occurrence, und dann kommst du über die Occurrence zum Dokument und zum Namen.

---

Zitat:

---

Original erstellt von RolandWeber:
Irgendwie habe ich es nicht geschafft.

Aber gefunden habe ich folgendes:

    Dim oOccurrence As ComponentOccurrence
    Dim doc As Document

    On Error Resume Next
    Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
    If Err Then Exit Sub
    Set doc = oOccurrence.Definition.Document
    Dim CurFileName As String
    CurFileName = doc.FullFileName

Nun habe ich den FileName meines Elementes.

Aber danke für den Hinweis.

Roland

---

Sorry, aber made my day !

------------------
Grüße daywa1k3r

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

---

schniieeeeeeeefffff, keiner versteht mich, waldi traurig, waldi brauchen Bier. ;-)

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

---

Ah, waldi... Das wird schon wieder 

Das typische Beispiel des Missbrauchs eines Sample Codes 

@Roland

Dein Code macht genau das, was dir der waldi vorgeschlagen hat. Aber macht dir keine Sorgen, das ist normal. Bevor sich die Leute Gedanken machen, suchen Sie ( selbst wenn es länger dauert ) immer nach der fertigen Lösung. Also:

am besten holst du dir über den Select Set die gewählte Occurrence

meint

Dim oOccurrence As ComponentOccurrence
  Dim doc As Document

    On Error Resume Next
  Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
    If Err Then Exit Sub

dann:

und dann kommst du über die Occurrence zum Dokument

meint

Set doc = oOccurrence.Definition.Document

und schliesslich:

und zum Namen.

meint

Dim CurFileName As String
    CurFileName = doc.FullFileName

Nichts für ungut 

------------------
Grüße daywa1k3r

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

---

Hicks, ach daywa1k3r, hicks, wenigstens einer, der mich versteht, hicks

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

---

*hicks* ich verstehe es *hicks* auch nicht mehr *hicks* 

------------------
Grüße daywa1k3r

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

---

Hallo Waldi

Jetzt verstehe ich, warum ich Dich nicht verstehe .....

Aber wenn ich in der API-Hilfe "Select sets" eingebe, finde ich als Anfänger wirklich vieles, aber nicht das .....

Kleine ehrliche Frage an daywa1k3r ....
Findest Du den Samplecode wirklich als "missbraucht"? Natürlich habe ich den irgendwo gefunden, aber wie soll ein Anfänger sonst zu Ergebnissen kommen, wenn nicht über Sample-Code auf dem Netz?

Richtig traurig müsste ja eigentlich der Inventor selber sein, denn dessen API versteht wohl wirklich nur der allerallerallerkleinste Teil der Menschheit.... :-))

Greetings

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

---

Zitat:

---

Kleine ehrliche Frage an daywa1k3r ....
Findest Du den Samplecode wirklich als "missbraucht"? Natürlich habe ich den irgendwo gefunden, aber wie soll ein Anfänger sonst zu Ergebnissen kommen, wenn nicht über Sample-Code auf dem Netz?

---

Roland, mit meinen Smilies habe ich versucht anzudeuten, dass es nicht ganz so ernst gemeint ist. Ich fand es nur komisch, da ich ein paar mal lesen musste bis ich wirklich geglaubt habe, dass ihr beiden genau das Gleiche redet  Ich bin aber weiterhin der Meinung, dass der Lerneffekt viel besser ist, wenn man versucht es alleine zu machen, statt einfach den Code zu kopieren. Es ist zumindest bei mir so, und deswegen versuche ich das auch weiter zu geben. 

Weiterhin viel Spass beim Programmieren ...

------------------
Grüße daywa1k3r

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