- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi
I'm trying to write a code that updates all the drawings in relation to an assembly.
So far everything is ok, but I would like to have a dialog box before the update, in which to show me how many drawings there are for the update.
Can anyone help me?
Many thanks!
' Check that the active document is an assembly file If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then MessageBox.Show("Please run this rule from the assembly file.", "iLogic") Exit Sub End If ' Define the active document As an Assembly file Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument Dim oAsmName As String oAsmName = Left(oAsmDoc.DisplayName, Len(oAsmDoc.DisplayName) -4) '- - - - - - - - - - - - -Component Drawings - - - - - - - - - - - - ' Look at the files referenced by the assembly Dim oRefDocs As DocumentsEnumerator oRefDocs = oAsmDoc.AllReferencedDocuments Dim oRefDoc As Document ' Work the the drawing files for the referenced models ' This expects that the model has a drawing of the same path and name For Each oRefDoc In oRefDocs idwPathName = Left(oRefDoc.FullDocumentName, Len(oRefDoc.FullDocumentName) - 3) & "idw" ' Check to see that the model has a drawing of the same path and name If(System.IO.File.Exists(idwPathName)) Then Dim oDrawDoc As DrawingDocument oDrawDoc = ThisApplication.Documents.Open(idwPathName, True) oDrawDoc.Update oDrawDoc.Save oDrawDoc.Close End If Next
Solved! Go to Solution.