如何用VB获得当前solidworks装配体的路径？

除了WINDOWS系统自带的窗口可以用VB直接读取路径外，其他的应用程序VB无法直接读取。

只有分析了solidworks的具体内存结构，才有可能正确读取装配体的路径。

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim SSS As String
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc

SSS = Part.GetPathName