Hide Table of Contents

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

 '---------------------------------------



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Get Named Entities Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2010 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.