<?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: The Title is not added in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817555#M168103</link>
    <description>&lt;P&gt;Yes, it works) Thank you&lt;BR /&gt;I apologize for the incorrect format..&lt;/P&gt;</description>
    <pubDate>Tue, 04 Jun 2024 12:32:46 GMT</pubDate>
    <dc:creator>dxmv</dc:creator>
    <dc:date>2024-06-04T12:32:46Z</dc:date>
    <item>
      <title>The Title is not added</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817468#M168101</link>
      <description>&lt;P&gt;Hello. I need to save pdf drawing files from an assembly. Each part has a designation and name (Title). I wrote the code for automation.. Now ilogic creates files with the designation (file name). I need him to add the name separated by a space. Here's a code example -&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Imports&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;Windows&lt;/SPAN&gt;.&lt;SPAN&gt;Forms&lt;/SPAN&gt;
&lt;SPAN&gt;Imports&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;PRE&gt;&lt;SPAN&gt;&lt;BR /&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;() &lt;SPAN&gt;Try&lt;/SPAN&gt; &lt;SPAN&gt;' Получаем активную сборку&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oAssemblyDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyDocument&lt;/SPAN&gt; &lt;SPAN&gt;oAssemblyDoc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;assemblyFileName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oAssemblyDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt; &lt;SPAN&gt;' Сохраняем список файлов сборки и их путей&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;componentFiles&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;List&lt;/SPAN&gt;(&lt;SPAN&gt;Of&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;) &lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oComponent&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;ComponentOccurrence&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oAssemblyDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;Occurrences&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;partFullPath&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oComponent&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;partDirectory&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetDirectoryName&lt;/SPAN&gt;(&lt;SPAN&gt;partFullPath&lt;/SPAN&gt;) &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;partFileName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetFileNameWithoutExtension&lt;/SPAN&gt;(&lt;SPAN&gt;partFullPath&lt;/SPAN&gt;) &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;idwFile&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;Combine&lt;/SPAN&gt;(&lt;SPAN&gt;partDirectory&lt;/SPAN&gt;, &lt;SPAN&gt;partFileName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".idw"&lt;/SPAN&gt;) &lt;SPAN&gt;' Проверяем, существует ли IDW файл&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;Exists&lt;/SPAN&gt;(&lt;SPAN&gt;idwFile&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;componentFiles&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;idwFile&lt;/SPAN&gt;) &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Next&lt;/SPAN&gt; &lt;SPAN&gt;' Закрываем сборочный файл&lt;/SPAN&gt; &lt;SPAN&gt;oAssemblyDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;(&lt;SPAN&gt;False&lt;/SPAN&gt;) &lt;SPAN&gt;' Открываем диалоговое окно для выбора папки&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;folderDialog&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;FolderBrowserDialog&lt;/SPAN&gt; &lt;SPAN&gt;folderDialog&lt;/SPAN&gt;.&lt;SPAN&gt;Description&lt;/SPAN&gt; = &lt;SPAN&gt;"Выберите папку для сохранения PDF файлов"&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;folderDialog&lt;/SPAN&gt;.&lt;SPAN&gt;ShowDialog&lt;/SPAN&gt;() &amp;lt;&amp;gt; &lt;SPAN&gt;DialogResult&lt;/SPAN&gt;.&lt;SPAN&gt;OK&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Папка не выбрана. Операция отменена."&lt;/SPAN&gt;) &lt;SPAN&gt;' Открываем сборочный файл снова&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;assemblyFileName&lt;/SPAN&gt;) &lt;SPAN&gt;Exit&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;saveFolder&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;folderDialog&lt;/SPAN&gt;.&lt;SPAN&gt;SelectedPath&lt;/SPAN&gt; &lt;SPAN&gt;' Переменная для хранения путей сохраненных файлов&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;savedFiles&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;' Проходим по всем IDW файлам из списка&lt;/SPAN&gt; &lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;idwFile&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;componentFiles&lt;/SPAN&gt; &lt;SPAN&gt;' Открываем IDW файл&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&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;idwFile&lt;/SPAN&gt;) &lt;SPAN&gt;' Получаем путь и имя файла&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;folder&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetDirectoryName&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;) &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;fileName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetFileNameWithoutExtension&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;) &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;title&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;' Проверяем, существует ли набор свойств "Summary"&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt; &lt;SPAN&gt;title&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Summary"&lt;/SPAN&gt;, &lt;SPAN&gt;"Title"&lt;/SPAN&gt;) &lt;SPAN&gt;Catch&lt;/SPAN&gt; &lt;SPAN&gt;ex&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Exception&lt;/SPAN&gt; &lt;SPAN&gt;title&lt;/SPAN&gt; = &lt;SPAN&gt;"NoTitle"&lt;/SPAN&gt; &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt; &lt;SPAN&gt;' Формируем полное имя файла&lt;/SPAN&gt; &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;fullFileName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;Combine&lt;/SPAN&gt;(&lt;SPAN&gt;saveFolder&lt;/SPAN&gt;, &lt;SPAN&gt;fileName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;" "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;title&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".pdf"&lt;/SPAN&gt;) &lt;SPAN&gt;' Применяем ваш код для сохранения PDF&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;SaveAs&lt;/SPAN&gt;(&lt;SPAN&gt;fullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;' Закрываем IDW файл без сохранения&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;(&lt;SPAN&gt;False&lt;/SPAN&gt;) &lt;SPAN&gt;' Добавляем путь сохраненного файла в переменную&lt;/SPAN&gt; &lt;SPAN&gt;savedFiles&lt;/SPAN&gt; &amp;amp;= &lt;SPAN&gt;fullFileName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCrLf&lt;/SPAN&gt; &lt;SPAN&gt;Next&lt;/SPAN&gt; &lt;SPAN&gt;' Сообщаем пользователю о завершении и выводим пути сохраненных файлов&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;savedFiles&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Не найдено ни одного IDW файла для создания PDF."&lt;/SPAN&gt;) &lt;SPAN&gt;Else&lt;/SPAN&gt; &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Создание PDF завершено. Файлы сохранены по следующим путям:"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbCrLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;savedFiles&lt;/SPAN&gt;) &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;' Открываем сборочный файл снова&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;assemblyFileName&lt;/SPAN&gt;) &lt;SPAN&gt;Catch&lt;/SPAN&gt; &lt;SPAN&gt;ex&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Exception&lt;/SPAN&gt; &lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Произошла ошибка: "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;ex&lt;/SPAN&gt;.&lt;SPAN&gt;Message&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;Sub&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;- what am I doing wrong?&lt;/P&gt;</description>
      <pubDate>Tue, 04 Jun 2024 11:59:25 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817468#M168101</guid>
      <dc:creator>dxmv</dc:creator>
      <dc:date>2024-06-04T11:59:25Z</dc:date>
    </item>
    <item>
      <title>Re: The Title is not added</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817534#M168102</link>
      <description>&lt;P&gt;Hi&amp;nbsp;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/10396001"&gt;@dxmv&lt;/a&gt;.&amp;nbsp; For some reason, the code you posted did not format correctly when you posted it on the forum.&amp;nbsp; It was difficult reading through that code when it is not formatted correctly.&amp;nbsp; However, I think I managed to get it back to the way it was supposed to be.&amp;nbsp; I think your main problem is how you are getting the value of the title iProperty.&amp;nbsp; That simple iLogic snippet would have been trying to get the title from the main assembly every single time, because there is nothing specifying what document to get it from.&amp;nbsp; So, I changed the following line of code:&lt;/P&gt;
