how to add new titleblock with vb.net

Anonymous — Sun, 22 Nov 2015 12:50:26 GMT

Hello Everyone,

I'm new to Inventor, and I'm replacing old title block with new one, i try to delete old title block and add new title block but i only can achive the first step.

  Dim invapp As Inventor.Application = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
        Dim oSourceDocument As Inventor.DrawingDocument
        oSourceDocument = invapp.ActiveDocument
        Dim oSourceTitleBlockDef As Inventor.TitleBlockDefinition
        oSourceTitleBlockDef = oSourceDocument.TitleBlockDefinitions.Item("new title block")
       
 Dim osheet As Inventor.Sheet
       For Each osheet In oNewDocument.Sheets
          osheet.Activate()
           osheet.TitleBlock.Delete()
            osheet.AddTitleBlock(oSourceTitleBlockDef)
      Next

OR

 Dim osheet As Inventor.Sheet
        osheet = oSourceDocument.ActiveSheet
        osheet.TitleBlock.Delete()
        Dim otitleblock As Inventor.TitleBlock
        otitleblock = osheet.AddTitleBlock(oSourceTitleBlockDef)

there are something wrong with the code,

osheet.AddTitleBlock(oSourceTitleBlockDef)

I've seen many videos , refer many blogs but I can't find the answer of the question.

Please help me.

Re: how to add new titleblock with vb.net

Mark.Lancaster — Sun, 22 Nov 2015 13:10:35 GMT

lzhif

Welcome to the community.. A question like this should be posted over in the Inventor Customization forum: http://forums.autodesk.com/t5/inventor-customization/bd-p/120. ALso in the future when you post, always indicated the version of Inventor you are using

Re: how to add new titleblock with vb.net

Anonymous — Sun, 06 Dec 2015 12:47:03 GMT

sorry about that, but the website address is unavailable. anyway i see what you mean.

topic Re: how to add new titleblock with vb.net in Inventor Forum

how to add new titleblock with vb.net

Re: how to add new titleblock with vb.net

Re: how to add new titleblock with vb.net