Apply a sheet metal rule to multiple parts at once
I may have worded it poorly.
What I meant is that the SheetMetal Rule be saved in the Library (so every sheetmetal part can access that rule)
You can do that by "Save to Library", is still haven't.
I was (incorrectly) thinking it is the same as "Add to Standard" option when creating new Local style like in the drawing environment.
The iLogic rule above assumes that all sheetmetal parts has access to the Sheetmetal rule you want applied.
If the sheetmetal rule is unavailable, the iLogic rule will fail to activate/change to that chosen sheetmetal rule.
if you can enable your iLogic Log through
You can see the logs (as i included them in the ilogic rule) and a bit of what has happened.
as an example of what happens when the sheetmetal rule is unavailable in one of the parts:
say, i selected "Steel 5mm" but this is only a local style (to the first part, "TEST copy.ipt") and only available to that part only
the log will show the active rule before changing, which is "Steel 3mm" and it successfully change it to "Steel 5mm"
but for "TEST.ipt", it errors as it cannot change to the "Steel 5mm" (as it is unavailable)
as opposed to say changing it to "HDPE 10mm" that is saved in the Library and accessible to all sheetmetal
Both "TEST copy.ipt" and "TEST.ipt" has been successfully change to the new sheetmetal rule selected
Hi @reine_den_andra, see this version of @jnowel's example that will traverse through subassemblies.
Hope that helps, Curtis
Sub Main If TypeOf ThisApplication.ActiveDocument Is PartDocument Then Call SMRules(ThisApplication.ActiveDocument) Exit Sub ElseIf TypeOf ThisApplication.ActiveDocument Is DrawingDocument Then MessageBox.Show("Rule can not be used in a drawing") Exit Sub End If Dim oADoc As AssemblyDocument = ThisApplication.ActiveDocument Dim oOccs As ComponentOccurrences = oADoc.ComponentDefinition.Occurrences Call TraverseAssembly(oOccs) End Sub Function TraverseAssembly(oOccs As ComponentOccurrences) Dim oPartDict As New Dictionary(Of String, String) Dim oOcc As ComponentOccurrence For Each oOcc In oOccs If oOcc.Suppressed = True Then Continue For Dim oOccDoc As Document = oOcc.Definition.Document Dim oOccDocName As String = oOccDoc.FullDocumentName If oOcc.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then 'step into subassembly Call TraverseAssembly(oOcc.SubOccurrences) Else 'process parts If Not oOccDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then Continue For 'NOT SHEETMETAL If Not oPartDict.ContainsKey(oOccDocName) Then oPartDict.Add(oOccDocName, oOccDocName) Logger.Info(oOccDocName) Call SMRules(oOccDoc) End If Next End Function Sub SMRules(oOccDoc As PartDocument) Dim oSMStyle As SheetMetalStyle = Nothing Dim oPartDoc As PartDocument = oOccDoc Dim oPartCompDef As SheetMetalComponentDefinition = oPartDoc.ComponentDefinition Try : oPartCompDef.UseSheetMetalStyleThickness = True Catch : Logger.Info("ERROR in UseSheetMetalStyleThickness: " & oPartDoc.DisplayName) End Try Try : oPartCompDef.UseSheetMetalStyleUnfoldMethod = True Catch : Logger.Info("ERROR in UseSheetMetalStyleUnfoldMethod: " & oPartDoc.DisplayName) End Try Try : oPartCompDef.UseSheetMetalStyleMaterial = True Catch : Logger.Info("ERROR in UseSheetMetalStyleMaterial: " & oPartDoc.DisplayName) End Try Logger.Info("Active Rule: " & oPartCompDef.ActiveSheetMetalStyle.Name) If oSMStyle Is Nothing Then Dim oSMStyles As SheetMetalStyles = oPartCompDef.SheetMetalStyles Dim oSMStyleList As New List(Of String) For i = 1 To oPartCompDef.SheetMetalStyles.Count oSMStyleList.Add(oPartCompDef.SheetMetalStyles.Item(i).Name) Next i oSMStyleName = InputListBox("Select Sheetmetal Rule", oSMStyleList, oPartCompDef.SheetMetalStyles(1), Title := "Title", ListName := "List") Try oSMStyle = oPartCompDef.SheetMetalStyles.Item(oSMStyleName) Catch MessageBox.Show("No Style Selected, Exiting") End Try Logger.Info(oSMStyleName) End If Try oPartCompDef.SheetMetalStyles.Item(oSMStyleName).Activate Logger.Info("NEW Rule: " & oPartCompDef.ActiveSheetMetalStyle.Name) Catch : Logger.Info("ERROR: " & oPartDoc.DisplayName) End Try If Not oPartCompDef.HasFlatPattern Then oPartCompDef.Unfold End If End Sub
hmm. I think it might be better to just run thru all the referenced documents instead of relying on the component occurrence like in the original code.
Try the one below.
If Not TypeOf ThisApplication.ActiveDocument Is AssemblyDocument Then
MessageBox.Show("Use this rule in an Assy only")
Exit Sub
End If
Dim oADoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oOcc As ComponentOccurrence
Dim oSMStyle As SheetMetalStyle = Nothing
For Each oRefDoc As Document In oADoc.AllReferencedDocuments
If Not oRefDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then Continue For 'NOT SHEETMETAL
Dim oPartDoc As PartDocument = oRefDoc
Dim oPartCompDef As SheetMetalComponentDefinition = oPartDoc.ComponentDefinition
If oSMStyle Is Nothing Then
Dim oSMStyles As SheetMetalStyles = oPartCompDef.SheetMetalStyles
Dim oSMStyleList As New List(Of String)
For i = 1 To oPartCompDef.SheetMetalStyles.Count
oSMStyleList.Add(oPartCompDef.SheetMetalStyles.Item(i).Name)
Next i
oSMStyleName = InputListBox("Select Sheetmetal Rule", oSMStyleList, oPartCompDef.SheetMetalStyles(1), Title := "Title", ListName := "List")
Try
oSMStyle = oPartCompDef.SheetMetalStyles.Item(oSMStyleName)
Catch
MessageBox.Show("No Style Selected, Exiting")
End Try
Logger.Info(vbLf & "Selected Sheetmetal Style: " & oSMStyleName & vbLf)
End If
Logger.Info(oRefDoc.DisplayName)
Try: oPartCompDef.UseSheetMetalStyleThickness = True
Catch : Logger.Info(" ERROR in UseSheetMetalStyleThickness: " & oPartDoc.DisplayName)
End Try
Try : oPartCompDef.UseSheetMetalStyleUnfoldMethod = True
Catch : Logger.Info(" ERROR in UseSheetMetalStyleUnfoldMethod: " & oPartDoc.DisplayName)
End Try
Try : oPartCompDef.UseSheetMetalStyleMaterial = True
Catch : Logger.Info(" ERROR in UseSheetMetalStyleMaterial: " & oPartDoc.DisplayName)
End Try
Logger.Info(" Active Rule: " & oPartCompDef.ActiveSheetMetalStyle.Name)
Try
oPartCompDef.SheetMetalStyles.Item(oSMStyleName).Activate
Logger.Info(" NEW Rule: " & oPartCompDef.ActiveSheetMetalStyle.Name)
Catch :
Logger.Info(" ERROR: SM Style Missing/Not Applied")
End Try
If Not oPartCompDef.HasFlatPattern Then
oPartCompDef.Unfold
End If
Next
(I also changed the logger info so it makes it easier to check the issues)
