<?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 Need a sheet name pushed to a prompted entry in the Titleblock in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359389#M90582</link>
    <description>&lt;P&gt;I am stuck on a code issue.&amp;nbsp; I need a sheet name pushed to a prompted entry in the Titleblock.&amp;nbsp; I have a rule that updates the sheet name from the filename of the baseview item.&amp;nbsp; I have a need to change some of the sheetnames to other names because of a sequencing requirement of the assembly (They are curtain wall window units and a single assembly can be used for multiple unit locations and the sheet name needs to represent that location, or address as it is referred to in the existing code.)&amp;nbsp; The code works great until it gets to the part to push the value to the UpdateUnitAddress Function.&amp;nbsp; If I comment that out, all works prefect without pushing the value.&amp;nbsp; Any help would be appreciated.&amp;nbsp; The text in red is where it halts.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
	&lt;SPAN&gt;'Set Number of Addresses for Unit in Overall Assembly&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;NumberOfUnits&lt;/SPAN&gt; = &lt;SPAN&gt;InputBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Enter quantity of Units required:"&lt;/SPAN&gt;, &lt;SPAN&gt;"Units Required"&lt;/SPAN&gt;)

	&lt;SPAN&gt;'Check that we are in a drawing document.&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;DocumentTypeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;'Get a reference to the current drawing.&lt;/SPAN&gt;
        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
        
        &lt;SPAN&gt;'Check that we have atleast one view on the sheet.&lt;/SPAN&gt;
        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingViews&lt;/SPAN&gt;.&lt;SPAN&gt;Count&lt;/SPAN&gt; &amp;gt; 0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
            
            &lt;SPAN&gt;'Get a reference to the original model in the view.&lt;/SPAN&gt;
			&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;compDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt; = &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingViews&lt;/SPAN&gt;(1).&lt;SPAN&gt;ReferencedDocumentDescriptor&lt;/SPAN&gt;.&lt;SPAN&gt;ReferencedDocument&lt;/SPAN&gt;
            
            &lt;SPAN&gt;'Get the filename of the replacement model&lt;/SPAN&gt;
            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newFileName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;GetNewReference&lt;/SPAN&gt;() &lt;SPAN&gt;'Sub to show dialog and get file name.&lt;/SPAN&gt;
            
            &lt;SPAN&gt;'Open the replacement model.&lt;/SPAN&gt;
            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newFile&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;
            &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;.&lt;SPAN&gt;IsNullOrEmpty&lt;/SPAN&gt;(&lt;SPAN&gt;newFileName&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
			&lt;SPAN&gt;'If Not String.IsNullOrEmpty(compDoc) Then&lt;/SPAN&gt;
                &lt;SPAN&gt;Try&lt;/SPAN&gt;
                    &lt;SPAN&gt;newFile&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;(&lt;SPAN&gt;newFileName&lt;/SPAN&gt;, &lt;SPAN&gt;False&lt;/SPAN&gt;)
					&lt;SPAN&gt;'newFile = ThisApplication.Documents.Open(compDoc, False)&lt;/SPAN&gt;
                &lt;SPAN&gt;Catch&lt;/SPAN&gt;
                    &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Could not open target file."&lt;/SPAN&gt;)
                &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
                
                &lt;SPAN&gt;'Check to see if we have valid documents to work with.&lt;/SPAN&gt;
                &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;newFile&lt;/SPAN&gt; &lt;SPAN&gt;Is&lt;/SPAN&gt; &lt;SPAN&gt;Nothing&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;okContinue&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Boolean&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;
                    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;newFile&lt;/SPAN&gt;.&lt;SPAN&gt;InternalName&lt;/SPAN&gt; = &lt;SPAN&gt;compDoc&lt;/SPAN&gt;.&lt;SPAN&gt;InternalName&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                        &lt;SPAN&gt;'Display warning if inner names of models do not math.&lt;/SPAN&gt;
                        &lt;SPAN&gt;msgResult&lt;/SPAN&gt; = &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Warning, files do not match."&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCrLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;" Results can be unpredictable."&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCrLf&lt;/SPAN&gt; &amp;amp; _
                            &lt;SPAN&gt;"Do you want To Continue"&lt;/SPAN&gt;, &lt;SPAN&gt;"Copy/Replace Sheet"&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxButtons&lt;/SPAN&gt;.&lt;SPAN&gt;YesNo&lt;/SPAN&gt;)
                        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;msgResult&lt;/SPAN&gt; = &lt;SPAN&gt;DialogResult&lt;/SPAN&gt;.&lt;SPAN&gt;Yes&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                            &lt;SPAN&gt;okContinue&lt;/SPAN&gt; = &lt;SPAN&gt;False&lt;/SPAN&gt;
                        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
                    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
                    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;okContinue&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newDwg&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt;
                        &lt;SPAN&gt;Try&lt;/SPAN&gt;
                            &lt;SPAN&gt;'Create the new drawing document.&lt;/SPAN&gt;
                            &lt;SPAN&gt;newDwg&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt;, &lt;SPAN&gt;Nothing&lt;/SPAN&gt;, &lt;SPAN&gt;False&lt;/SPAN&gt;)
                            							
                            &lt;SPAN&gt;'Copy the active sheet to the new document.&lt;/SPAN&gt;
                            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newSheet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;CopyTo&lt;/SPAN&gt;(&lt;SPAN&gt;newDwg&lt;/SPAN&gt;)
                            
                            &lt;SPAN&gt;'Replace the model reference on the new sheet with the replacement reference&lt;/SPAN&gt;
                            &lt;SPAN&gt;newSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingViews&lt;/SPAN&gt;(1).&lt;SPAN&gt;ReferencedDocumentDescriptor&lt;/SPAN&gt;. _
                            &lt;SPAN&gt;ReferencedFileDescriptor&lt;/SPAN&gt;.&lt;SPAN&gt;ReplaceReference&lt;/SPAN&gt;(&lt;SPAN&gt;newFileName&lt;/SPAN&gt;)
							
							&lt;SPAN&gt;'rename Active Sheet to Unit Address&lt;/SPAN&gt;
							&lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt; = &lt;SPAN&gt;"_"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;InputBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Enter Unit Address"&lt;/SPAN&gt;, &lt;SPAN&gt;"Unit Address"&lt;/SPAN&gt;)					

							&lt;SPAN&gt;UpdateUnitAddress&lt;/SPAN&gt;()
							
							&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;i&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Long&lt;/SPAN&gt; = 0
							&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;i&lt;/SPAN&gt; = 1 &lt;SPAN&gt;To&lt;/SPAN&gt; &lt;SPAN&gt;NumberOfUnits&lt;/SPAN&gt; - 1
	                            &lt;SPAN&gt;'Copy the sheet back to the original drawing.&lt;/SPAN&gt;
	                            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;copiedSheet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN&gt;newSheet&lt;/SPAN&gt;.&lt;SPAN&gt;CopyTo&lt;/SPAN&gt;(&lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;)
								&lt;SPAN&gt;copiedSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt; = &lt;SPAN&gt;"_"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;InputBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Enter Unit Address"&lt;/SPAN&gt;, &lt;SPAN&gt;"Unit Address"&lt;/SPAN&gt;)
								
							&lt;SPAN&gt;Next&lt;/SPAN&gt;
	                        &lt;SPAN&gt;newDwg&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;(&lt;SPAN&gt;True&lt;/SPAN&gt;)
                            &lt;SPAN&gt;'Activate the new sheet.&lt;/SPAN&gt;
	                        &lt;SPAN&gt;'copiedSheet.Activate()&lt;/SPAN&gt;
                            
							&lt;SPAN&gt;InventorVb&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentUpdate&lt;/SPAN&gt;()
                        &lt;SPAN&gt;Catch&lt;/SPAN&gt;
                            &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Error occurred copying sheet."&lt;/SPAN&gt;)
                        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
                    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
                &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
            &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
	&lt;SPAN&gt;iLogicVb&lt;/SPAN&gt;.&lt;SPAN&gt;RunRule&lt;/SPAN&gt;(&lt;SPAN&gt;"ResetSectionViewCallout_Rule"&lt;/SPAN&gt;)
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
 
