Topic: common dialog rewrite

[stefano]

Hello Swampers,
I have to redefine the commands open and saveas showing my custom windows similar to those of standard autocad but with limited navigation to only a folder (and subfolders) in a network server.
Do you have any suggestions?
Thanks in advance

[ribarm]

Maybe this :

Code - Auto/Visual Lisp: [Select]

1. (defun c:oopen ( / f d ) (vl-load-com)
2.   (setq f (getfiled "Select file to open" "\\" "dwg" 16)) ;; Instead of "\\" put your starting path in form "X:\\BLA1\\BLA2\\"
3.   (vla-open (setq d (vla-get-documents (vlax-get-acad-object))) f)
4.   (vlax-for x d
5.     (if (eq (vla-get-fullname x) f)
6.       (vla-activate x)
7.     )
8.   )
9.   (princ)
10. )
11.  
12. (defun c:ssave ( / f )
13.   (setq f (getfiled "Type file to save" "\\" "dwg" 1)) ;; Instead of "\\" put your starting path in form "X:\\BLA1\\BLA2\\"
14.   (command "_.save" f)
15.   (princ)
16. )
17.  

[stefano]

Hello ribarm,
thank you for the quick response 
I know getfiled function but I would I would like customize the drive dropdownlist to see ONLY the predefined start folder and subfolders, as did Terry in "BrowseForFolder" function in this page http://forums.augi.com/showthread.php?80029-Obtaining-a-directory-path-via-a-dialog , but I have to do in the "open" and "save as" windows.
I hope I was clear
Thanks again.