Get File Summary Information Example (VBA)
This example shows how to get the file summary information for an active
SOLIDWORKS document.
'---------------------------------------------
'
' Preconditions: Part or assembly or drawing is open.
'
' Postconditions: None
'
'---------------------------------------------
Option Explicit
Public Enum swSummInfoField_e
swSumInfoTitle
= 0
swSumInfoSubject
= 1
swSumInfoAuthor
= 2
swSumInfoKeywords
= 3
swSumInfoComment
= 4
swSumInfoSavedBy
= 5
swSumInfoCreateDate
= 6
swSumInfoSaveDate
= 7
swSumInfoCreateDate2
= 8
swSumInfoSaveDate2
= 9
End Enum
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
bRet As
Boolean
Set
swApp = CreateObject("SldWorks.Application")
Set
swModel = swApp.ActiveDoc
Debug.Print
"File = " + swModel.GetPathName
Debug.Print
" Title
=
" + swModel.SummaryInfo(swSumInfoTitle)
Debug.Print
" Subject
=
" + swModel.SummaryInfo(swSumInfoSubject)
Debug.Print
" Author
=
" + swModel.SummaryInfo(swSumInfoAuthor)
Debug.Print
" Keywords
=
" + swModel.SummaryInfo(swSumInfoKeywords)
Debug.Print
" Comment
=
" + swModel.SummaryInfo(swSumInfoComment)
Debug.Print
" SavedBy
=
" + swModel.SummaryInfo(swSumInfoSavedBy)
Debug.Print
" CreateDate
=
" + swModel.SummaryInfo(swSumInfoCreateDate)
Debug.Print
" SaveDate
=
" + swModel.SummaryInfo(swSumInfoSaveDate)
Debug.Print
" CreateDate2
= "
+ swModel.SummaryInfo(swSumInfoCreateDate2)
Debug.Print
" SaveDate2
=
" + swModel.SummaryInfo(swSumInfoSaveDate2)
End Sub
'------------------------------------------