Parasolid export journal code error

[rafl]

Hi

In Link theres a parasolid export journal by cowski.
It gives me an error message when file name contains more than 30 characters. Error in line 39
Any help would be appreciated

 

[cowski]

Replace this block of code:

[COLOR=blue]For each[/color] obj [COLOR=blue]as[/color] Body [COLOR=blue]in[/color] mySelectedObjects  
    [COLOR=blue]if[/color] obj.IsOccurrence [COLOR=blue]then[/color]  
        obj.SetName(obj.OwningComponent.DisplayName)  
    [COLOR=blue]else[/color]  
[highlight #FCE94F]        obj.SetName(obj.OwningPart.Leaf)[/highlight]  
    end [COLOR=blue]if[/color]  
    tags.Add(obj.Tag)  
[COLOR=blue]Next[/color]

with the following block of code, and it will truncate long names.

[COLOR=blue]For Each[/color] obj [COLOR=blue]As[/color] Body [COLOR=blue]In[/color] mySelectedObjects  
    [COLOR=blue]If[/color] obj.IsOccurrence [COLOR=blue]Then[/color]  
        obj.SetName(obj.OwningComponent.DisplayName)  
    [COLOR=blue]Else[/color]  
[highlight #FCE94F]        [COLOR=blue]If[/color] obj.OwningPart.Leaf.Length > 30 [COLOR=blue]Then[/color]  
            obj.SetName(obj.OwningPart.Leaf.Substring(0, 30))  
        [COLOR=blue]Else[/color]  
            obj.SetName(obj.OwningPart.Leaf)  
        End [COLOR=blue]If[/color][/highlight]  
    End [COLOR=blue]If[/color]  
    tags.Add(obj.Tag)  
[COLOR=blue]Next[/color]

www.nxjournaling.com

 

[rafl]

Thank You