&lt;SPAN&gt;Function&lt;/SPAN&gt; &lt;SPAN&gt;UpdateUnitAddress&lt;/SPAN&gt;() &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;dwgDoc2&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPromptEntry&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;actSheet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;
    &lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDrawing&lt;/SPAN&gt;.&lt;SPAN&gt;Sheet&lt;/SPAN&gt;(&lt;SPAN&gt;actSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt;)
    &lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;=&lt;SPAN&gt;actSheet&lt;/SPAN&gt;.&lt;SPAN&gt;TitleBlock&lt;/SPAN&gt;
    &lt;SPAN&gt;oTextBoxes&lt;/SPAN&gt;=&lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Sketch&lt;/SPAN&gt;.&lt;SPAN&gt;TextBoxes&lt;/SPAN&gt;
    &lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oTextBox&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Sketch&lt;/SPAN&gt;.&lt;SPAN&gt;TextBoxes&lt;/SPAN&gt;
			&lt;SPAN&gt;Select&lt;/SPAN&gt; &lt;SPAN&gt;oTextBox&lt;/SPAN&gt;.&lt;SPAN&gt;Text&lt;/SPAN&gt;
				&lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"Unit Address"&lt;/SPAN&gt; :
					&lt;SPAN&gt;oPromptEntry&lt;/SPAN&gt; = &lt;SPAN&gt;dwgDoc2&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt;
					&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Phase1."&lt;/SPAN&gt;)
					&lt;SPAN&gt;'oTitleBlock.SetPromptResultText(oTextBox, oPromptEntry)&lt;/SPAN&gt;
					&lt;FONT color="#ff0000"&gt;&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;.&lt;SPAN&gt;SetPromptResultText&lt;/SPAN&gt;(&lt;SPAN&gt;oTextBox&lt;/SPAN&gt;, &lt;SPAN&gt;oPromptEntry&lt;/SPAN&gt;)&lt;/FONT&gt;
					&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Phase2."&lt;/SPAN&gt;)
			&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Select&lt;/SPAN&gt;
    &lt;SPAN&gt;Next&lt;/SPAN&gt;
	&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Phase3."&lt;/SPAN&gt;)
	&lt;SPAN&gt;'actSheet.Activate&lt;/SPAN&gt;
	&lt;SPAN&gt;'InventorVb.DocumentUpdate()&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;

