Récupérer le nom de l'entité sélectionnée

Out of category
1

Bonjour je cherche à récupérer le nom de l'entité que je sélectionne dans ma pièce (que ce sois une face, une arrête, ou un point) mais je bloque, vous auriez une idée ?

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swPart As SldWorks.PartDoc

Sub main()

 Set swApp = Application.SldWorks
 Set swModel = swApp.ActiveDoc
 Set swSelMgr = swModel.SelectionManager
 Set swPart = swModel
 
 Dim swEnt As Object
 Set swEnt = swSelMgr.GetSelectedObject6(1, -1)

 Debug.Print swPart.GetEntityName(swEnt)

End Sub

 

2

Bonjour,
Ce code fonctionne de mon côté.
Mais je l'écrirais plutôt comme ca:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Sub main()
 Set swApp = Application.SldWorks
 Set swModel = swApp.ActiveDoc
 Set swSelMgr = swModel.SelectionManager
 Dim swEnt As SldWorks.Entity
 Set swEnt = swSelMgr.GetSelectedObject6(1, -1)
 Debug.Print swModel.GetEntityName(swEnt)
End Sub

 

1 « J'aime »
3

What ?? Ah oui il marche, pourtant je suis sur que hier ça fonctionnais pas avant que je poste ici, je comprend pas x)

Merci pour ta réponse en tout cas.