Message 1 of 23
iLogic error

Not applicable
06-06-2017
11:18 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
Can i ask you for help with iLogic?
I use iLogic rules to configure our products, and until 2018 it all worked.
I have used the same rules since the 2015 version and everything is ok. In the version 2018, I ceased to run a rule that has the task of tying the project name to all parts.
There is a lot of others involved in the rule, and that's why it's virtually nothing to do with this error.
Now I can not make orders and I am practically standing, which is why it burns a lot.
The rule is here:
Dim IPJ as String Dim IPJ_Name As String Dim IPJ_Path As String Dim FNamePos As Long 'set a reference to the FileLocations object. IPJ = ThisApplication.FileLocations.FileLocationsFile 'get the location of the last backslash seperator FNamePos = InStrRev(IPJ, "\", -1) 'get the project file name with the file extension IPJ_Name = Right(IPJ, Len(IPJ) - FNamePos) 'get the project name (without extension) 'IPJ_ShortName = Left(IPJ_Name, Len(IPJ_Name) - 4) 'get the path of the folder containing the project file IPJ_Folder_Location = Left(IPJ, Len(IPJ) - Len(IPJ_Name)) Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument 'oAsmName = Left(oAsmDoc.DisplayName, Len(oAsmDoc.DisplayName) -4) oAsmName = Left(IPJ_Name, Len(IPJ_Name) - 4) Dim oRefDocs As DocumentsEnumerator oRefDocs = oAsmDoc.AllReferencedDocuments Dim oRefDoc As Document Dim i As Integer i=1 For Each oRefDoc In oRefDocs oRefDocs.Item(i).PropertySets.Item("Inventor Summary Information").Item("Title").Value=oAsmName i=i+1 Next iProperties.Value("Summary", "Title") = oAsmName ThisDoc.Save
We found out that this rule throws out this error when it writes to standard parts. Until 2018 there was no problem.
Many thanks,
Daniel Zdenek