Import sketched symbol from a new existing template into an older drawing

[Anonymous]

Hello,

We have redesigned the format of our drawings, so we've created a new title block and sketched symbols, etc.

The problem is that we have to update all the old drawings to use the new format as well. I've figured out how to reliably import the new title block, but I'm trying to get a tolerance block from the new template inserted into the old drawing. Here's the code I have: 

SyntaxEditor Code Snippet

FileLocation = "C:\Vault\TEMPLATES\CURRENT TEMPLATE TEST\"

ThisDrawing.ResourceFileName = FileLocation + "IPS Machined Comp.idw"
ThisDrawing.KeepExtraResources = True

ActiveSheet.TitleBlock = "MKS IPS"

'========================================================='vvv this section isn't working vvv'=========================================================
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisDrawing.Document

Dim oSketchedSymbolDef As SketchedSymbolDefinition
oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item("TIGHT TOLERANCE BLOCK")

Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet

Dim sPromptStrings(0) As String
sPromptStrings(0) = "A"

oSheet.SketchedSymbols.Add(oSketchedSymbolDef, _
    ThisApplication.TransientGeometry.CreatePoint2d(ActiveSheet.Width - 8.9, 2.16),0, 1, sPromptStrings)
'========================================================='^^^ this section isn't working ^^^'=========================================================

If ActiveSheet.Size < "C" Then '   "A"<"B"<"C"<"D"
    ActiveSheet.ChangeSize("C", MoveBorderItems := True)
End If

[TA.Fehr]

Would it not be easier to use the Drawing Resource Transfer Wizard? Whenever I have to update titleblocks that's what I use. It gives good control over what you wish to copy and avoid.

It is located in the Inventor 2015\Bin file

[MechMachineMan]

Declare things explicitly instead of doing inline calls as it makes things go MUCH MUCH smoother.

Dim oPT as Point2d
oPT = ThisApplication.TransientGeometry.CreatePoint2d(ActiveSheet.Width - 8.9, 2.16)
oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oPT, 0, 1, sPromptStrings)

[Anonymous]

Oh really? Why does it matter?

[MechMachineMan]

It just is way more reliable if every variable knows what data type it is supposed to be.

[Anonymous]

I didn't even think about that. I would still have to go through each drawing and shift things around though. Plus, I'd have to check every file out, right?

[Anonymous]

I appreciate the alternative method, but I can't check out the entire vault over the weekend as it's kind of large. We tried to do an all-encompassing conversion on a saturday a six months ago and it ended up lasting a whole month.

I was hoping for a more localized solution so that the new title block would be more of a "line in the sand" type of deal as opposed to a complete conversion for the entire vault.