Unsurpress multiple files

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
Reply to
Jim Johns (News)
Loading thread data ...
API is the only way I can think of.
Reply to
Mr. Who
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
Reply to

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.