Copy a sheet from another drawing

[AMN3161]

Hello anyone have a rule that will copy a specific sheet from a specific drawing and insert it into the active drawing? I am trying to get around some of the limitations with Inventor Template files

thank you in advanced 

[bradeneuropeArthur]

https://forums.autodesk.com/t5/inventor-customization/ilogic-copy-drawing-sheet-from-one-drawing-to-... 

[AMN3161]

This is what i originally tried but i was having difficulty getting it to work

[J-Camper]

@AMN3161,

Did you modify the code from the other forum post?  Can you post your modified version of the code? 

What kind of difficulties are you having?

[AMN3161]

I am probably missing something stupid, i am new to ilogic

the drawing i want the sheet copied from is C:\_VAULT_WORKSPACE\JOBS\Templates\tag Testing (Tony).idw

The Sheet I want is called "Tags" on the above drawing

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
	MsgBox("This rule '" & iLogicVb.RuleName & "' only works for Drawing Documents.",vbOK, "WRONG DOCUMENT TYPE")
	Return
End If

Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oOtherDocPath As String = "C:\_VAULT_WORKSPACE\JOBS\Templates\tag Testing (Tony).idw"
Dim oOtherDrawing As DrawingDocument = ThisApplication.Documents.Open(oOtherDocPath,False)
For Each oSheet As Sheet In oDDoc.Sheets
	If oSheet.Name.Contains("Tags") Then
		oSheet.CopyTo(oOtherDrawing)
	End If
Next

[JhoelForshav · Accepted solution]

@AMN3161 

It looks like you just got the two drawing documents mixed up.

Is this what you want? 🙂

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
	MsgBox("This rule '" & iLogicVb.RuleName & "' only works for Drawing Documents.",vbOK, "WRONG DOCUMENT TYPE")
	Return
End If
Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oOtherDocPath As String = "C:\_VAULT_WORKSPACE\JOBS\Templates\tag Testing (Tony).idw"
Dim oOtherDrawing As DrawingDocument = ThisApplication.Documents.Open(oOtherDocPath, False)
For Each oSheet As Sheet In oOtherDrawing.Sheets
	If oSheet.Name.StartsWith("Tags") Then oSheet.CopyTo(oDoc)
Next
oDoc.Update
ThisApplication.Documents.CloseAll(True)

[J-Camper · Accepted solution]

@AMN3161,

It was pretty simple, you just needed to swap with drawing to look through and which drawing to copy to:

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
	MsgBox("This rule '" & iLogicVb.RuleName & "' only works for Drawing Documents.",vbOK, "WRONG DOCUMENT TYPE")
	Return
End If

Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oOtherDocPath As String = "C:\_VAULT_WORKSPACE\JOBS\Templates\tag Testing (Tony).idw"
Dim oOtherDrawing As DrawingDocument = ThisApplication.Documents.Open(oOtherDocPath,False)
For Each oSheet As Sheet In oOtherDrawing.Sheets
	If oSheet.Name.Contains("Tags") Then
		oSheet.CopyTo(oDDoc)
	End If
Next

[J-Camper]

@JhoelForshav,

Looks like you were quicker on this one too haha

[AMN3161]

I see, thank you for the help!

[JhoelForshav]

Hahah, sorry @J-Camper , but at least both our answers got accepted as solutions 😄

[J-Camper]

Yeah no worries @JhoelForshav , I thought it was funny to happen twice within the hour haha