Pobieranie nazwy wybranej jednostki

Out of category
1

Witam, próbuję odzyskać nazwę istoty, którą wybieram w moim pokoju (niezależnie od tego, czy jest to twarz, krawędź czy kropka), ale utknąłem, masz pomysł?

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

Witam
Ten kod działa po mojej stronie.
Ale ja bym to wolał napisać tak:

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 polubienie
3

Co?? O tak, to działa, ale jestem pewien, że wczoraj to nie zadziałało, zanim tu napisałem, nie rozumiem x)

W każdym razie dziękuję za odpowiedź.