&lt;LI-CODE lang="general"&gt;title = iProperties.Value("Summary", "Title")&lt;/LI-CODE&gt;
&lt;P&gt;...to be like this:&lt;/P&gt;
&lt;LI-CODE lang="general"&gt;title = oDoc.PropertySets.Item(1).Item(1).Value&lt;/LI-CODE&gt;
&lt;P&gt;...because the 'oDoc' variable is the drawing document that has been opened, and that is the document we want to get the title from.&amp;nbsp; Then, this digs down into that specific document's PropertySets and Properties to find its title property, then gets its value.&amp;nbsp; The title is the first Property, that is within the first PropertySet, of every document, so I just used index numbers, instead of names.&amp;nbsp; I am not sure if that one edit will fix your code, but you can give it a try.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;By the way...just so it is easier for others later, below is the 'deciphered' code example, with that one line of code changed.&lt;/P&gt;
&lt;LI-CODE lang="general"&gt;Sub Main()
	Try ' Получаем активную сборку
		Dim oAssemblyDoc As AssemblyDocument
		oAssemblyDoc = ThisApplication.ActiveDocument
		Dim assemblyFileName As String = oAssemblyDoc.FullFileName
		' Сохраняем список файлов сборки и их путей
		Dim componentFiles As New List(Of String)
		For Each oComponent As ComponentOccurrence In oAssemblyDoc.ComponentDefinition.Occurrences
			Dim partFullPath As String = oComponent.Definition.Document.FullFileName
			Dim partDirectory As String = System.IO.Path.GetDirectoryName(partFullPath)
			Dim partFileName As String = System.IO.Path.GetFileNameWithoutExtension(partFullPath)
			Dim idwFile As String = System.IO.Path.Combine(partDirectory, partFileName &amp;amp; ".idw")
			' Проверяем, существует ли IDW файл
			If System.IO.File.Exists(idwFile) Then
				componentFiles.Add(idwFile)
			End If
		Next ' Закрываем сборочный файл
		oAssemblyDoc.Close(False)
		' Открываем диалоговое окно для выбора папки
		Dim folderDialog As New FolderBrowserDialog
		folderDialog.Description = "Выберите папку для сохранения PDF файлов"
		If folderDialog.ShowDialog() &amp;lt;&amp;gt; DialogResult.OK Then
			MessageBox.Show("Папка не выбрана. Операция отменена.")
			' Открываем сборочный файл снова
			ThisApplication.Documents.Open(assemblyFileName)
			Exit Sub
		End If
		Dim saveFolder As String = folderDialog.SelectedPath
		' Переменная для хранения путей сохраненных файлов
		Dim savedFiles As String = ""
		' Проходим по всем IDW файлам из списка
		For Each idwFile As String In componentFiles
			' Открываем IDW файл
			Dim oDoc As Document = ThisApplication.Documents.Open(idwFile)
			' Получаем путь и имя файла
			Dim folder As String = System.IO.Path.GetDirectoryName(oDoc.FullFileName)
			Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(oDoc.FullFileName)
			Dim title As String = ""
			' Проверяем, существует ли набор свойств "Summary"
			Try
				title = oDoc.PropertySets.Item(1).Item(1).Value
				'title = iProperties.Value("Summary", "Title")
			Catch ex As Exception
				title = "NoTitle"
			End Try
			' Формируем полное имя файла
			Dim fullFileName As String = System.IO.Path.Combine(saveFolder, fileName &amp;amp; " " &amp;amp; title &amp;amp; ".pdf")
			' Применяем ваш код для сохранения PDF 
			oDoc.SaveAs(fullFileName, True)
			' Закрываем IDW файл без сохранения
			oDoc.Close(False)
			' Добавляем путь сохраненного файла в переменную
			savedFiles &amp;amp;= fullFileName &amp;amp; vbCrLf
		Next
		' Сообщаем пользователю о завершении и выводим пути сохраненных файлов
		If savedFiles = "" Then
			MessageBox.Show("Не найдено ни одного IDW файла для создания PDF.")
		Else
			MessageBox.Show("Создание PDF завершено. Файлы сохранены по следующим путям:" &amp;amp; vbCrLf &amp;amp; savedFiles)
		End If
		' Открываем сборочный файл снова
		ThisApplication.Documents.Open(assemblyFileName)
	Catch ex As Exception
		MessageBox.Show("Произошла ошибка: " &amp;amp; ex.Message)
	End Try
