Create Flat Patterns for all Sheet Metal Parts in an Assembly

[andrewdroth]

Does anyone have an iLogic snippet for creating flat patterns for all the sheet metal parts within an assembly?

[Sergio.D.Suárez]

Hi, try this simple code to see if it works

Dim openDoc As AssemblyDocument
openDoc = ThisDoc.Document
Dim doc As Document
For Each doc In openDoc.AllReferencedDocuments
	If doc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
		Dim oDef As SheetMetalComponentDefinition = doc.ComponentDefinition
		If oDef.HasFlatPattern = False Then 
			oDef.Unfold
			oDef.FlatPattern.ExitEdit
			doc.close
		End If
	End If
Next

 I hope it can be useful, greetings