Get SolidWorks Search Third-party Keywords Example (VBA)

This example shows how to get the SolidWorks Search third-party keywords for a model document.

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

'

' Preconditions: Model document is open that

'                was previously assigned Solidworks

'                Search third-party keywords.

'

' Postconditions: None

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim vAppName As Variant, vKeywordNames As Variant, vKeywordValues As Variant

Dim i As Long, lNbrKeywords As Long

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

lNbrKeywords = swModelDocExt.GetSearchData("COSMOSWorks", vAppName, vKeywordNames, vKeywordValues)

Debug.Print "Number of keywords: " & lNbrKeywords

For i = 0 To lNbrKeywords - 1

    Debug.Print "Keyword: " & vKeywordNames(i)

Next i

End Sub