Verwenden der GetFeature-Methode (IFace2)

3D Design Volume Model
1

Hallo
Lassen Sie mich mein Problem erklären:
Ich möchte den Namen im Erstellungsbaum anzeigen, indem ich eine Fläche auswähle. Nur, dass ich es nicht kann.
Hier ist mein Code:

 

Code:
Option Explizit

Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sun swSelMgr As SldWorks.SelectionMgr
Dimmen Sie swFace als SldWorks.Face2
Dim swfeat As SldWorks.Feature
Dim swfacefeat As SldWorks.Feature
Dim swent als SldWorks.Entity
Dim swseldata As SldWorks.SelectData
Dimmen Sie die Oberfläche als Variante

Untertest()



Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Legen Sie swSelMgr = swModel.SelectionManager fest
If swSelMgr.GetSelectedObjectType3(1, -1) = swSelFACES dann
    Set swFace = swSelMgr.GetSelectedObject6(1; -1)
    Set swseldata = swSelMgr.CreateSelectData
    vface = swFace.GetFeature
    Set swfeat = vface
        MsgBox swfeat. Name
Oder
    MsgBox "Piercing auswählen"
    Ende
Ende, wenn

Ende Sub


Gibt es jemanden, der mir hilft???
Vielen Dank im Voraus

Gael

1 „Gefällt mir“
2

Hallo

 

Es fehlte ein "Set", um die Funktion zu erhalten, und sie funktioniert.

Unten befindet sich der geänderte Code

 

A+

 

Philippe

 

Option Explizit
 
Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sun swSelMgr As SldWorks.SelectionMgr
Dimmen Sie swFace als SldWorks.Face2
Dim swfeat As SldWorks.Feature
Dim swfacefeat As SldWorks.Feature
Dim swent als SldWorks.Entity
Dim swseldata As SldWorks.SelectData
Dimmen Sie die Oberfläche als Variante
 
Untertest()
 
 
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Legen Sie swSelMgr = swModel.SelectionManager fest
If swSelMgr.GetSelectedObjectType3(1, -1) = swSelFACES dann
    Set swFace = swSelMgr.GetSelectedObject6(1; -1)
    Set swseldata = swSelMgr.CreateSelectData
   Festlegen von vface = swFace.GetFeature
    Set swfeat = vface
        MsgBox swfeat. Name
Oder
    MsgBox "Piercing auswählen"
    Ende
Ende, wenn
 
Ende Sub
9 „Gefällt mir“
3

Ich habe nur eines zu sagen: DANKE