Get Named Entities Example (VBA)
This example shows how to get named entities.
'-----------------------------------------------
'
' Preconditions:
' (1)
Part is open.
' (2)
Part has at least one named entity.
'
' Postconditions: None
'
'-----------------------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swPart As
SldWorks.PartDoc
Dim
vNamedEntity As
Variant
Dim
swEnt As
entity
Dim
nEntCount As
Long
Dim
i As
Long
Set
swApp = CreateObject("SldWorks.Application")
Set
swModel = swApp.ActiveDoc
Set
swPart = swModel
' Retrieve the full path name for the part
Debug.Print
"File = " & swModel.GetPathName
' Determine
the total number of named entities in the part and print that value
Debug.Print
" Number
named entities = " & swPart.GetNamedEntitiesCount
Debug.Print
""
vNamedEntity
= swPart.GetNamedEntities
For
i = 0 To UBound(vNamedEntity)
Set
swEnt = vNamedEntity(i)
'
Print the name of each named entity
Debug.Print
" Entity("
& i & ") = " & swPart.GetEntityName(swEnt)
Next
i
End
Sub
'---------------------------------------