Topic: Display file path in a popup_list

[psuchewinner]

I want to be able to select a drawing file in my dialog box but i dont want to use the "getfiled" (or is it findfile, idunno). Kinda like the "open" dialog.  I dont want the distraction of having another dialog box opening.  I want it all right in one dialog box.  Can this be done?

[GDF]

Try this one out...it may give you some ideals.

http://www.theswamp.org/index.php?topic=9518.0

The code for activate is by Peter Jamtgaard.

[psuchewinner]

Thanks Gary, I dig into it.

[psuchewinner]

still not "getting it".
I want to be able to make a "LOOK IN:" drop down list.  So I can select a directory and store that path in a variable.  I dont want to use (Getfiled) becasue it open up another dialog box and I dont want to do it that way.

[TimSpangler]

Try this one

http://www.theswamp.org/index.php?topic=19954.0

[psuchewinner]

Let me clarify what I want to do.
I want to be able to browse for a file (without using "getfiled") and retrieve some xdata from it.
The dialog that I posted will have some extra stuff in it but I want to be able to get all of settings and info from 1 dialog box.

Is it possible?

What I need is some code to show a directory tree in the popup_list or list_box and the code to store it.

That is as far as I've gotten.  I wanted to start with the hardest part first.  Getting the xdata and everything else is the easy part.

Gary posted some code (above) but I cant get it to do what I want. 

[GDF]

Code: [Select]

( (lambda ( / path)
    ;; Example:
    ;; build a list of files in user selected path
    ;;
    ;; By: Se7en
    ;;         4/12/2007 12:03:11 PM
    ;;
    (defun BrowseForFolder ( / sh folder folderobject result)
      ;;
      ;; From: Tony Tanzillo
      ;; Newsgroups: autodesk.autocad.customization
      ;;
      ;; (setq folder (BrowseForFolder))
      ;;
      (vl-load-com)
      (setq sh
            (vla-getInterfaceObject
              (vlax-get-acad-object) "Shell.Application"))

      (setq folder
            (vlax-invoke-method sh 'BrowseForFolder 0 "" 0))

      (vlax-release-object sh)

      (if folder
        (progn
          (setq folderobject (vlax-get-property folder 'Self))
          (setq result (vlax-get-property FolderObject 'Path))
          (vlax-release-object folder)
          (vlax-release-object FolderObject)
          result
          )
        )
      )
    (if (null (setq path (BrowseForFolder)))
      ;; just in case you didnt specify a path
      nil
      (vl-directory-files path "*.dwg" 1))) )


[psuchewinner]

Can I add to this dialog box or inbed it into one of mine?

[TimSpangler]

That is it for the browse for file/folder.  Doesn't doslib also have something similar?

Maybe OpenDCL.... James??

[psuchewinner]

Now that is COOL!  Was it created by OpenDCL or what?  Never seen a DCL file look so cool.  Very nice work.  I dont know a whole lot about it but I guess I check it out.  I'm gonna have to check out this thing called Open DCL!

[Andrea]

Thanks...

but was Created by the Original ObjectDCL and not OpenDCL (derivate product)

[psuchewinner]

Where do we get ObjectDCL and how much does it cost?

[TimSpangler]

OpenDCL is free 

http://opendcl.com/wordpress/

[Kerry]

OpenDCL is free 

http://opendcl.com/wordpress/

That should be :
http://opendcl.com/wordpress/

not ftp:// ....

[Andrea]

LOL !! you'r quick guy's to answer that hein ...isn' it ?

Opendcl = Free
Derivate product of ObjectDCL

ObjectDCL = Bug Free
www.ObjectDCL.com