&lt;SPAN&gt;Function&lt;/SPAN&gt; &lt;SPAN&gt;GetNewReference&lt;/SPAN&gt;() &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
    &lt;SPAN&gt;' Create a new FileDialog object.&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;FileDialog&lt;/SPAN&gt;
    &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;CreateFileDialog&lt;/SPAN&gt;(&lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;)

    &lt;SPAN&gt;' Define the filter to select part and assembly files or any file.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;Filter&lt;/SPAN&gt; = &lt;SPAN&gt;"Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"&lt;/SPAN&gt;

    &lt;SPAN&gt;' Define the part and assembly files filter to be the default filter.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;FilterIndex&lt;/SPAN&gt; = 1

    &lt;SPAN&gt;' Set the title for the dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;DialogTitle&lt;/SPAN&gt; = &lt;SPAN&gt;"Copy/Replace Sheet - Select Replacement Model"&lt;/SPAN&gt;

    &lt;SPAN&gt;' Set the initial directory that will be displayed in the dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;InitialDirectory&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;

    &lt;SPAN&gt;' Set the flag so an error will be raised if the user clicks the Cancel button.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;CancelError&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;

    &lt;SPAN&gt;' Show the open dialog.  The same procedure is also used for the Save dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;' The commented code can be used for the Save dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;Try&lt;/SPAN&gt;
        &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;ShowOpen&lt;/SPAN&gt;
    &lt;SPAN&gt;Catch&lt;/SPAN&gt;
        &lt;SPAN&gt;'MessageBox.Show("User cancelled out of dialog", "Replace Reference")&lt;/SPAN&gt;
    &lt;SPAN&gt;Finally&lt;/SPAN&gt;
        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
            &lt;SPAN&gt;'MessageBox.Show("File " &amp;amp; oFileDlg.FileName &amp;amp; " was selected.", "Replace Reference")&lt;/SPAN&gt;
            &lt;SPAN&gt;GetNewReference&lt;/SPAN&gt; = &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;
        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;

