Here is a couple examples from the help file to get you started.
This example shows how to get the document referenced by a drawing view.
'---------------------------------------
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swView As SldWorks.View
Dim swDrawModel As SldWorks.ModelDoc2
Dim sModelName As String
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swView = swSelMgr.GetSelectedObject5(1)
Set swDrawModel = swView.ReferencedDocument
sModelName = swView.GetReferencedModelName
Debug.Print "File = " & swModel.GetPathName
Debug.Print " View = " & swView.Name
Debug.Print " Model = " & sModelName
Debug.Print " " & swDrawModel.GetPathName
End Sub
'---------------------------------------
This example shows how to get the custom properties for the configurations in a document.
'---------------------------------------------
Option Explicit
Public Enum swCustomInfoType_e
swCustomInfoUnknown = 0
swCustomInfoText = 30 ' VT_LPSTR
swCustomInfoDate = 64 ' VT_FILETIME
swCustomInfoNumber = 3 ' VT_I4
swCustomInfoYesOrNo = 11 ' VT_BOOL
End Enum
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swConfig As SldWorks.Configuration
Dim vConfName As Variant
Dim vPropName As Variant
Dim vPropValue As Variant
Dim vPropType As Variant
Dim nNumProp As Long
Dim i As Long
Dim j As Long
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Debug.Print "File = " + swModel.GetPathName
vConfName = swModel.GetConfigurationNames
For i = 0 To UBound(vConfName)
Set swConfig = swModel.GetConfigurationByName(vConfName(i))
nNumProp = swConfig.GetCustomProperties(vPropName, vPropValue, vPropType)
Debug.Print " Config = " & vConfName(i)
For j = 0 To nNumProp - 1
Debug.Print " " & vPropName(j) & " = " & vPropValue(j)
Next j
Debug.Print " ---------------------------"
Next i
End Sub