Abrufen des Namens der ausgewählten Entität

Out of category
1

Hallo, ich versuche, den Namen der Entität abzurufen, die ich in meinem Raum auswähle (ob es sich um ein Gesicht, eine Kante oder einen Punkt handelt), aber ich komme nicht weiter, haben Sie eine Idee?

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

Hallo
Dieser Code funktioniert auf meiner Seite.
Aber ich würde es lieber so schreiben:

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 „Gefällt mir“
3

Was?? Oh ja, es funktioniert, aber ich bin mir sicher, dass es gestern nicht funktioniert hat, bevor ich hier gepostet habe, ich verstehe es nicht x)

Vielen Dank auf jeden Fall für Ihre Antwort.