2 Replies Latest reply on Jun 16, 2015 2:32 AM by Yong Ning

    How to get like property of Note

    Yong Ning

      00.jpg

      Follow code result is 7

      Help me. Hope get result is → link property in  note →  $PRP:"SW-Total Sheets(Total Sheets)"???

       

       

      ****************************

      Private Sub ll1()

         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 SwNote As Note

            Set SwNote = SwSelMgr.GetSelectedObject5(1)

            Debug.Print SwNote.GetText

           

      End Sub