&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
    <pubDate>Thu, 25 Oct 2018 14:58:18 GMT</pubDate>
    <dc:creator>Scott.Hallmark</dc:creator>
    <dc:date>2018-10-25T14:58:18Z</dc:date>
    <item>
      <title>Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359389#M90582</link>
      <description>&lt;P&gt;I am stuck on a code issue.&amp;nbsp; I need a sheet name pushed to a prompted entry in the Titleblock.&amp;nbsp; I have a rule that updates the sheet name from the filename of the baseview item.&amp;nbsp; I have a need to change some of the sheetnames to other names because of a sequencing requirement of the assembly (They are curtain wall window units and a single assembly can be used for multiple unit locations and the sheet name needs to represent that location, or address as it is referred to in the existing code.)&amp;nbsp; The code works great until it gets to the part to push the value to the UpdateUnitAddress Function.&amp;nbsp; If I comment that out, all works prefect without pushing the value.&amp;nbsp; Any help would be appreciated.&amp;nbsp; The text in red is where it halts.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
	&lt;SPAN&gt;'Set Number of Addresses for Unit in Overall Assembly&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;NumberOfUnits&lt;/SPAN&gt; = &lt;SPAN&gt;InputBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Enter quantity of Units required:"&lt;/SPAN&gt;, &lt;SPAN&gt;"Units Required"&lt;/SPAN&gt;)

	&lt;SPAN&gt;'Check that we are in a drawing document.&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;DocumentTypeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;'Get a reference to the current drawing.&lt;/SPAN&gt;
        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
        
        &lt;SPAN&gt;'Check that we have atleast one view on the sheet.&lt;/SPAN&gt;
        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingViews&lt;/SPAN&gt;.&lt;SPAN&gt;Count&lt;/SPAN&gt; &amp;gt; 0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
            
            &lt;SPAN&gt;'Get a reference to the original model in the view.&lt;/SPAN&gt;
			&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;compDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt; = &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingViews&lt;/SPAN&gt;(1).&lt;SPAN&gt;ReferencedDocumentDescriptor&lt;/SPAN&gt;.&lt;SPAN&gt;ReferencedDocument&lt;/SPAN&gt;
            
            &lt;SPAN&gt;'Get the filename of the replacement model&lt;/SPAN&gt;
            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newFileName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;GetNewReference&lt;/SPAN&gt;() &lt;SPAN&gt;'Sub to show dialog and get file name.&lt;/SPAN&gt;
            
            &lt;SPAN&gt;'Open the replacement model.&lt;/SPAN&gt;
            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newFile&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;
            &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;.&lt;SPAN&gt;IsNullOrEmpty&lt;/SPAN&gt;(&lt;SPAN&gt;newFileName&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
			&lt;SPAN&gt;'If Not String.IsNullOrEmpty(compDoc) Then&lt;/SPAN&gt;
                &lt;SPAN&gt;Try&lt;/SPAN&gt;
                    &lt;SPAN&gt;newFile&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;(&lt;SPAN&gt;newFileName&lt;/SPAN&gt;, &lt;SPAN&gt;False&lt;/SPAN&gt;)
					&lt;SPAN&gt;'newFile = ThisApplication.Documents.Open(compDoc, False)&lt;/SPAN&gt;
                &lt;SPAN&gt;Catch&lt;/SPAN&gt;
                    &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Could not open target file."&lt;/SPAN&gt;)
                &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
                
                &lt;SPAN&gt;'Check to see if we have valid documents to work with.&lt;/SPAN&gt;
                &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;newFile&lt;/SPAN&gt; &lt;SPAN&gt;Is&lt;/SPAN&gt; &lt;SPAN&gt;Nothing&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;okContinue&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Boolean&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;
                    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;newFile&lt;/SPAN&gt;.&lt;SPAN&gt;InternalName&lt;/SPAN&gt; = &lt;SPAN&gt;compDoc&lt;/SPAN&gt;.&lt;SPAN&gt;InternalName&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                        &lt;SPAN&gt;'Display warning if inner names of models do not math.&lt;/SPAN&gt;
                        &lt;SPAN&gt;msgResult&lt;/SPAN&gt; = &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Warning, files do not match."&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCrLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;" Results can be unpredictable."&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCrLf&lt;/SPAN&gt; &amp;amp; _
                            &lt;SPAN&gt;"Do you want To Continue"&lt;/SPAN&gt;, &lt;SPAN&gt;"Copy/Replace Sheet"&lt;/SPAN&gt;, &lt;SPAN&gt;MessageBoxButtons&lt;/SPAN&gt;.&lt;SPAN&gt;YesNo&lt;/SPAN&gt;)
                        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;msgResult&lt;/SPAN&gt; = &lt;SPAN&gt;DialogResult&lt;/SPAN&gt;.&lt;SPAN&gt;Yes&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                            &lt;SPAN&gt;okContinue&lt;/SPAN&gt; = &lt;SPAN&gt;False&lt;/SPAN&gt;
                        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
                    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
                    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;okContinue&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
                        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newDwg&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt;
                        &lt;SPAN&gt;Try&lt;/SPAN&gt;
                            &lt;SPAN&gt;'Create the new drawing document.&lt;/SPAN&gt;
                            &lt;SPAN&gt;newDwg&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt;, &lt;SPAN&gt;Nothing&lt;/SPAN&gt;, &lt;SPAN&gt;False&lt;/SPAN&gt;)
                            							
                            &lt;SPAN&gt;'Copy the active sheet to the new document.&lt;/SPAN&gt;
                            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;newSheet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;CopyTo&lt;/SPAN&gt;(&lt;SPAN&gt;newDwg&lt;/SPAN&gt;)
                            
                            &lt;SPAN&gt;'Replace the model reference on the new sheet with the replacement reference&lt;/SPAN&gt;
                            &lt;SPAN&gt;newSheet&lt;/SPAN&gt;.&lt;SPAN&gt;DrawingViews&lt;/SPAN&gt;(1).&lt;SPAN&gt;ReferencedDocumentDescriptor&lt;/SPAN&gt;. _
                            &lt;SPAN&gt;ReferencedFileDescriptor&lt;/SPAN&gt;.&lt;SPAN&gt;ReplaceReference&lt;/SPAN&gt;(&lt;SPAN&gt;newFileName&lt;/SPAN&gt;)
							
							&lt;SPAN&gt;'rename Active Sheet to Unit Address&lt;/SPAN&gt;
							&lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt; = &lt;SPAN&gt;"_"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;InputBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Enter Unit Address"&lt;/SPAN&gt;, &lt;SPAN&gt;"Unit Address"&lt;/SPAN&gt;)					

							&lt;SPAN&gt;UpdateUnitAddress&lt;/SPAN&gt;()
							
							&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;i&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Long&lt;/SPAN&gt; = 0
							&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;i&lt;/SPAN&gt; = 1 &lt;SPAN&gt;To&lt;/SPAN&gt; &lt;SPAN&gt;NumberOfUnits&lt;/SPAN&gt; - 1
	                            &lt;SPAN&gt;'Copy the sheet back to the original drawing.&lt;/SPAN&gt;
	                            &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;copiedSheet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN&gt;newSheet&lt;/SPAN&gt;.&lt;SPAN&gt;CopyTo&lt;/SPAN&gt;(&lt;SPAN&gt;dwgDoc&lt;/SPAN&gt;)
								&lt;SPAN&gt;copiedSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt; = &lt;SPAN&gt;"_"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;InputBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Enter Unit Address"&lt;/SPAN&gt;, &lt;SPAN&gt;"Unit Address"&lt;/SPAN&gt;)
								
							&lt;SPAN&gt;Next&lt;/SPAN&gt;
	                        &lt;SPAN&gt;newDwg&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;(&lt;SPAN&gt;True&lt;/SPAN&gt;)
                            &lt;SPAN&gt;'Activate the new sheet.&lt;/SPAN&gt;
	                        &lt;SPAN&gt;'copiedSheet.Activate()&lt;/SPAN&gt;
                            
							&lt;SPAN&gt;InventorVb&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentUpdate&lt;/SPAN&gt;()
                        &lt;SPAN&gt;Catch&lt;/SPAN&gt;
                            &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Error occurred copying sheet."&lt;/SPAN&gt;)
                        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
                    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
                &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
            &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
	&lt;SPAN&gt;iLogicVb&lt;/SPAN&gt;.&lt;SPAN&gt;RunRule&lt;/SPAN&gt;(&lt;SPAN&gt;"ResetSectionViewCallout_Rule"&lt;/SPAN&gt;)
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
 
