' ******************************************************************************
' C:\TEMP\swx67\Macro1.swb - macro recorded on 06/08/99 by mob
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.ActiveDoc
New:uiBaseDoc_c.FileSummaryInfo
End Sub