Ce 10 - Sheet Model rename

Hello,

your query has been moved to the MicroStation Programming forum.

Regards

Hi Ian,

Ian Lapper said:

Is there a fast way ie VBA to rename all sheet models in a project to that of the File name.

Yes, it's possible to do it using VBA. Here is a code snippet to demonstrate how to do it. It's pretty simplified, so e.g. how to remove file extension from the name is done using not very robust way, but it should work in normal situations.

Option Explicit

Public Sub RenameSheet()

    IterateOpenedDesignFile

End Sub

Private Sub IterateOpenedDesignFile()
    
    Dim model As ModelReference
    
    For Each model In ActiveDesignFile.Models
        If model.Type = msdModelTypeSheet Then
            ProcessSheetModel model
        End If
    Next
End Sub

Private Sub ProcessSheetModel(sheetModel As ModelReference)

    Dim fileName As String
    fileName = GetFileNameWithoutExtension
  
    sheetModel.name = sheetModel.name & " (" & fileName & ")"
    
End Sub

Private Function GetFileNameWithoutExtension() As String

    Dim fileNameWithExt As String
    fileNameWithExt = ActiveDesignFile.name
    
    If InStr(fileNameWithExt, ".") > 0 Then
        GetFileNameWithoutExtension = Left(fileNameWithExt, InStr(fileNameWithExt, ".") - 1)
    End If
    
End Function

With regards,

  Jan