AnsweredAssumed Answered

How to set Title Block Table in API

Question asked by Yong Ning on Oct 19, 2014
Latest reply on Oct 19, 2014 by Yong Ning

00.jpg

 

Private Sub del1()

    Set SwApp = Application.SldWorks

    Set SwModel = SwApp.ActiveDoc

  Dim SwSelMgr As SelectionMgr

    Set SwSelMgr = SwModel.SelectionManager

  Dim SwTabBlk 'As TableAnnotation   'TitleBlock

 

    Set SwTabBlk = SwSelMgr.GetSelectedObject5(1)

    Debug.Print SwTabBlk.??????????????????

 

End Sub

 

Dim SwTabBlk 'As → How set ?

1 TableAnnotation??  → result is Error?

2  TitleBlock??  → result is Error?

Outcomes