Private Sub ll()

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

      Set SwApp = Application.SldWorks

      Set SwModel = SwApp.ActiveDoc

   Dim SwSelMgr As SelectionMgr

      Set SwSelMgr = SwModel.SelectionManager

   Dim SwFeat As Feature

      Set SwFeat = SwSelMgr.GetSelectedObject5(1)

   Dim fCount

      fCount = SwFeat.GetFaceCount

      For ii = 1 To fCount

      Next ii

End Sub

the code result → count the cut hole.

Help me

How to get the coordinate  with fill pattern.