Is there any way to unsurpress multilpe features in multiple different files
at one time. Similar to a batch? I have a process where imported files are
all surpressed and need to unsurpress
Thanks in advance
JIM
API is the only way I can think of.
Found this bit of code lying around. I don't recall if I wrote it or
found it here through google groups. Anyway most of it is taken
directly out of the API Help. It should do what you are looking for.
Dim swApp As SldWorks.SldWorks
Dim Assy As SldWorks.ModelDoc2
Dim Config As SldWorks.Configuration
Sub main()
Dim rootComp As Component2
Set swApp = Application.SldWorks
Set Assy = swApp.ActiveDoc
Set FeatMan = Assy.FeatureManager
Set Config = Assy.GetActiveConfiguration
Set rootComp = Config.GetRootComponent
RecurseAssy rootComp, 0
End Sub
Sub RecurseAssy _
( _
swComp As SldWorks.Component2, _
nLevel As Long _
)
Dim vChildComp As Variant
Dim swChildComp As SldWorks.Component2
Dim swCompConfig As SldWorks.Configuration
Dim sPadStr As String
Dim i As Long
Dim SplitStr As Variant
Dim NewComp As Boolean
For i = 0 To nLevel - 1
sPadStr = sPadStr + " "
Next i
vChildComp = swComp.GetChildren
For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Debug.Print swChildComp.Name2
superr = swChildComp.SetSuppression2(swComponentResolved)
Select Case superr
Case swSuppressionError_e.swSuppressionBadComponent
Debug.Print "swSuppressionBadComponent"
Case swSuppressionError_e.swSuppressionBadState
Debug.Print "swSuppressionBadState"
Case swSuppressionError_e.swSuppressionChangeFailed
Debug.Print "swSuppressionChangeFailed"
Case swSuppressionError_e.swSuppressionChangeOk
'Debug.Print "swSuppressionChangeOk"
End Select
RecurseAssy swChildComp, nLevel + 1
Next i
End Sub