Topic: OpenFileDialog

[Keith™]

CAB ...

I tried something here in this VLX .. let me know if it works ...

<REMOVED ATTACHMENT -- SEE LATER POST>

[CAB]

I regerestered the ocx & then tried this

Code: [Select]

_$ (setq dialog (vlax-create-object "MSComDlg.CommonDialog"))
nil
_$ (setq dialog (vlax-create-object "MSComDlg.CommonDialog.1"))
nil
_$
I then tried to register the dll & got this

[Keith™]

Cab, try the VLX in the previous post to see if it provides the window, if it does, then I have a sneaking suspicion that the error is related to the design time license I have with the CommDlg32.ocx. Since I have the developer edition of VB both here and at home that may be the defining factor. Either way, if the above code works, it "should" grant you rights to use the dialog based on my giving you rights through my license ... i.e. the type library is on your computer, but the license to use it must come from a licensed developer .. in otherwords I can distribute an application that uses the comdlg window, but I can't distribute the type library and by my distribution of this application in the compiled format, it should .. theoretically give you permissions enough to create the window ... I don't know if it extends past the compiled code .. for example any code you might write.

[CAB]

Loaded it, used Start CommonDialog, Here is what I get:

[Keith™]

WELL DAGNABIT ... The command is (commondialog) .. forgot to mention that ...

It should work ... back to the drawing board ..

[CAB]

Code: [Select]

Command: (commondialog)

Error: too many arguments

[Keith™]

A different error? Now this is really getting intriguing ...

[Fatty]

Code: [Select]

Command: (commondialog)

Error: too many arguments

Alan
I've got the similar one:

Code: [Select]

Command: (commondialog (getvar "dwgprefix"))
; error: too many arguments
Command: CommonDialog
Unknown command "COMMONDIALOG".  Press F1 for help
Command: (CommonDialog)
; error: too many arguments
~'J'~

[Keith™]

Ok .. try this one then ...

Same scenario ...

(commondialog) to run

[CAB]

 

Code: [Select]

Command: (commondialog)
; error: bad argument type: VLA-OBJECT nil
; reset after error

[Keith™]

well ... darn ... I know I am sending the license through ... I have just never had to do it through lisp before ... I need to do a little more research ...

[CAB]

Thnaks for your time Keith.

[ELOQUINTET]

cab i've been watching what's going on in this thread and am wondering is this what you had in mind for the plottabs script we were discussing last week. so the main goal here is to be able to open multiple files from multiple folders? just curious

[CAB]

Yes, but a useful tool for other lisp as well.
Here is the alternative routine.

Code: [Select]

;;  Get user pick of files, one at a time
(defun c:test (/ file files)
 
  (if (setq file (getfiled "Select a file to include in Batch" "" "dwg" 128))
    (while
      (setq files (cons file files)
            file  (getfiled "Select another file or Cancel to quit" file "dwg" 128)
      )
    )
    (princ "\nNo files were selected.")
  )
 
  (and files (princ files))
  (princ)
)

[hendie]

CAB you could smudge it by using the Browse for folders in your first post...
use the browse for folder to *ahem* browse for folders, then add a listbox to the form that displays all the files in the selected folder, and use that listbox to let the user select multiple files.

fwiw, I have the three controls on my system but still cannot use the commondialog and even stranger, I can bring in a routine from home utilising the common dialog and it works fine, but I cannot copy it across modules.