Export flat pattern dimensions from folded model?

[Anonymous]

In sheet metal .ipt files, is there a way to link flat pattern dimensions to the folded model for exporting to BoM? Currently my drafing group is manually measuring the flat pattern then creating static, custom parameters with said dimensions, then exporting those. We know of linking parameters via dimension/text on an idw, but we need the flat pattern dimensions to appear in the BoM via the folded model. Is this possible?

[ASchlaack]

Do you just need the overall dimensions of the flat pattern?

[ASchlaack]

Something like this for your BOM? This is how I fill mine out, it uses a simple rule that can automatically fillout and change.

It displays the overall dimensions of the flat pattern as well as the gauge or plate thickness.

[Anonymous]

Yes, overall dimensions for the flat pattern. Here is an example of the layout, our company needs them separated into individual columns. Though these are angles shown, the format will be similar.

[ASchlaack · Accepted solution]

First you will need to create a iLogic rule that says:

iLogicVb.UpdateWhenDone = TrueFind 


 
Dim oDoc As PartDocument
oDoc = ThisDoc.Document
'ensure this part has a flat pattern
Dim oSMDef As SheetMetalComponentDefinition
oSMDef = oDoc.ComponentDefinition
If oSMDef.FlatPattern Is Nothing Then
'tell the user there is no flat pattern
'MessageBox.Show("This file has no flat pattern", "iLogic")
Flat = "No"
Else
'tell the user there is a flat pattern
'MessageBox.Show("This file does have a flat pattern", "iLogic")
Flat = "Yes"
End If

If Flat = "Yes" Then
	extents_length = Round(SheetMetal.FlatExtentsLength,4)
	extents_width = Round(SheetMetal.FlatExtentsWidth, 4)
	description = iProperties.Value("Summary", "Subject")
	matl = iProperties.Value("Summary", "Keywords")
	
	If extents_length < extents_width Then
	iProperties.Value("Custom", "SheetMetalExtentsDesc")= "" & matl & "," & Space(1) & "(" & description & "," & Space(1) & extents_length & """ x " & extents_width & """" & ")"
	Else
	iProperties.Value("Custom", "SheetMetalExtentsDesc")= "" & matl & "," & Space(1) & "(" & description & "," & Space(1) & extents_width & """ x " & extents_length & """" & ")"
	End If
End If

 Then in whatever field you want the iproperties to fill in put "=<SheetMetalExtentsDesc>". This will have it show up like mine. If you edit the code a bit you can make it display less or more things or have them appear in a different order. I'm sorry I don't currently have the time to do that today. If you send me an email at [email protected] or a message on here with a list of what you want displayed and in what order I can get you a code exactly how you want it by some point on friday.

Good luck and I hope this works for you.

[ASchlaack]

First you will need to create a iLogic rule that says:

iLogicVb.UpdateWhenDone = TrueFind 


 
Dim oDoc As PartDocument
oDoc = ThisDoc.Document
'ensure this part has a flat pattern
Dim oSMDef As SheetMetalComponentDefinition
oSMDef = oDoc.ComponentDefinition
If oSMDef.FlatPattern Is Nothing Then
'tell the user there is no flat pattern
'MessageBox.Show("This file has no flat pattern", "iLogic")
Flat = "No"
Else
'tell the user there is a flat pattern
'MessageBox.Show("This file does have a flat pattern", "iLogic")
Flat = "Yes"
End If

If Flat = "Yes" Then
	extents_length = Round(SheetMetal.FlatExtentsLength,4)
	extents_width = Round(SheetMetal.FlatExtentsWidth, 4)
	description = iProperties.Value("Summary", "Subject")
	matl = iProperties.Value("Summary", "Keywords")
	
	If extents_length < extents_width Then
	iProperties.Value("Custom", "SheetMetalExtentsDesc")= "" & matl & "," & Space(1) & "(" & description & "," & Space(1) & extents_length & """ x " & extents_width & """" & ")"
	Else
	iProperties.Value("Custom", "SheetMetalExtentsDesc")= "" & matl & "," & Space(1) & "(" & description & "," & Space(1) & extents_width & """ x " & extents_length & """" & ")"
	End If
End If

 Then in whatever field you want the iproperties to fill in put "=<SheetMetalExtentsDesc>". This will have it show up like mine. If you edit the code a bit you can make it display less or more things or have them appear in a different order. I'm sorry I don't currently have the time to do that today. If you send me an email at aaronschlaack (at) gmail.com or a message on here with a list of what you want displayed and in what order I can get you a code exactly how you want it by some point on friday.

Good luck and I hope this works for you.

[Anonymous]

Modified the end of the code to have separate readouts (instead of inline). This works perfectly. Thank you for the help, this is going to aid us well!

[ASchlaack]

Glad i could help!