---

hallo Leute,
ich kriege im Moment eine Hürde nicht gestemmt.
Ich kenne den exakten Namen eines Features und würde dieses Feature gerne direkt mit dem Selection Manager ansprechen und weiter auswerten.
Leider verknote ich da allerdings immer etwas.
Hat da einer einen Tip, wie man das korrekt machen muss?
(ach ja, wenn ich immer mit einem Loop durch den Baum laufe, dann kriege ich die Infos ja aber ich denke das kostet auf Dauer zu viel Zeit, wenn man für jede Frage immer durch den Baum läuft)

        Dim swApp As SldWorks.SldWorks
        Dim swModel As SldWorks.ModelDoc2
        Dim swMathUtil As SldWorks.MathUtility
        Dim swSelMgr As SldWorks.SelectionMgr
        Dim swFeature As SldWorks.Feature
        Dim swFeatureSkizze As SldWorks.Feature
        Dim swSkizze As SldWorks.Sketch
        Dim swSkizzeXform As SldWorks.MathTransform
        Dim swPt As SldWorks.MathPoint
        Dim vSketchPt As Object
        Dim nSketchPtData(2) As Double
        Dim vSketchPtData As Object
        Dim swSketchPt As SldWorks.SketchPoint
        Dim swEnt As SldWorks.Entity
        Dim nEntType As Long
        Dim vNormal As Object
        Dim i As Long

        Dim HoleFeatureData As SldWorks.IWizardHoleFeatureData2

        swApp = CreateObject("SldWorks.Application")
        swMathUtil = swApp.GetMathUtility
        swModel = swApp.ActiveDoc
        swSelMgr = swModel.SelectionManager

        FeatureName = "Aufsatz-Linear austragen1"

        'hole das gewünschte Feature - so in der Art würde ich mir das wünschen....
        swFeature = swSelMgr.GetSelectedObject3(FeatureName)
        temp = swFeature.Description

        'swFeature = swModel.ISelectionManager.IGetSelectedObjectsComponent2.i

vielen Dank schon mal an dieser Stelle
Thom

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

---

Hallo Thom,

der Selektionmanager ist nur für, wie der Name schon sagt, selektierte Elemente zuständig.
Du musst zunächst über PartDoc.FeatureByName oder (AssemblyDoc/DrawingDoc, je nachdem was für du geöffnet hast) ein Feature Objekt initialisieren.
Ungefähr so:

Code:

---

Dim swPart As SldWorks.PartDoc
swPart = swModel
swFeature = swPart.FeatureByName(FeatureName)

---

Darauf kannst du weitere Informationen mit Hilfe des Features Objekt ermitteln oder dieses selektieren (Feature.Select2). Ist dann aber nicht mehr notwendig.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

vielmal bedankt

so habe ich mir das vorgestellt.

Thom

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