---

Hallo SE-Programmierer

Habe da ein kleines Problem wo ich nicht weiter komme

Habe in ASM-Umgebung ein Teil oder mehrere selektiert

Wie kann ich jetzt in VB6 die Eigenschaften (z.B. Pfad, Dateiname) des selektierten Teils auslesen?

Dim SelSet As SolidEdgeframework.SelectSet
Set SelSet = objApp.ActiveDocument.SelectSet
Dim obj1 As Object
Set obj1 = SelSet.Item(1)
...???

Wäre für einen Typ, oder Code-Beispiel sehr dankbar!

Grüsse

Heinz

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

---

Du hast die Antwort ja schin selber fastgegeben.
Frag den Type des Objekts ab.
In der Programmierhilfe gibt es einen Liste mit den Typen.
Je nach Typ gibt es dann unterschiedliche Eigenschaften und Methoden, wie üblich.

Etwas mehr Code aber etwas einfachre zu programmieren, könnte es sein, wenn Du dann je nach Typ nochmal in einem Select Case zu dem richtigen Objekttyp zuweist. Dann hast Du die Eigenschaften und Methoden im direkten Zugriff.

------------------
APeters@BSS-Online.de

[Diese Nachricht wurde von Arne Peters am 28. Jan. 2008 editiert.]

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

---

Hallo Arne Peters

Danke für die schnelle Antwort

Genau dort liegt mein Problem
Ich krige immer eine Fehlermeldung: Typen nicht verträglich
Habe mit verschiedenen Typen, Objekten rumgespielt...

Ich Blicke mit diesen Objekttypen und Methoden noch nicht ganz durch
und in der Programmierhilfe hab ich mich diezbezüglich auch schon rumgequält.

Hättest du vileicht doch noch ein Beispiel(Dateieigenschaften, Pfad, Dateiname)

Besten Dank

Heinz

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

---

Fehler bekomme ich immer dann, wenn ein Objektknoten gewählt ist. ZB-Refplanes, Skizzen, oder Koordinatensysteme
Ansonsten bekomme ich einen Typ zurück.
Aber es stimmt wohl, dass es nicht so trivial ist.
Vor allem, wenn es ein Suboccurrance ist, muss man sich durch die Struktur wohl von unten nach oben durchhangeln, indem man die Parent-objekte sucht und zuweist. Oder eben nur auf der oberen Ebene arbeiten.

Ich hab sowas schon öfter für ganze Baugruppen gemacht, aber nicht für ein  Selectset, sondern einfach alle Occurrances durchlaufen.

------------------
APeters@BSS-Online.de

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

---

so geht`s mit VB.net

Dim Filename as string

' Teil in Substruktur

If obj1.Type = -768828720 Then   
FileName = obj1.Object.OccurrenceFileName

' PAR, PSM, PWD oder ASM in erster Ebene

ElseIf obj1.Type = -1879909116 Or obj1.Type = -1879909117 Then       
FileName = obj1.OccurrenceFileName

end if

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

---

Hallo Nitram

Klappt wunderbar, auch in VB6

Hab mich zwischenzeitlich mit

      objApp.StartCommand (AssemblyEditOpenObject)

beholfen und dann die Eigenschaften ausgelesen.

Grüsse
Heinz

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