Korzystanie z metody GetFeature (IFace2)

3D Design Volume Model
1

Witam
Pozwólcie, że wyjaśnię mój problem:
Chcę, aby nazwa była obecna w drzewie tworzenia, wybierając twarz. Tyle tylko, że ja nie mogę tego zrobić.
Oto mój kod:

 

Kod:
Opcja jawna

Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sun swSelMgr jako SldWorks.SelectionMgr
Przyciemnij swFace jako SldWorks.Face2
Dim swfeat As SldWorks.Feature
Dim swfacefeat As SldWorks.Feature
Dim swent jako SldWorks.Entity
Dim swseldata As SldWorks.SelectData
Dim vface As Variant

Test podrzędny()



Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swSelMgr = swModel.SelectionManager
Jeśli swSelMgr.GetSelectedObjectType3(1, -1) = swSelFACES Then
    Ustaw swFace = swSelMgr.GetSelectedObject6(1, -1)
    Ustaw swseldata = swSelMgr.CreateSelectData
    vface = swFace.GetFeature
    Ustaw swfeat = vface
        MsgBox swfeat. Nazwa
Inaczej
    MsgBox "wybierz piercing"
    Koniec
Zakończ jeżeli:

Koniec subwoofera


Czy znajdzie się ktoś, kto mi pomoże???
Z góry dziękuję

Gael

1 polubienie
2

Witam

 

Brakowało "zestawu", aby uzyskać tę funkcję i działa.

Poniżej znajduje się zmodyfikowany kod

 

Klasa A+

 

Philippe

 

Opcja jawna
 
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sun swSelMgr jako SldWorks.SelectionMgr
Przyciemnij swFace jako SldWorks.Face2
Dim swfeat As SldWorks.Feature
Dim swfacefeat As SldWorks.Feature
Dim swent jako SldWorks.Entity
Dim swseldata As SldWorks.SelectData
Dim vface As Variant
 
Test podrzędny()
 
 
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swSelMgr = swModel.SelectionManager
Jeśli swSelMgr.GetSelectedObjectType3(1, -1) = swSelFACES Then
    Ustaw swFace = swSelMgr.GetSelectedObject6(1, -1)
    Ustaw swseldata = swSelMgr.CreateSelectData
   Ustaw vface = swFace.GetFeature
    Ustaw swfeat = vface
        MsgBox swfeat. Nazwa
Inaczej
    MsgBox "wybierz piercing"
    Koniec
Zakończ jeżeli:
 
Koniec subwoofera
9 polubień
3

Mam tylko jedno do powiedzenia: DZIĘKUJĘ