topic Re: Pack and go using ilogic save all documents in Inventor Programming Forum

Pack and go using ilogic save all documents

aronmatheus — Fri, 09 Jul 2021 18:05:57 GMT

I'm using this code, but I would send the folder idw too. Because this code save as ipt and iam.

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

Dim oADoc As AssemblyDocument = ThisApplication.ActiveDocument

Dim oFileDlg As Inventor.FileDialog = Nothing
ThisApplication.CreateFileDialog(oFileDlg)
oFileDlg.Filter = "Autodesk Inventor Assembly Files (*.iam)|*.iam"
oFileDlg.InitialDirectory = ThisApplication.DesignProjectManager.ActiveDesignProject.WorkspacePath
oFileDlg.FileName = ThisDoc.FileName(False)
oFileDlg.DialogTitle = "Specify New Name & Location For Copied Assembly"
oFileDlg.CancelError = True

On Error Resume Next
oFileDlg.ShowSave
If Err.Number <> 0 Then
MsgBox("No File Saved.", vbOKOnly, "DIALOG CANCELED")
ElseIf oFileDlg.FileName <> "" Then
oNewFileName = oFileDlg.FileName
oADoc.SaveAs(oNewFileName, False)
End If

oADoc = Nothing

InventorVb.DocumentUpdate()

oADoc = ThisApplication.ActiveDocument

Dim oLast3Chars As String
For Each oRefDoc As Document In oADoc.AllReferencedDocuments
ThisApplication.Documents.Open(oRefDoc.FullFileName,False)
oLast3Chars = Left(Right(oRefDoc.FullFileName, 7), 3)
If oRefDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
Dim oRefPDoc As PartDocument = oRefDoc
Dim oRefPDef As PartComponentDefinition = oRefPDoc.ComponentDefinition
If oRefPDef.IsContentMember = False Then
oRefDoc.SaveAs(Left(oADoc.FullFileName, Len(oADoc.FullFileName) -4) & oLast3Chars & ".ipt", True)
End If
ElseIf oRefDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
oRefDoc.SaveAs(Left(oADoc.FullFileName, Len(oADoc.FullFileName) -4) & oLast3Chars & ".iam", True)
End If
oRefDoc.Close
Next

Dim oOccDoc As Document
Dim oOccNewFileName As String
For Each oOcc As ComponentOccurrence In oADoc.ComponentDefinition.Occurrences
oOccDoc = oOcc.Definition.Document
oLast3Chars = Left(Right(oOccDoc.FullFileName, 7), 3)
If oOccDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
Dim oOccPDef As PartComponentDefinition = oOcc.Definition
If oOccPDef.IsContentMember = False Then
oOccNewFileName = Left(oADoc.FullFileName, Len(oADoc.FullFileName) -4) & oLast3Chars & ".ipt"
End If
ElseIf oOccDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
oOccNewFileName = Left(oADoc.FullFileName,Len(oADoc.FullFileName)-4) & oLast3Chars & ".iam"
End If
oOcc.Replace(oOccNewFileName, True)
Next

Re: Pack and go using ilogic save all documents

FINET_Laurent — Sun, 11 Jul 2021 13:50:51 GMT

Hi,

This rule is duplicating assemblies. Why not copying the folder instead?

Regards,

FINET L.

Re: Pack and go using ilogic save all documents

aronmatheus — Sun, 11 Jul 2021 17:02:24 GMT

Hi @FINET_Laurent, because when I finish the project the I will change the name of the parts.

Re: Pack and go using ilogic save all documents

FINET_Laurent — Sun, 11 Jul 2021 20:35:59 GMT

Can you explain the workflow in more than one line please ? I'm not sure I understand.

Regards,

FINET L.

Re: Pack and go using ilogic save all documents

aronmatheus — Mon, 12 Jul 2021 11:02:24 GMT

Hi @FINET_Laurent , I want to do the same in this picture because I'm using this macro. Now I would like to save the idw file too.

Re: Pack and go using ilogic save all documents

A.Acheson — Tue, 13 Jul 2021 15:06:26 GMT

@aronmatheus

Here is a standalone function you could integrate in or alternatively just slot in the key snippets at the location you want.

It might be nice to keep it separate as these can get confusing. You can remove the update iproperty command if not needed,“UpdateCopiedModeliPropertiesCmd“

https://forums.autodesk.com/t5/inventor-customization/ilogic-replace-reference-file-in-drawing-when-opened-invisible/td-p/9002368

Function DrawingReplace(OldLoc As String, newname As String)
Dim OldName As String = Left(OldLoc, Len(OldLoc) -3) & "dwg"
Dim DrawDoc As DrawingDocument = ThisApplication.Documents.Open(OldName, False)

Dim DrawingName As String = (Left(newname, Len(newname) -3) & "dwg")

If Dir((Left(newname, Len(newname) -3) & "dwg")) = "" Then
DrawDoc.SaveAs(DrawingName, False)
End If

Dim oFD As FileDescriptor
 oFD = DrawDoc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor
  oFD.ReplaceReference(newname)
Dim oControlDef As ControlDefinition  = ThisApplication.CommandManager.ControlDefinitions.Item("UpdateCopiedModeliPropertiesCmd")
oControlDef.Execute

 
DrawDoc.Update()

DrawDoc.Save

DrawDoc.Close

End Function

Re: Pack and go using ilogic save all documents

Aron.Carvalho — Tue, 13 Jul 2021 17:58:40 GMT

Hi @A.Acheson, I don't understand your ruler, where can I put this function?

Re: Pack and go using ilogic save all documents

A.Acheson — Tue, 13 Jul 2021 20:36:18 GMT

You would call it just like a sub. Off course this doesn't match above terminology so is more for the principal of what needs to be achieved. This is not tested.

Sub Main

Dim OldLoc As String

OldLoc = "C:\Users\1234.dwg

Dim newname As String

newname = "12345"

'*******************Insert Message 1 rule here copying of rules here etc********************

'Call Save As Drawing

Call DrawingReplace(OldLoc , newname )

End Sub