1 Reply Latest reply on Aug 8, 2017 10:45 PM by Yong Ning

    How to save sldbomtbt with API?

    Yong Ning

      sldbomtbt.jpg

        • Re: How to save sldbomtbt with API?
          Yong Ning

          Sub main1()

              Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

              Dim SwSelMgr As SelectionMgr

                Set SwApp = Application.SldWorks

                Set SwModel = SwApp.ActiveDoc

                Set SwSelMgr = SwModel.SelectionManager

               

                tmp = SwModel.Extension.SelectByID2("DetailItem2169@°°×ùS", "ANNOTATIONTABLES", 0.2345063688529, 0.08084032457127, 0, False, 0, Nothing, 0)

            

             Dim SwTabAnn As TableAnnotation

                Set SwTabAnn = SwSelMgr.GetSelectedObject5(1)

                SwTabAnn.SaveAsTemplate "d:\1.sldbomtbt"

           

           

          End Sub