Hoe kan ik in lisp een popup_list maken waar al de harde schijven en mappen inkomen ?
Zoals hieronder
(https://cadsite.be/smf/proxy.php?request=http%3A%2F%2Fwww.smartbooks.co.nz%2Fimg%2Fsaveas.gif&hash=2d4db2d93f088326dbf62406b8b57623f1916b63)
Alvast bedankt
Tom
Als je doslib gebruikt kun je een lijst van alle drives krijgen
Citeer
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.
;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"))
)
Uw programma klopt idd.
Ik heb enkel één aanpassing gedaan. Bij u stond het voor een txt file.
Nu staat het voor een DWG
Citeer(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"))
)
idd... bij help over getfiled vind je wel meer opties...
graag gedaan