переменной имя проекта

[Сергей SSS]

Как обнаружить имя созданного проекта из чертежа. Где то видал инфу, но не могу найти. Не наименование во вкладке проект, а именно имя всего проекта (в управлении настраивается). Лучше на ilogic.
Переменная=имя проекта

[R.I.Chernov]

У меня сломался компьютер Так что подсказать могу лишь на пальцах по памяти. Нажмите alt+F11 - откроется VBA, нажмите F2 - откроется объектный браузер. В строке поиска вбейте ProjectName и поищите, откуда вызывается это свойство. Если не ошибаюсь, то там должно быть такое, и возвращает оно имя проекта.

[Александр Ривилис]

Сергей SSS
Не это искал: http://inventortrenches.blogspot.com/2012/07/ilogic-and-inventor-project-file.html ?

[Сергей SSS]

Не это искал: http://inventortrenches.blogspot.com/2012/07/ilogic-and-inventor-project-file.html ?

Спасибо. Оно:

Код - vb.net [Выбрать]

1. Dim IPJ as String
2. Dim IPJ_Name As String
3. Dim FNamePos As Long
4. 'ссылка на FileLocations объект.
5. IPJ = ThisApplication.FileLocations.FileLocationsFile
6. 'найти в IPJ  "\" справа первую и получить ее расположение
7. FNamePos = InStrRev(IPJ, "\", -1)    
8. 'получим имя файла проекта с расширением
9. IPJ_Name = Right(IPJ, Len(IPJ) - FNamePos)
10. 'имя проекта без расширения
11. IPJ_ShortName = Left(IPJ_Name, Len(IPJ_Name) - 4)
12. 'вывод на MessageBox
13. MessageBox.Show(IPJ_ShortName)

[R.I.Chernov]

День добрый! Сергей, либо я не совсем понимаю, что вам требовалось, либо вы не прислушались к моему совету выше. Если необходимо получить имя текущего проекта без расширения, то для этого есть специальное свойство, и не надо ничего выдумывать. Надо лишь пару минут покопаться в объектном браузере.

Код - Visual Basic [Выбрать]

1. Dim PrjName As String
2. PrjName = ThisApplication.DesignProjectManager.ActiveDesignProject.Name
3. MsgBox (PrjName)

П.С. В очередной раз советую вам переходить на VBA!  Тогда вам не придется изобретать велосипед! Данный вопрос - очень наглядный пример!:)