Уникальные имена при сохранении деталей из библиотеки компонентов Inventor

[atiks 0]

Добрый день!

Нужна помощь. Имеется своя библиотека трубопровода в Инвентор. При каждом сохранении трубы с одинаковой длинной, программа просит пересохранить файл.

Как сделать уникальные имена при сохранении деталей из библиотеки Инвентор?

Есть мысль привязать имя файла ко времени через макрос, но как реализовать, чтобы при сохранении детали программа присваивала новое имя я не знаю

Dim TimeNow As Date
	TimeNow = Now 
Timenow2 = TimeNow.ToOADate()
Console.WriteLine(Timenow2)
iProperties.Value("Custom", "name") = Timenow2 

В макросе не силен от слова "совсем"... Custom", "name" планировал в свойствах детали отображать время