&lt;SPAN&gt;Function&lt;/SPAN&gt; &lt;SPAN&gt;UpdateUnitAddress&lt;/SPAN&gt;() &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;dwgDoc2&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DrawingDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPromptEntry&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;actSheet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;
    &lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDrawing&lt;/SPAN&gt;.&lt;SPAN&gt;Sheet&lt;/SPAN&gt;(&lt;SPAN&gt;actSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt;)
    &lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;=&lt;SPAN&gt;actSheet&lt;/SPAN&gt;.&lt;SPAN&gt;TitleBlock&lt;/SPAN&gt;
    &lt;SPAN&gt;oTextBoxes&lt;/SPAN&gt;=&lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Sketch&lt;/SPAN&gt;.&lt;SPAN&gt;TextBoxes&lt;/SPAN&gt;
    &lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oTextBox&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Sketch&lt;/SPAN&gt;.&lt;SPAN&gt;TextBoxes&lt;/SPAN&gt;
			&lt;SPAN&gt;Select&lt;/SPAN&gt; &lt;SPAN&gt;oTextBox&lt;/SPAN&gt;.&lt;SPAN&gt;Text&lt;/SPAN&gt;
				&lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"Unit Address"&lt;/SPAN&gt; :
					&lt;SPAN&gt;oPromptEntry&lt;/SPAN&gt; = &lt;SPAN&gt;dwgDoc2&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;Name&lt;/SPAN&gt;
					&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Phase1."&lt;/SPAN&gt;)
					&lt;SPAN&gt;'oTitleBlock.SetPromptResultText(oTextBox, oPromptEntry)&lt;/SPAN&gt;
					&lt;FONT color="#ff0000"&gt;&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oTitleBlock&lt;/SPAN&gt;.&lt;SPAN&gt;SetPromptResultText&lt;/SPAN&gt;(&lt;SPAN&gt;oTextBox&lt;/SPAN&gt;, &lt;SPAN&gt;oPromptEntry&lt;/SPAN&gt;)&lt;/FONT&gt;
					&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Phase2."&lt;/SPAN&gt;)
			&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Select&lt;/SPAN&gt;
    &lt;SPAN&gt;Next&lt;/SPAN&gt;
	&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Phase3."&lt;/SPAN&gt;)
	&lt;SPAN&gt;'actSheet.Activate&lt;/SPAN&gt;
	&lt;SPAN&gt;'InventorVb.DocumentUpdate()&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;

