File Multi Selection Dialog (and Folder Select)

[peter]

Hey Group,

While I was playing around with the folder selection routines I started playing around with a multi select file dialog box functions.

In LISP the getfiled expression doesn't allow the user to specify multiple select.

I played around with several file select dialogs and found the one from Autodesk.Windows is actually quite good.

I created a function to check the arguments of the lisp function and have a separate function to convert the string array output from the dialog into a result buffer of lispdatatype.text items.

Like most of my lispmethod functions, I separate the .net function from the lispmethod function... that way the .net code could be used independently.

Imports Autodesk.AutoCAD
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Windows
Public Class FileSelectClass1
    
    ' LISP Function syntax:
    ' (FileSelect "Select Folder" "C:\\ACAD\\LISP\\" "" (+ 4 8 32 64 128 256 512 1024 2048))
    ' (FileSelect "Select Drawing" "C:\\ACAD\\LISP\\TEST2.DWG" "dwg" (+ 4 8 32 64 128 256 512 1024))
    ' (FileSelect "Select Drawings or JPG" "C:\\" "dwg;jpg" (+ 4 8 32 64 128 256 512 1024 4096))

    ''' <summary>
    ''' LISP Function for a file dialog box that can be set using flags to 
    ''' select folders, multiple files or files. See bit codes descriptions 
    ''' for flags below.
    ''' </summary>
    ''' <param name="rbfArguments"></param>
    ''' <returns>List of selected files or Folders</returns>
    <LispFunction("FileSelect")> _
    Public Function FileSelect(ByVal rbfArguments As ResultBuffer)
        Try
            Dim strReturn() As String
            If rbfArguments Is Nothing Then
                strReturn = FileSelect()
            Else
                Dim arrArguments As TypedValue() = rbfArguments.AsArray
                strReturn = FileSelect(ArrayValue(arrArguments, 0), _
                                        ArrayValue(arrArguments, 1), _
                                        ArrayValue(arrArguments, 2), _
                                        ArrayValue(arrArguments, 3))
            End If
            If strReturn IsNot Nothing Then

                Return StringArrayToResultBuffer(strReturn)
            End If
        Catch exception As Exception
            System.Diagnostics.Debug.Write(exception.ToString())
        End Try
        Return Nothing
    End Function

    ''' <summary>
    ''' .NET function to display a file select dialog box and return its value
    ''' </summary>
    ''' <param name="strTitle"></param>
    ''' <param name="strFileName"></param>
    ''' <param name="strFilter"></param>
    ''' <param name="intOpenDialogFlags"></param>
    ''' <returns> String array of selected item s</returns>
    Public Function FileSelect(Optional ByVal strTitle As String = "File Select Title", _
                               Optional ByVal strFileName As String = "c:\\", _
                               Optional ByVal strFilter As String = "dwg", _
                               Optional ByVal intOpenDialogFlags As Int16 = 4
                              )
        Try
            ' Flag Bit Codes
            ' .AllowAnyExtension = 4
            ' .SearchPath = 8
            ' .DefaultIsFolder = 16
            ' .DoNotTransferRemoteFiles = 64
            ' .NoUrls = 128
            ' .ForceDefaultFolder = 256
            ' .NoFtpSites = 512
            ' .NoShellExtensions = 1024
            ' .AllowFoldersOnly = 2048
            ' .AllowMultiple = 4096

            Dim openFileDialog As New  _
                Autodesk.AutoCAD.Windows.OpenFileDialog(strTitle, strFileName, strFilter, "DialogName", _
                                            intOpenDialogFlags)
            With openFileDialog
                If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    Return .GetFilenames

                End If
            End With
        Catch ex As System.Exception

        End Try
        Return Nothing
    End Function

    ''' <summary>
    ''' Function to an get item in the array. 
    ''' </summary>
    ''' <param name="arrArguments"></param>
    ''' <param name="intItem"></param>
    ''' <returns> Item in array or Nothing for error </returns>
    Public Function ArrayValue(ByRef arrArguments As TypedValue(), ByVal intItem As Integer)
        If intItem < arrArguments.Length Then Return arrArguments(intItem).Value
        Return Nothing
    End Function

    ''' <summary>
    ''' Function to return a resultbuffer of typedvalue lispdatatype.text items
    ''' </summary>
    ''' <param name="strArguments"></param>
    ''' <returns>Result Buffer of text items </returns>
    Public Function StringArrayToResultBuffer(ByVal strArguments() As String)
        Try
            If strArguments IsNot Nothing Then
                Dim rbfResult = New ResultBuffer(New TypedValue(LispDataType.ListBegin, -1))
                For intItem = 0 To strArguments.Length - 1
                    rbfResult.Add(New TypedValue(LispDataType.Text, strArguments(intItem)))
                Next intItem
                rbfResult.Add(New TypedValue(LispDataType.ListEnd, -1))
                Return rbfResult
            End If
        Catch exception As Exception
            System.Diagnostics.Debug.Write(exception.ToString())
        End Try
        Return Nothing
    End Function
End Class

[peter]

I have had trouble posting new threads for some reason, so I copied this thread and changed the title/revised posts so it could be posted.
I asked Opie to look into the problem with posting threads.
That is why the date appears wrong.