End Sub&lt;/LI-CODE&gt;
&lt;P&gt;If this solved your problem, or answered your question, please click &lt;SPAN&gt;&lt;STRONG&gt; ACCEPT SOLUTION &lt;/STRONG&gt;&lt;/SPAN&gt;.&lt;BR /&gt;Or, if this helped you, please click (LIKE or KUDOS) &lt;img class="lia-deferred-image lia-image-emoji" src="https://forums.autodesk.com/html/@7401B55A0A518861312A0F851CD29320/emoticons/1f44d.png" alt=":thumbs_up:" title=":thumbs_up:" /&gt;.&lt;/P&gt;</description>
      <pubDate>Tue, 04 Jun 2024 12:22:54 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817534#M168102</guid>
      <dc:creator>WCrihfield</dc:creator>
      <dc:date>2024-06-04T12:22:54Z</dc:date>
    </item>
    <item>
      <title>Re: The Title is not added</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817555#M168103</link>
      <description>&lt;P&gt;Yes, it works) Thank you&lt;BR /&gt;I apologize for the incorrect format..&lt;/P&gt;</description>
      <pubDate>Tue, 04 Jun 2024 12:32:46 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-title-is-not-added/m-p/12817555#M168103</guid>
      <dc:creator>dxmv</dc:creator>
      <dc:date>2024-06-04T12:32:46Z</dc:date>
    </item>
  </channel>
</rss>

