<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: ilogic rule: IDW with Flat Pattern in Inventor Forum</title>
    <link>https://forums.autodesk.com/t5/inventor-forum/ilogic-rule-idw-with-flat-pattern/m-p/5510257#M386152</link>
    <description>&lt;P&gt;Well, that's a lot simpler than what I originally had in mind. Try this:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;		
Dim oDoc As DrawingDocument
Dim oSheet As Sheet
Dim oSheets As Sheets

Try
	oDoc = ThisDrawing.Document
Catch
	MsgBox("Must be ran on a drawing document!",vbOKOnly,"Error")
	Exit Sub
End Try

oSheets = oDoc.Sheets
For Each oSheet In oSheets
	Try
		If oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
			Try
				oDoc.SaveAs("C:\Temp\test.dxf", True)
			Catch
				MsgBox("Error saving file",vbOKOnly,"Error")
				Exit Sub
			End Try
		End If
	Catch
		MsgBox("Error detecting file type - probably no views on sheet: " &amp;amp; oSheet.Name,vbOKOnly,"Error")
	End Try
Next

&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;That should cycle through every sheet in a drawing file and dump out every sheet that has a view (flat -or- folded) of a sheet metal part to a dxf file at C:\Temp\.&lt;/P&gt;</description>
    <pubDate>Tue, 17 Feb 2015 20:34:38 GMT</pubDate>
    <dc:creator>mrattray</dc:creator>
    <dc:date>2015-02-17T20:34:38Z</dc:date>
  </channel>
</rss>

