De naam van de geselecteerde entiteit ophalen

Out of category
1

Hallo, ik probeer de naam op te halen van de entiteit die ik in mijn kamer selecteer (of het nu een gezicht, een rand of een stip is), maar ik zit vast, heb je een 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
Deze code werkt aan mijn kant.
Maar ik zou het liever zo schrijven:

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

Wat?? Oh ja het werkt, maar ik weet zeker dat het gisteren niet werkte voordat ik hier postte, ik begrijp het niet x)

Dank u voor uw antwoord in ieder geval.