&lt;SPAN&gt;Function&lt;/SPAN&gt; &lt;SPAN&gt;GetNewReference&lt;/SPAN&gt;() &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
    &lt;SPAN&gt;' Create a new FileDialog object.&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;FileDialog&lt;/SPAN&gt;
    &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;CreateFileDialog&lt;/SPAN&gt;(&lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;)

    &lt;SPAN&gt;' Define the filter to select part and assembly files or any file.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;Filter&lt;/SPAN&gt; = &lt;SPAN&gt;"Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"&lt;/SPAN&gt;

    &lt;SPAN&gt;' Define the part and assembly files filter to be the default filter.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;FilterIndex&lt;/SPAN&gt; = 1

    &lt;SPAN&gt;' Set the title for the dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;DialogTitle&lt;/SPAN&gt; = &lt;SPAN&gt;"Copy/Replace Sheet - Select Replacement Model"&lt;/SPAN&gt;

    &lt;SPAN&gt;' Set the initial directory that will be displayed in the dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;InitialDirectory&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;

    &lt;SPAN&gt;' Set the flag so an error will be raised if the user clicks the Cancel button.&lt;/SPAN&gt;
    &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;CancelError&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;

    &lt;SPAN&gt;' Show the open dialog.  The same procedure is also used for the Save dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;' The commented code can be used for the Save dialog.&lt;/SPAN&gt;
    &lt;SPAN&gt;Try&lt;/SPAN&gt;
        &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;ShowOpen&lt;/SPAN&gt;
    &lt;SPAN&gt;Catch&lt;/SPAN&gt;
        &lt;SPAN&gt;'MessageBox.Show("User cancelled out of dialog", "Replace Reference")&lt;/SPAN&gt;
    &lt;SPAN&gt;Finally&lt;/SPAN&gt;
        &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
            &lt;SPAN&gt;'MessageBox.Show("File " &amp;amp; oFileDlg.FileName &amp;amp; " was selected.", "Replace Reference")&lt;/SPAN&gt;
            &lt;SPAN&gt;GetNewReference&lt;/SPAN&gt; = &lt;SPAN&gt;oFileDlg&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;
        &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;

