【求助】sw用vb求草图面积

hlp

下载https://www.SOLIDWORKS.com/downloads/API/Downloads/00000/0100s/0115/Face_GetArea.zip，解压后得到一个求sw中3d实体表面积的vb程序。打开sw的part文档，在vb6中执行这个程序，可以得到三维实体的表面积，但是这个程序无法计算选定草图的面积。
  
我试着写了一段程序，希望能够对选中的草图计算面积。
*****
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim vBody As Variant
Dim swBody As SldWorks.body2
Dim swFace As SldWorks.face2
Dim nArea As Double
  
Sub main()
    
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set swPart = swModel
Part.SelectByID "草图1", "SKETCH", 0, 0, 0 '选中草图1
nArea = swFace.GetArea
End Sub
*****
但是执行时提示错误。请高手指点。