<?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 Betreff: addtitleblock --simplest test in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653678#M56151</link>
    <description>&lt;P&gt;For all asking in the future:&lt;/P&gt;
&lt;PRE&gt;Public Sub addMyTitleBlock()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
' get the Title blocks (definitions)
Dim oTitleBlks As TitleBlockDefinitions
Set oTitleBlks = oDrawDoc.TitleBlockDefinitions

Dim osheet As Sheet
Set osheet = oDrawDoc.ActiveSheet


Dim sPromptStrings(1 To 17) As String
sPromptStrings(1) = ""
sPromptStrings(2) = ""
sPromptStrings(3) = ""
sPromptStrings(4) = ""
sPromptStrings(5) = ""
sPromptStrings(6) = ""
sPromptStrings(7) = ""
sPromptStrings(8) = ""
sPromptStrings(9) = ""
sPromptStrings(10) = ""
sPromptStrings(11) = ""
sPromptStrings(12) = ""
sPromptStrings(13) = ""
sPromptStrings(14) = ""
sPromptStrings(15) = ""
sPromptStrings(16) = ""
sPromptStrings(17) = ""


Dim otitleblock As titleblock
'Set oNewTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("myxTitleBlock")
'Set otitleblock = osheet.AddTitleBlock(oNewTitleBlockDef)
Set oNewTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item(1) 'here you may put your titleblock name in ("my titleblock name")
Set otitleblock = osheet.AddTitleBlock(oNewTitleBlockDef, , sPromptStrings)

End Sub&lt;/PRE&gt;
&lt;P&gt;What is important for me : &amp;nbsp;I had to write lines like&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;sPromptStrings(17) = ""&lt;/PRE&gt;
&lt;P&gt;without them it is not working.&lt;/P&gt;
&lt;P&gt;In my example I have 17 text prompts.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks for directing me ... &lt;img class="lia-deferred-image lia-image-emoji" src="https://forums.autodesk.com/html/@B4D44A73814D7FC0D950DEDFACB97081/emoticons/1f642.png" alt=":slightly_smiling_face:" title=":slightly_smiling_face:" /&gt;&lt;/P&gt;</description>
    <pubDate>Wed, 27 May 2015 15:10:09 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2015-05-27T15:10:09Z</dc:date>
    <item>
      <title>addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5652982#M56123</link>
      <description>&lt;P&gt;I tried to add title block in many ways (using macro) but without success.&lt;/P&gt;
&lt;P&gt;Here is a code:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;Sub test()
    Dim odrawdoc As DrawingDocument
    Set odrawdoc = ThisApplication.ActiveDocument
    Dim oNewTitleBlockDef As TitleBlockDefinition
    Dim oSheet As Sheet
    Dim titleblock As titleblock
    Set oSheet = odrawdoc.ActiveSheet
    Set oNewTitleBlockDef = odrawdoc.TitleBlockDefinitions.Item(1)
    Set titleblock = oSheet.addTitleBlock(oNewTitleBlockDef)
'    Call oSheet.addTitleBlock(oNewTitleBlockDef)
    
    
End Sub&lt;/PRE&gt;
&lt;P&gt;I got run time error 5 on line :&lt;/P&gt;
&lt;PRE&gt;Set titleblock = oSheet.addTitleBlock(oNewTitleBlockDef)&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;what is wrong?&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Michal&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Wed, 27 May 2015 09:06:34 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5652982#M56123</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2015-05-27T09:06:34Z</dc:date>
    </item>
    <item>
      <title>Betreff: addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653376#M56139</link>
      <description>&lt;P&gt;Public Sub addMyTitleBlock()&lt;BR /&gt;Dim oDrawDoc As DrawingDocument&lt;BR /&gt;'Ensure the active document is a drawing&lt;BR /&gt;If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then&lt;BR /&gt;Set oDrawDoc = ThisApplication.ActiveDocument&lt;BR /&gt;' get the Title blocks (definitions)&lt;BR /&gt;Dim oTitleBlks As TitleBlockDefinitions&lt;BR /&gt;Set oTitleBlks = oDrawDoc.TitleBlockDefinitions&lt;BR /&gt;' add a new title block definition&lt;BR /&gt;Dim oTitleBlk As TitleBlockDefinition&lt;BR /&gt;Set oTitleBlk = oTitleBlks.Add("myxTitleBlock")&lt;BR /&gt;End If&lt;BR /&gt;End Sub&lt;/P&gt;</description>
      <pubDate>Wed, 27 May 2015 13:44:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653376#M56139</guid>
      <dc:creator>GeorgK</dc:creator>
      <dc:date>2015-05-27T13:44:09Z</dc:date>
    </item>
    <item>
      <title>Betreff: addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653530#M56142</link>
      <description>&lt;P&gt;Ok, maybe I use wrong function.&lt;/P&gt;
