Сообщество программистов Autodesk в СНГ

ADN Club => Inventor API => Тема начата: Сергей SSS от 20-04-2016, 15:06:32

Название: переменной имя проекта
Отправлено: Сергей SSS от 20-04-2016, 15:06:32
Как обнаружить имя созданного проекта из чертежа. Где то видал инфу, но не могу найти. Не наименование во вкладке проект, а именно имя всего проекта (в управлении настраивается). Лучше на ilogic.
Переменная=имя проекта
Название: Re: переменной имя проекта
Отправлено: R.I.Chernov от 20-04-2016, 22:27:25
У меня сломался компьютер :( Так что подсказать могу лишь на пальцах по памяти. Нажмите alt+F11 - откроется VBA, нажмите F2 - откроется объектный браузер. В строке поиска вбейте ProjectName и поищите, откуда вызывается это свойство. Если не ошибаюсь, то там должно быть такое, и возвращает оно имя проекта.
Название: Re: переменной имя проекта
Отправлено: Александр Ривилис от 21-04-2016, 00:13:37
Сергей SSS
Не это искал: http://inventortrenches.blogspot.com/2012/07/ilogic-and-inventor-project-file.html ?
Название: Re: переменной имя проекта
Отправлено: Сергей SSS от 24-04-2016, 15:55:27
Цитата: Александр Ривилис от 21-04-2016, 00:13:37
Не это искал: 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)
Название: Re: переменной имя проекта
Отправлено: R.I.Chernov от 25-04-2016, 11:58:17
День добрый! Сергей, либо я не совсем понимаю, что вам требовалось, либо вы не прислушались к моему совету выше. Если необходимо получить имя текущего проекта без расширения, то для этого есть специальное свойство, и не надо ничего выдумывать. Надо лишь пару минут покопаться в объектном браузере.
Код - Visual Basic [Выбрать]
  1. Dim PrjName As String
  2. PrjName = ThisApplication.DesignProjectManager.ActiveDesignProject.Name
  3. MsgBox (PrjName)
П.С. В очередной раз советую вам переходить на VBA!  Тогда вам не придется изобретать велосипед! Данный вопрос - очень наглядный пример!:)