Chat
Frequently Asked Questions
You won't believe what is possible in terms of programming... It doesn't matter in which area you use AutoCAD, BricsCAD or ZWCAD! Do they have particularly complex tasks or just repetitive simple tasks that are very time-consuming overall? Give us a call or email us - we can certainly help you! From small tools to full-blown programs till to the 'finish Button.'
Create a list of all available drives of the PC
Code:
(defun C:Drives (/ art fso drive drives laufwerksliste laufwerkstyp lst typ zaehler) (vl-load-com) (setq Laufwerksliste nil laufwerkstyp nil ) ;;Erstellen der Laufwerksliste (setq fso (vlax-create-object "Scripting.FileSystemObject")) (vlax-for drive (setq drives (vlax-get-property fso 'Drives)) (setq lst (cons (vlax-get-property drive 'DriveLetter) lst)) ) ;_ end of vlax-for (vlax-release-object drives) (vlax-release-object fso) (setq Laufwerksliste (reverse lst)) ;Erstellen der Art der Laufwerke (setq fso (vlax-create-object "Scripting.FileSystemObject")) (setq zaehler 0) (repeat (length laufwerksliste) (setq drives (vlax-get-property fso 'Drives) drive (vlax-get-property drives 'item (nth zaehler Laufwerksliste)) typ (vlax-get-property drive 'DriveType) ) ;_ end of setq (setq art (cons (nth typ '("UNBEKANNT" "FLOPPY" "FESTPLATTE" "NETZLAUFWERK" "CDROM" "RAMDISK" ) ) ;_ end of nth art ) ;_ end of cons ) ;_ end of setq (setq zaehler (1+ zaehler)) );end repeat (vlax-release-object drive) (vlax-release-object drives) (vlax-release-object fso) (setq laufwerkstyp (reverse art)) (princ "\nLaufwerke: ")(princ Laufwerksliste) (princ "\nLaufwerktypen: ")(princ laufwerkstyp) (princ) ) ;_ end of defun