SwBomTabAnn.GetComponents的应用

rolex513 · 发表于 2016-2-16 08:48:09

不能在Sw2006的API中应用，在sw2010中调试成功
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 SwBomTabAnn As BomTableAnnotation
Set SwBomTabAnn = SwSelMgr.GetSelectedObject5(1)
Debug.Print SwBomTabAnn.BomFeature.GetFeature.Name
ss = SwBomTabAnn.GetComponents(1)
End Sub

Private Sub ll1()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwDraw As DrawingDoc
Set SwDraw = SwModel
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwBomTabAnn As BomTableAnnotation
Set SwBomTabAnn = SwSelMgr.GetSelectedObject5(1)
Dim SwTabAnn As TableAnnotation
Set SwTabAnn = SwBomTabAnn
With SwTabAnn
For ii = 1 To .RowCount
.RowHidden(ii) = False
Next ii
End With
End Sub

复制代码

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 Visible
Dim SwBomFeat As BomFeature, SwBomTabAnn As BomTableAnnotation
Set SwBomTabAnn = SwSelMgr.GetSelectedObject5(1)
With SwBomTabAnn
Ss = .GetComponents(1)
End With
Dim SwTabAnn As TableAnnotation
Set SwTabAnn = SwBomTabAnn
Dim SwComp As Component2
With SwTabAnn
For ii = 1 To .RowCount - 1
Ss = SwTabAnn.GetComponents(ii)
Set SwComp = Ss(0)
Debug.Print SwComp.Name2, SwComp.GetModelDoc.GetTitle,
Debug.Print SwComp.ReferencedConfiguration
Next ii
End With
StopEnd S

复制代码

周大仙 · 发表于 2016-2-16 08:50:25

存在问题，GetComponents只能用于直接插入材料表。

材料表更改configuration，不能随意，下图所示，不是所需要的结果。

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 Visible
Dim swBomFeat As BomFeature, SwBomTabAnn As BomTableAnnotation
   Set SwBomTabAnn = SwSelMgr.GetSelectedObject5(1)
   With SwBomTabAnn
      Ss = .GetComponents(1)
   End With
  Dim SwTabAnn As TableAnnotation
   Set SwTabAnn = SwBomTabAnn
   Ss = SwTabAnn.GetComponents(1)
   ''Stop
  Dim swComp As Component2, oSwModel As ModelDoc2, SwConf As Configuration
   With SwTabAnn
      For ii = 0 To .RowCount - 1
         Ss = SwTabAnn.GetComponents(ii)
         If Not IsEmpty(Ss) Then
            Set swComp = Ss(0)
            Set oSwModel = swComp.GetModelDoc
            Debug.Print ii, swComp.Name2, swComp.GetModelDoc.GetTitle,
            Debug.Print swComp.ReferencedConfiguration,
            Set SwConf = oSwModel.GetActiveConfiguration
            Debug.Print SwConf.Name
            'Debug.Print
         End If
      Next ii
   End With
   Stop
End Sub

		自动登录	找回密码
密码			立即注册