Расположение документа

[R.I.Chernov]

Доброго времени суток, уважаемые форумчане! Помогите пожалуйста разобраться с таким вот вопросом:
Если зайти в свойства любого документа (используя ПКМ), то на вкладке "Общие" есть свойство "Расположение". Можно ли обратиться в этому свойству программно? Если сформулировать по-другому: мне необходимо получить название папки, в которой хранится документ.

П.С. Я понимаю, что это можно сделать чем-то вроде: "возьмем полный путь файла и вычтем из него название файла", но мне бы хотелось. чтобы в определении названия папки не участвовало каких-либо переменных (например название файла), потому как, при изменении последнего, строка кода будет требовать корректировки.

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

Не думаю, что в Inventor API есть прямое свойство для получения каталога, в котором содержится файл, но зато есть свойство Document.FullFileName из которого достаточно просто получить каталог. Достаточно отсекать с конца строки по одному символу пока "не упрешься" в "\" или в ":" или в "/". Всё что останется и будет "папка, в которой хранится документ".

[Алексей Романов]

на вкладке "Общие" есть свойство "Расположение". Можно ли обратиться в этому свойству программно?

Это не свойство, программно обратиться не получится. Вот один из вариантов получения папки файла:

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

1. Dim nameDoc As String = m_inventorApplication.ActiveDocument.FullFileName
2. Dim patchDoc As String = nameDoc.Remove(nameDoc.LastIndexOf("\"), nameDoc.Length - nameDoc.LastIndexOf("\"))

В iLogic Инвентора есть такая фича: ThisDoc.Path

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

Алексей Романов
IMHO не совсем правильно. В случае если файл находится в корневом каталоге, то путь к каталогу должен быть не "X:" , а "X:\". Во всех остальных случаях без обратного слэша на конце: "X:\Directory1\Directory2\...\DirectoryN"

[Алексей Романов]

IMHO не совсем правильно.

Я в курсе. При работе в АИ расположение файлов в корне диска это нонсенс, работа ведется с проектами, а там без папок не обойтись. Если кому приспичит, то сделать проверку и дописать слэш не проблема. При формировании полного пути файла слэш все равно приходится дописывать (если формирования ведется не средствами FSO)...

[R.I.Chernov]

Спасибо за ваши ответы.
Прокопался два часа, так и не нашел аналога метода "LastIndexOf" для VBA. Алексей, вы не можете мне с этим помочь?

[Алексей Романов]

Алексей, вы не можете мне с этим помочь?

Без проблем, хотел же еще как вариант привести...

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

1. Dim asDoc As String: asDoc = ThisApplication.ActiveDocument.FullFileName
2. Dim patchDoc As String: patchDoc = Left(asDoc, InStrRev(asDoc, "\") - 1)

[R.I.Chernov]

Спасибо, Алексей!
Это смешно, но спустя еще десять минут я нашел ответ, но быстрее вас выложить не успел

П.С. В очередной раз убедился, какой я еще зеленый - не знал, что в VBA можно в одну строку объявить переменную и задать ей значение...

[Алексей Кулик]

Нннууу... Как бы не совсем Обрати внимание на символ ":" - фактически это разделение двух или более разных операторов. В VBA полно записей вида:

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

1. Dim arPt(2) as Double
2. arPt(0) = 0# : arPt(1)= 1# : arPt(2) = 3#

Сам я в свое время на этом хорошо мозг поломал...

[R.I.Chernov]

Спасибо!  Я тут уже успел поэкспериментировать и написать тьму всего в одну строку... Подскажите пожалуйста, правильно ли я понял, разделение операторов двоеточием по сути аналогично записи с новой строки?
П.С. Если не сложно, просветите пожалуйста, что за значение такое "arPt(0) = 0#" ? Что означает решетка?

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

правильно ли я понял, разделение операторов двоеточием по сути аналогично записи с новой строки?

Да

Если не сложно, просветите пожалуйста, что за значение такое "arPt(0) = 0#"

Нулевому элементу массива arPt присваивается длинный плавающий (Double) нуль.
https://msdn.microsoft.com/en-us/library/s9cz43ek.aspx

[R.I.Chernov]

Спасибо, Александр. Почитал сегодня и, честно говоря, так и не понял в итоге, каким образом используются данные символы. В смысле как ими манипулировать, и в каких именно ситуациях они нужны и полезны. Ну например в вашем примере вы же объявляете массив как double, что тогда дает символ решетки?
Как появится свободное время, придется в этом разобраться

П.С. Вот та же статья на русском https://msdn.microsoft.com/ru-ru/library/s9cz43ek.aspx

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

Ну например в вашем примере вы же объявляете массив как double, что тогда дает символ решетки?

В принципе он необязателен в этом случае. Можно было написать и 0.0
Обязателен символ в том случае когда тип не определен и тип значения по-умолчанию не совпадает с тем, которое необходимо по смыслу.

[R.I.Chernov]

Можно было написать и 0.0

А что мешает написать просто 0, без дробной части? Я может что-то не так делаю, но объявленные массивы double корректно работали при присвоении их членам по сути целых значений. Я для себя понял, что подразумевается, что дробная часть равна нулю. Или я ошибаюсь?

[brigval]

Алексей, вы не можете мне с этим помочь?

Без проблем, хотел же еще как вариант привести...

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

1. Dim asDoc As String: asDoc = ThisApplication.ActiveDocument.FullFileName
2. Dim patchDoc As String: patchDoc = Left(asDoc, InStrRev(asDoc, "\") - 1)

Иногда удобно путь преобразовать в массив с разделителем "\". И обработать его.