&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 25 Oct 2018 14:58:18 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359389#M90582</guid>
      <dc:creator>Scott.Hallmark</dc:creator>
      <dc:date>2018-10-25T14:58:18Z</dc:date>
    </item>
    <item>
      <title>Re: Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359525#M90587</link>
      <description>&lt;P&gt;Hi&amp;nbsp;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/772344"&gt;@Scott.Hallmark&lt;/a&gt;,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;It works for me as long as I have a prompted entry in my title block that is labeled Unit Address....&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;rather than &amp;lt;Unit Address&amp;gt; with carets.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;The result I see is the sheet name and the prompted entry are replaced with an underscore ,the Unit Address entered,&amp;nbsp; and the sheet number preceded by a colon, example:&amp;nbsp;&amp;nbsp;&lt;STRONG&gt;_5555:1&amp;nbsp;&lt;/STRONG&gt;, where 5555 is what I entered for unit address.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I see no error, and I don't see it put the selected model name in the sheet name... I'm not certain the expected result, but I'm guessing the result should be Filename&lt;STRONG&gt;_&lt;/STRONG&gt;UnitAddress&lt;STRONG&gt;:&lt;/STRONG&gt;SheetNumber , such as NG123_5555:1&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I hope this helps.&lt;BR /&gt;Best of luck to you in all of your Inventor pursuits,&lt;BR /&gt;Curtis&lt;BR /&gt;&lt;A href="http://inventortrenches.blogspot.com" target="_blank"&gt;http://inventortrenches.blogspot.com&lt;/A&gt;&lt;/P&gt;</description>
      <pubDate>Thu, 25 Oct 2018 15:40:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359525#M90587</guid>
      <dc:creator>Curtis_Waguespack</dc:creator>
      <dc:date>2018-10-25T15:40:09Z</dc:date>
    </item>
    <item>
      <title>Re: Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359580#M90588</link>
      <description>&lt;P&gt;I don't get it.&amp;nbsp; It halts and gives me the "Error occurred copying sheet." that I have in my Catch.&amp;nbsp; It hits the "Phase1" message box, then the error message box.&amp;nbsp; no copied sheets and no updated Unit Address.&amp;nbsp; I will keep looking at it.&amp;nbsp; Thank you.&lt;/P&gt;</description>
      <pubDate>Thu, 25 Oct 2018 16:01:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359580#M90588</guid>
      <dc:creator>Scott.Hallmark</dc:creator>
      <dc:date>2018-10-25T16:01:09Z</dc:date>
    </item>
    <item>
      <title>Re: Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359702#M90592</link>
      <description>&lt;P&gt;Hi &lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/105031"&gt;@Curtis_Waguespack&lt;/a&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I am working now.&amp;nbsp; For some reason, I had to change my Prompted Entry to &amp;lt;Unit Address&amp;gt; and update the code accordingly.&amp;nbsp; Once that was done, it worked perfectly.&amp;nbsp; Last thing I need to do it remove the :SheetNumber off the end of Prompted Entry in the TB.&amp;nbsp; If you have a quick code, that's great.&amp;nbsp; Otherwise, I will begin my search.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks again for confirming!&lt;/P&gt;</description>
      <pubDate>Thu, 25 Oct 2018 16:46:43 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359702#M90592</guid>
      <dc:creator>Scott.Hallmark</dc:creator>
      <dc:date>2018-10-25T16:46:43Z</dc:date>
    </item>
    <item>
      <title>Re: Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359706#M90593</link>
      <description>&lt;P&gt;Looking at the Object Browser Sheet&amp;gt;TitleBlock is read-only... could that have something to do with it? This sounds like a lot of work but could you delete the titleblock and insert a new block with your prompted entry?&lt;/P&gt;</description>
      <pubDate>Thu, 25 Oct 2018 16:49:16 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359706#M90593</guid>
      <dc:creator>clutsa</dc:creator>
      <dc:date>2018-10-25T16:49:16Z</dc:date>
    </item>
    <item>
      <title>Re: Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359729#M90594</link>
      <description>&lt;P&gt;Hi&amp;nbsp;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/772344"&gt;@Scott.Hallmark&lt;/a&gt;,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Something like this will work.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I hope this helps.&lt;BR /&gt;Best of luck to you in all of your Inventor pursuits,&lt;BR /&gt;Curtis&lt;BR /&gt;&lt;A href="http://inventortrenches.blogspot.com" target="_blank"&gt;http://inventortrenches.blogspot.com&lt;/A&gt;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;dwgDoc = ThisDoc.Document