&lt;P&gt;I'm trying to put title block on drawing.&lt;/P&gt;
&lt;P&gt;I'have two title blocks in template, and I want to put one of&amp;nbsp;them to&amp;nbsp;sketch.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I see that your code is trying to add next table to sketch resources.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Wed, 27 May 2015 14:02:31 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653530#M56142</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2015-05-27T14:02:31Z</dc:date>
    </item>
    <item>
      <title>Betreff: addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653575#M56146</link>
      <description>&lt;P&gt;I mixed your code with mine:&lt;/P&gt;
&lt;PRE&gt;Public Sub addMyTitleBlock()
Dim oDrawDoc As DrawingDocument
'Ensure the active document is a drawing
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
Set oDrawDoc = ThisApplication.ActiveDocument
' get the Title blocks (definitions)
Dim oTitleBlks As TitleBlockDefinitions
Set oTitleBlks = oDrawDoc.TitleBlockDefinitions
' add a new title block definition
Dim oTitleBlk As TitleBlockDefinition
Set oTitleBlk = oTitleBlks.Add("myxTitleBlock")

Dim osheet As Sheet
Set osheet = oDrawDoc.ActiveSheet

Dim otitleblock As titleblock
Set oNewTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("myxTitleBlock")
Set otitleblock = osheet.AddTitleBlock(oNewTitleBlockDef)
    
End If
End Sub&lt;/PRE&gt;
&lt;P&gt;And your myxtitleblock has been added to my Sheet.&lt;/P&gt;
&lt;P&gt;Now I see that I have problems with prompts probably. I was sure if I leave it empty then is OK.&lt;/P&gt;
&lt;P&gt;I will try to fix it and let you know.&lt;/P&gt;</description>
      <pubDate>Wed, 27 May 2015 14:21:58 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653575#M56146</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2015-05-27T14:21:58Z</dc:date>
    </item>
    <item>
      <title>Betreff: addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653587#M56149</link>
      <description>&lt;P&gt;As it says in API Help, if the titleblock that you are trying to add has prompted entries in it, you must supply them as arguments to the .AddTitleBlock line or else the method will fail.&lt;/P&gt;</description>
      <pubDate>Wed, 27 May 2015 14:28:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653587#M56149</guid>
      <dc:creator>MechMachineMan</dc:creator>
      <dc:date>2015-05-27T14:28:09Z</dc:date>
    </item>
    <item>
      <title>Betreff: addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653678#M56151</link>
      <description>&lt;P&gt;For all asking in the future:&lt;/P&gt;
&lt;PRE&gt;Public Sub addMyTitleBlock()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
' get the Title blocks (definitions)
Dim oTitleBlks As TitleBlockDefinitions
Set oTitleBlks = oDrawDoc.TitleBlockDefinitions

Dim osheet As Sheet
Set osheet = oDrawDoc.ActiveSheet


Dim sPromptStrings(1 To 17) As String
sPromptStrings(1) = ""
sPromptStrings(2) = ""
sPromptStrings(3) = ""
sPromptStrings(4) = ""
sPromptStrings(5) = ""
sPromptStrings(6) = ""
sPromptStrings(7) = ""
sPromptStrings(8) = ""
sPromptStrings(9) = ""
sPromptStrings(10) = ""
sPromptStrings(11) = ""
sPromptStrings(12) = ""
sPromptStrings(13) = ""
sPromptStrings(14) = ""
sPromptStrings(15) = ""
sPromptStrings(16) = ""
sPromptStrings(17) = ""


Dim otitleblock As titleblock
'Set oNewTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("myxTitleBlock")
'Set otitleblock = osheet.AddTitleBlock(oNewTitleBlockDef)
Set oNewTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item(1) 'here you may put your titleblock name in ("my titleblock name")
Set otitleblock = osheet.AddTitleBlock(oNewTitleBlockDef, , sPromptStrings)

End Sub&lt;/PRE&gt;
&lt;P&gt;What is important for me : &amp;nbsp;I had to write lines like&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;sPromptStrings(17) = ""&lt;/PRE&gt;
&lt;P&gt;without them it is not working.&lt;/P&gt;
&lt;P&gt;In my example I have 17 text prompts.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks for directing me ... &lt;img class="lia-deferred-image lia-image-emoji" src="https://forums.autodesk.com/html/@B4D44A73814D7FC0D950DEDFACB97081/emoticons/1f642.png" alt=":slightly_smiling_face:" title=":slightly_smiling_face:" /&gt;&lt;/P&gt;</description>
      <pubDate>Wed, 27 May 2015 15:10:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5653678#M56151</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2015-05-27T15:10:09Z</dc:date>
    </item>
    <item>
      <title>Betreff: addtitleblock --simplest test</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5655252#M56198</link>
      <description>Dont forget to mark as solution and give kudos where due so that others can find this solved post if they search for it.</description>
      <pubDate>Thu, 28 May 2015 15:05:37 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/addtitleblock-simplest-test/m-p/5655252#M56198</guid>
      <dc:creator>MechMachineMan</dc:creator>
      <dc:date>2015-05-28T15:05:37Z</dc:date>
    </item>
  </channel>
</rss>

