Перевод команд ilogic на VBA

[Сергей SSS]

Как перевести эту команду на язык макроса:
modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
Как я понимаю- это определение файла базовой модели с полным путем из чертежа.
Set в начале не помогло:
Set modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
Ошибка 424 Object required

[Windcastle]

Set в начале не помогло:
Set modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
Ошибка 424 Object required

Добрый вечер, как мне помнится Set ставится только перед данными типа Object!!!
Если modelName не Object, то лучше его таковым сделать

Хотя это странно, что Вы пытаетесь получить имя файла через

IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)

[Сергей SSS]

Если modelName не Object, то лучше его таковым сделать

Dim modelName As Object
Set modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
Это не помогает

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

Сергей SSS
А что в VBA есть IO.Path.GetFileName? Насколько я помню он есть только в VB.NET
А в VBA стандартной функции для этого нет. Вот вариант:

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

1. Function FileNameFromPath(strFullPath As String) As String
2.  
3.      FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\"))
4.  
5. End Function
6.  
7. Function FileNameNoExtensionFromPath(strFullPath As String) As String
8.  
9.     Dim intStartLoc As Integer
10.     Dim intEndLoc As Integer
11.     Dim intLength As Integer
12.  
13.     intStartLoc = Len(strFullPath) - (Len(strFullPath) - InStrRev(strFullPath, "\") - 1)
14.     intEndLoc = Len(strFullPath) - (Len(strFullPath) - InStrRev(strFullPath, "."))
15.     intLength = intEndLoc - intStartLoc
16.  
17.     FileNameNoExtensionFromPath = Mid(strFullPath, intStartLoc, intLength)
18.  
19. End Function

[R.I.Chernov]

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

П.П.С. Как я понял, вам требуется получить "FullFileName". Если это необходимо для текущего документа, то делается это так (для iLogic нужно удалить слово Set):

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

1. Sub Test_forum_2()
2. Dim oDoc As Inventor.Document
3. Set oDoc = ThisApplication.ActiveDocument
4. MsgBox (oDoc.FullDocumentName)
5. End Sub

Если вам требуется получить имя не текущего активного файла, а какого-то другого, то вместо oDoc надо поставить ссылку на другую деталь, сборку или чертеж инвентора.

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

Да уж, ситуация. Попробую разложить по полочкам.
modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
Здесь два момента.
ThisDrawing.ModelDocument.FullFileName - это конструкция чисто iLogic: получения полного имени файла модели с первого вида на чертеже. На VBA это будет так:

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

1. ' активный документ
2. Dim oDoc As DrawingDocument
3. Set oDoc = ThisApplication.ActiveDocument
4. ' первый вид на чертеже
5. Dim dView As DrawingView
6. Set dView = oDoc.ActiveSheet.DrawingViews(1)
7. ' полное имя файла документа модели
8. Dim dPatch As String
9. dPatch = dView.ReferencedDocumentDescriptor.FullDocumentName

IO.Path.GetFileName - это чистый VB.NET, получение имени файла без пути. Банальная манипуляция со строками. На VBA это будет так:

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

1. ' имя файла без пути с расширением
2. Dim dName As String
3. dName = Right(dPatch, Len(dPatch) - InStrRev(dPatch, "\"))
4. ' имя файла без пути и без расширения
5. dName = Left(dName, Len(dName) - 4)

Удачи!..

[R.I.Chernov]

Да уж, ситуация. Попробую разложить по полочкам

Алексей, не могли бы вы еще немного "разложить по полочкам" для меня? Я не понимаю, а для чего такая сложность, с обращением к виду? У меня никогда не стояло такой задачи, но вроде можно получить имя документа с помощью :ThisApplication.ActiveDocument.FullDocumentName ? Или я какой-то тонкой разницы не уловил?

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

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

1.    ' имя файла без пути с расширением
2.    Dim dName As String
3.     dName = Right(dPatch, Len(dPatch) - InStrRev(dPatch, "\"))
4.     ' имя файла без пути и без расширения
5.    dName = Left(dName, Len(dName) - 4)

Насчет последнего - это ты загнул. Это будет справедливо только если расширение будет трехсимвольным. В общем случае это не так.

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

R.I.Chernov, ты просто не понял вопрос, прочитай внимательно про первый момент. Конструкция iLogic возвращает имя файла МОДЕЛИ и это нужно повторить на VBA, а ты говоришь про имя файла чертежа)))
Александр, я не сильно загнул в данном случае, зачем усложнять))) Можно и так:

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

1. ' имя файла без расширения
2. dName = Left(dName, InStrRev(dName, ".") - 1)

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

Можно и так:

Побуду нудным. Что будет, если у файла нет расширения?

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

В данном случае у файла модели Инвентора есть расширение, причем трехбуквенное. Если фирма Autodesk уберет расширения, тогда можно так)))

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

1. If InStr(dName, ".") > 0 Then
2.     dName = Left(dName, InStrRev(dName, ".") - 1)
3. End If