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
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