multiple file selection dialog box using lisp & powershell

[Paul Li]

Attached is an  improved version of getfiled that implements powershell with the option to select single or multiple files returning a list of the selected item(s):

Examples:

(pl:getfiledps "Select Files" (getvar"dwgprefix") "dwg" 0) ; for single selection of file type dwg
(pl:getfiledps "Select Files" (strcat (getenv "userprofile") "\\downloads") "dwg;dxf" 1) ; for multiple selection of file types dwg & dxf

Feedback & comments are welcome.

pl_getfiledps.lsp

[SLW210]

Many work computers are likely limited for using Powershell.

 

Unrelated to Powershell being blocked, I get an error loading.

 

 error: string too long on input

 

[Steven P]

String too long - just a guess, file path and file name string length? - going back old school when we had 256? characters for it all - but just a guess

 

[SLW210]

I'm not going to troubleshoot it since Powershell is blocked at work, but if the load has that error, then it's something in the Code, probable in the DCL write-line part.

[Paul Li]

Thanks for troubleshooting. That could definitely be caused by having a write-line statement that's way too long.

I've made the changes to reduce the write-line on the dcl. Kindly troubleshoot some more for offices that do allow for running powershell with the attached revised version...thanks in advance.

pl_getfiledps.lsp

[GLAVCVS]

One observation: in older versions of AutoCAD (2000 and 2002, at least), 'vla-get-HWND' applies to the Document object rather than the Acad object.

Edited 46 minutes ago by GLAVCVS

[BIGAL]

Works great often do old fashioned DOS to get file names list or use the VL files functions. 

 

A suggestion remove "result" from the local variables list. As the answer disappears.

Or 

; Example:
;  (setq files (pl:getfiledps "Select Files" (getvar"dwgprefix") "dwg" 1))

 

A side comment I have used Powershell with Bricscad and sometimes does not work. Your code may help as you do a deeper dive into running Powershell. I generally only do a "Power shell and script" I have used it to change programs, I jump to Excel from CAD. 

Edited 40 minutes ago by BIGAL