Popup_list van alle harde schijven

[Tom]

Hoe kan ik in lisp een popup_list maken waar al de harde schijven en mappen inkomen ?

Zoals hieronder


Alvast bedankt

Tom

[Joop]

Als je doslib gebruikt kun je een lijst van alle drives krijgen

dos_drives


--------------------------------------------------------------------------------


Returns a list of available drives.

Syntax
(dos_drives)
Parameters
n/a



Returns
A list of available local and network drives if successful.

nil on error.

Example
Command: (dos_drives)

("A:" "C:" "D:" "E:" "F:")

Hierboven een copy van de help van doslib 6.1.

[WebRacer]

;Hautekeete Olivier
;voor meer info zie help ivm opties qua
;saven en openen
(defun mkname ()
     (setq filenam (strcat (getvar "DWGPREFIX") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))))
     (setq filenam (getfiled "Geef naam en pad op voor txt-File" filenam "txt" 5))
     (setq ffile (open filenam "w"))
)

[Kenny H]

Uw programma klopt idd.

Ik heb enkel één aanpassing gedaan. Bij u stond het voor een txt file.
Nu staat het voor een DWG

(defun c:mkname ()
(setq filenam (strcat (getvar "DWGPREFIX") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))))
(setq filenam (getfiled "Geef naam en pad op voor dwg-File" filenam "dwg" 5))
(setq ffile (open filenam "w"))
)

[WebRacer]

idd... bij help over getfiled vind je wel meer opties...
graag gedaan