---

Hallo,

ich schriebe an einem Progrämmchen um Flächen oder Volumenkörper von Solid Works in Ansys zu importieren.
Das Programm schreibt ein Importskript. Ich erhoffe damit bessere Informationen zu übertragen statt einen
dumme IGS Datei zu importieren. Vorab importiere ich eine IGS als reine Flächen ins Solid Works(also Part)!
Im Feature Baum tauchen dann nur z.b. "Oberfläche-Importiert01,Oberfläche-Importiert02" usw. auf!

Mit dem Programm "SelectedFeaturetoList" ermittel ich die selektierten Elemente und übertrage in eine Liste,
damit arbeiten ich dann weiter. Das funktioniert wenn ich zb. "Oberfläche-Importiert01" im Feature-Baum
anselektiere. Nach Ausführung seht in der Liste "Oberfläche-Importiert01" usw.

Ich habe folgendes Problem:
Wenn ich die Fläche im Modell selektiere weis ich nicht wie ich den zugehörigen Körpername bzw. das Feature ermittel kann. Die Selektierte Fläche ist dann vom Typ swSelFACES und hat keinen Namen!

Hier das Unterprogamm. Kann mir jemand helfen? Ich hab keinen Rat mehr.
Das Unterprogramm nutzt die MySldWorks Klasse von Herrn Bühling (http://www.mysldworks.de)

Friend ReadOnly Property SelectedFeaturetoList() As List(Of String)
        Get
            'Solid WorksOkjekt mit aktuellen Dokument
            Dim oMySldWorks As MySldWorksCls
            oMySldWorks = New MySldWorksCls
            oMySldWorks.SolidWorksInstanz()
            Dim oSwModel As Object = oMySldWorks.AktuellesDokument

            'SelektionManager Objekt
            Dim oSwSelectionMgr As SldWorks.SelectionMgr
            oSwSelectionMgr = CType(oSwModel.SelectionManager, SldWorks.SelectionMgr)

            Dim selObj As Object
            Dim Name As String

            'Mark-Wert für alle Selektionen festlegen
            Dim iMarkWert As Integer = -1

            'Typ der Selektionen
            Dim eSwSelectType As SwConst.swSelectType_e

            'Anzahl aller selektierten Elemente
            Debug.Print(CStr(oSwSelectionMgr.GetSelectedObjectCount2(iMarkWert)))

            'Liste 
            Dim SelectedFeatureList As New List(Of String)

            'Alle selektierten Elemente in einer Schleife durchlaufen und Liste damit füllen
            For iIndex As Integer = 1 To oSwSelectionMgr.GetSelectedObjectCount2(iMarkWert)

                'Typ der Seketion
                eSwSelectType = CType(oSwSelectionMgr.GetSelectedObjectType3(iIndex, iMarkWert), _  SwConst.swSelectType_e)
                selObj = oSwSelectionMgr.GetSelectedObject5(iIndex)
                Name = oSwModel.GetEntityName(selObj)

                'Fehlerliste schreiben
                'Debug.Print(eSwSelectType.ToString)
                'Debug.Print(selObj.ToString)
                'Debug.Print(Name)

                'Prüfe ob Typ korrekt ist
                If eSwSelectType.ToString = "swSelREFSURFACES" Then
                    SelectedFeatureList.Add(Name)
                Else
                    'Sonst Fehlermeldung
                    MsgBox("Ungültige Auswahl,ignoriere Selektion: " & Name, vbExclamation, "SWtoA")
                End If
            Next

            Return SelectedFeatueList

        End Get
    End Property
   

------------------
Intel(R) Core(TM) Duo CPU
E8600 @ 3.33GHz
RAM: 8.00GB
NVidia Quadro FX 1700
Windows Vista 

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

---

Diese Fragestellung wäre im SolidWorksforum (hier klicken) besser aufgehoben.

LG Andreas

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