Add Parameter to Leader Text Crashing Inventor 2019

[johnster100]

Hi,

I'm trying to add a parameter to my leader text. The code works when i'm adding to a part file but fails when i'm adding it to an assembly occurrence.

To Simplify the problem i've writting the following code:

oDoc = ThisDoc.Document
Dim s As String
s = oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Item(1).FormattedText
oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Item(1).FormattedText = s

All this does is take the first leader, read in it's text, then sets it back to it's text. This works fine when the view is of a part file but crashes when using an assembly file.

I'm running Inventor 2019.4.8

I have attached the files and the ilogic rule is in the drawing,

any help is appreciated,

thanks,

John

[johnster100]

any help available on this?

thanks again,

john

[JhoelForshav]

Hi @johnster100 

I tried your files and "unfortunately" I can't reproduce the error in Inventor 2020 😞

[johnster100]

yes I have since noticed that too. My issue is i'm stuck on inventor 2019 just now.

I was wondering if there is another way to update that property?

thanks,

John

[bradeneuropeArthur]

could you upload the code for me, since i am using IV 2018?

[johnster100]

oDoc = ThisDoc.Document
Dim s As String
s = oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Item(1).FormattedText
oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Item(1).FormattedText = s

The code is shown above. The drawing needs to be of an assembly file and the leader contains a parameter from a part file in the assembly.

I would create this for you myself but I don't have inventor 2018 on my computer 😞

Thanks,

John

[bradeneuropeArthur]

Dim D As Inventor.DrawingDocument
D = ThisDoc.Document


Dim a As Inventor.Sheet
a = D.ActiveSheet

Dim Le As Inventor.LeaderNote
Le = a.DrawingNotes.LeaderNotes.Item(1)

Dim s As String
s = Le.FormattedText

MsgBox(s)
Le.FormattedText = s
MsgBox(Le.FormattedText)

[johnster100]

Hi,

thanks for the reply,

I still get an error with this new code.

Maybe it's specific to Inventor 2019?

As I said above the code works fine when the view is of a part file, it only crashes when it's an assembly file.

thanks,

John

[JhoelForshav]

@johnster100 

I'm just guessing here but maybe the component path of the formatted text is not valid anymore?

Maybe the "Resolved= True" portion of the code causes some issues?

Maybe the component isn't open in inventors memory and that causes the problem?

Does this work?

oDoc = ThisDoc.Document
Dim s As String
s = oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Item(1).FormattedText
'MsgBox(s)

Dim oComponent = s.Split({"ComponentIdentifier=" }, 2, StringSplitOptions.RemoveEmptyEntries)(1).Split({" Name=" }, 2, StringSplitOptions.RemoveEmptyEntries)(0)

Dim oName = s.Split({"Name="}, 2, StringSplitOptions.RemoveEmptyEntries)(1).Split({" Precision="}, 2, StringSplitOptions.RemoveEmptyEntries)(0)
Dim oPrecision = s.Split({"Precision="}, 2, StringSplitOptions.RemoveEmptyEntries)(1).Split({">"}, 2, StringSplitOptions.RemoveEmptyEntries)(0)
'MsgBox(oComponent) 'Use see to inspect that the component path is correct
'MsgBox(oName) 'Use this to see that the parameter name is correct
'MsgBox(oPrecision) 'Use this to see that the precision is correct

'Make sure the component is open in memory
ThisApplication.Documents.Open(oComponent.Replace("'", ""), False)

Dim oNewText As String = "<Parameter ComponentIdentifier=" & oComponent & " Name=" & oName & " Precision=" & oPrecision & " ></Parameter>"
MsgBox(oNewText)

oDoc.ActiveSheet.DrawingNotes.LeaderNotes.Item(1).FormattedText = oNewText

[johnster100]

it's still not working 😞

I think someone from Autodesk will need to Investigate and explain the error. 

The fact that it works fine in 2020 makes me think it might be a bug in the 2019 😞

thanks for your time,

John