---

Hallo zusammmen,

ich versuche gerade (per VB) aus einem Assembly den Filenamen eines selektierten Teiles auszulesen.
Das funktioniert mit folgendem Code für die Teile, die direkt im ASM verbaut sind.

    Dim ObjApp As SolidEdgeFramework.Application
    Dim ObjDocument As SolidEdgeAssembly.AssemblyDocument
    Dim ObjSelectSet As SolidEdgeFramework.SelectSet
    Dim ObjSelFile As Object
    Dim FileName As String

        ObjApp = GetObject(, "SolidEdge.Application")
        ObjDocument = ObjApp.ActiveDocument
        ObjSelectSet = ObjDocument.SelectSet
        ObjSelFile = ObjSelectSet.Item(1)
        FileName = ObjSelFile.PartFileName
        MsgBox(FileName)

Ist das selektierte Teil in einem Subassembly verbaut kann ich die Eigenschaft "PartFileName" nicht auslesen.

Gibt es da eine andere Eigenschaft, oder muss ich anders vorgehen?

 

Gruß,

Martin

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

---

Hallo!

Eine Assembly ist ja auch kein Part...

Versuch's mal mit "AssemblyFileName"; ueberpruefe vorher den Doc-Type, und setze dann das entsprechende Objekt.

Gruss,
BJ

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

---

Nö,Nö,

das selektierte Teil ist ein Part. Es befindet sich jedoch in einem Unter-Assembly.

Die Propertie "AssemblyFileName" gibt´s übrigens nicht.

Gruß,

Martin

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

---

Korrektur!

die Propety "AssemblyFileName" gibt´s.
Funktioniert aber nicht.

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

---

Zitat:

---

Es befindet sich jedoch in einem Unter-Assembly.

---

So einfach geht es natuerlich nicht. Musst hier ueber die SubOccurrences gehen und den SubOccurrenceFileName auslesen.

Gruss,
BJ

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

---

Das hab ich mir fast gedacht.

Ich bin die Occurrences schon rekursiv durchnavigiert.

Also auch durch die SubOccurrences und hab mir alle FileNames angezeigt.

Ich weiss aber nicht, welches das selektierte Occurrence ist.

Gruß,

Martin

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

---

hmm... wenn ich genauer nachdenke und mich recht entsinne, musst du ueber die ReferencedObjects gehen, und dich rekursiv in der Baugruppenstruktur hochhangeln. Hab's aber nicht mehr genau im Kopf, und momentan leider auch nicht bei mir um nachzusehen. Hab's mal gebraucht, um via Code Parts in Assemblies zu verbauen.

Gruss,
BJ

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

---

Moin,

so sollte es gehen:

if ObjSelFile.Type = igReference then
    FileName = ObjSelFile.Object.OccurrenceFileName
else
  FileName = ObjSelFile.OccurrenceFileName
end if

modeng

------------------
Unser Unwissen erobert immer weitere Welten. (S.J. Lec)

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

---

Jipp,

hat funktioniert!

Besten Dank.

_________________________________________

mein Unwissen erobert Galaxien!!

Gruß,

Martin

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