oSheetName = dwgDoc.ActiveSheet.Name
'split the name into a string array using colon
Dim sSplit As String() = oSheetName.Split(New Char() {":"c})

'get the first member of array
oSheetName = sSplit(0)
MessageBox.Show(oSheetName, "SheetName")

'get the second member of array
oSheetNumber = sSplit(1)
MessageBox.Show(oSheetNumber, "SheetNumber")&lt;/PRE&gt;</description>
      <pubDate>Thu, 25 Oct 2018 16:56:15 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359729#M90594</guid>
      <dc:creator>Curtis_Waguespack</dc:creator>
      <dc:date>2018-10-25T16:56:15Z</dc:date>
    </item>
    <item>
      <title>Re: Need a sheet name pushed to a prompted entry in the Titleblock</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359779#M90595</link>
      <description>&lt;P&gt;Looks like you have to edit the titleblock drawing Definition... something like this&lt;/P&gt;&lt;PRE&gt;Dim dwgDoc2 As DrawingDocument = ThisDoc.Document
	Dim oPromptEntry As String
	Dim actSheet As Sheet = ThisApplication.ActiveDocument.ActiveSheet
    ActiveSheet = ThisDrawing.Sheet(actSheet.Name)
    Dim oTitleBlock As TitleBlock = actSheet.TitleBlock
	Dim oBlockSketch As DrawingSketch
	oPromptEntry = dwgDoc2.ActiveSheet.Name
	Call oTitleBlock.Definition.Edit(oBlockSketch)
    oTextBoxes=oBlockSketch.TextBoxes
    For Each oTextBox In oTextBoxes
			Select oTextBox.Text
				Case "Unit Address" 
					MessageBox.Show("Phase1.")
					MessageBox.Show (oPromptEntry)
					oOrgText = oTextBox.FormattedText
                                        oNewText = Replace(oOrgText, "Unit Address", oPromptEntry)
                                        oTextBox.FormattedText = oNewText
					MessageBox.Show("Phase2.")
			        End Select
    Next
	oTitleBlock.Definition.ExitEdit
	MessageBox.Show("Phase3.")&amp;nbsp;&lt;/PRE&gt;&lt;P&gt;It needs cleaned up a bit but you seem able&lt;/P&gt;</description>
      <pubDate>Thu, 25 Oct 2018 17:17:45 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/need-a-sheet-name-pushed-to-a-prompted-entry-in-the-titleblock/m-p/8359779#M90595</guid>
      <dc:creator>clutsa</dc:creator>
      <dc:date>2018-10-25T17:17:45Z</dc:date>
    </item>
  </channel>
</rss>

