Get Material Database and XML Schema File Names Example (VBA)
This example shows how to get the names of the material databases and
the path for the XML material schema file.
'---------------------------------------
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
vMatDBarr As
Variant
Dim
vMatDB As
Variant
Set
swApp = Application.SldWorks
vMatDBarr
= swApp.GetMaterialDatabases
Debug.Print
"MaterialSchemaPathName = " & swApp.GetMaterialSchemaPathName
For
Each vMatDB In vMatDBarr
Debug.Print
" "
& vMatDB
Next
End Sub
'---------------------------------------