Gebruik de GetFeature-methode (IFace2)

3D Design Volume Model
1

Hallo
Laat me mijn probleem uitleggen:
Ik wil de naam in de creatieboom krijgen door een gezicht te selecteren. Behalve dat ik het niet kan.
Hier is mijn code:

 

Code:
Optie Expliciete

Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
Zon swSelMgr As SldWorks.SelectionMgr
Dim swFace als SldWorks.Face2
Dim swfeat Als SldWorks.Feature
Dim swfacefeat als SldWorks.Feature
Dim swent als SldWorks.Entity
Dim swseldata As SldWorks.SelectData
Dim vface als variant

Sub test()



Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Stel swSelMgr = swModel.SelectionManager in
Als swSelMgr.GetSelectedObjectType3(1, -1) = swSelFACES Dan
    Stel swFace in = swSelMgr.GetSelectedObject6(1, -1)
    Set swseldata = swSelMgr.CreateSelectData
    vface = swFace.GetFeature
    Stel swfeat in = vface
        MsgBox swfeat. Naam
Anders
    MsgBox "selecteer een piercing"
    Einde
Einde als

Einde Sub


Zou er iemand zijn om me te helpen???
Bij voorbaat dank

Gael

1 like
2

Hallo

 

Er ontbrak een "set" om de functie te krijgen en het werkt.

Hieronder vindt u de gewijzigde code

 

A+

 

Philippe

 

Optie Expliciete
 
Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
Zon swSelMgr As SldWorks.SelectionMgr
Dim swFace als SldWorks.Face2
Dim swfeat Als SldWorks.Feature
Dim swfacefeat als SldWorks.Feature
Dim swent als SldWorks.Entity
Dim swseldata As SldWorks.SelectData
Dim vface als variant
 
Sub test()
 
 
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Stel swSelMgr = swModel.SelectionManager in
Als swSelMgr.GetSelectedObjectType3(1, -1) = swSelFACES Dan
    Stel swFace in = swSelMgr.GetSelectedObject6(1, -1)
    Set swseldata = swSelMgr.CreateSelectData
   Stel vface in = swFace.GetFeature
    Stel swfeat in = vface
        MsgBox swfeat. Naam
Anders
    MsgBox "selecteer een piercing"
    Einde
Einde als
 
Einde Sub
9 likes
3

Ik heb maar één ding te zeggen: BEDANKT