В команде
oPartNumber = iProperties.Value(oModelName, "Project", "Part Number")
вместо oModelName нужно задавать не DisplayName, а FullFIleName - полный путь к файлу.
Альтернатива: извлекать Part number из документа, который вам дает дескриптор средствами Inventor API.
(ровно так, как вы поступили в случае c DisplayName).
См. обзор в хелпе про работу со свойствами iProperties.