.AddTitleBlock Help

[MechMachineMan]

Hi there,

I've been trying to make a program that will go thorugh an idw and seperate out each sheet, moving it to a new .idw and changing the titleblock in the process. However, every time I try, it is giving me an error. 

I have made a similiar program to this, that essentially does the same thing, however it does not give me errors.

Is anyone aware of any hidden conditions involved in using the .AddTitleBlock method that is not mentioned in the API programming, or even what the .LateGet error is caused by?

Any help is much appreciated!

The error codes I get are:

Error in rule: oMakeDwg, in document: 334308-001 to 012.idw

The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

------------------------------------------------------
System.ArgumentException: The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))
   at Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)
   at LmiRuleScript.Main()
   at Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
   at iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

Sub Main()

        Dim oSheet As Sheet = ThisApplication.ActiveDocument.Sheets.Item(ThisApplication.ActiveDocument.Sheets.Count)

        Dim sPromptStrings(4) As String
Try
        sPromptStrings(0) = oSheet.TitleBlock.GetResultText(oSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(48)) ' Title
        sPromptStrings(1) = oSheet.TitleBlock.GetResultText(oSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(49)) 'DESCRIPTION 1
        sPromptStrings(2) = oSheet.TitleBlock.GetResultText(oSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(50)) 'DESCRIPTION 2
        sPromptStrings(3) = oSheet.TitleBlock.GetResultText(oSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(52)) 'CUSTOMER DRAWING#
        sPromptStrings(4) = oSheet.TitleBlock.GetResultText(oSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(53)) 'SCALE
        
        'oRevOrigin = oSheet.RevisionTables.Item(1).Position()
Catch
End Try
        
        oFileDoc=ThisApplication.Documents.Add(kDrawingDocumentObject,"C:\Users\ \Template File Containing New TitleBlock.idw", True)

        oSheet.CopyTo(oFileDoc)
        oFileDoc.Activate
        oFileDoc.Sheets.Item(oFileDoc.Sheets.Count).Activate

        oFile = "C:\Directory\" & "Test" & ".idw"
		‘Test is to be replaced by an iProperty once I get this                  		working

        oFileDoc.SaveAs(oFile, False)

        If Not oFileDoc.ActiveSheet.TitleBlock Is Nothing Then
              oFileDoc.ActiveSheet.TitleBlock.Delete
        End If
    
        Dim oTitleBlock As Inventor.TitleBlock
        oTitleBlock = oFileDoc.Sheets.Item(oFileDoc.Sheets.Count).AddTitleBlock("NEW TITLEBLOCK", ,sPromptStrings)

        oFileDoc.Sheets.Item(1).Delete
'        oFileDoc.Close
End Sub

[MechMachineMan]

Anyone out there?

[Anonymous]

Could you attach your idw files that caused this error? There were many cases so I (and other members) couldn't know what exactly happened.

[MechMachineMan]

Hi.

So I went through the IDW and removed the data specific to our company, and added in the code I was using to test it.

HOWEVER, now everything is working perfectly. So this is quite odd.

(There are 3 different titleblocks, and a drawing document)

[MechMachineMan · Accepted solution]

Turns out it was an issue with a .LateGet Error.

Either way, the fix was simply to make a new sub function to add the titleblock.

The .AddTitleBlockFunctionality worked itself, however, when I tried to add a new document, then change titleblocks in that new document it got stumped.

I think there is something wrong with my defintion of oFileDoc.