获取所有磁盘盘符get-logical-drives

kozmosovia

获取所有磁盘盘符可以使用AutoCAD的get-logical-drives这个隐藏函数，这个函数没有参数，直接返回所有逻辑磁盘的盘符，包括U盘。但是使用这个函数需要在AutoCAD中使用tranf激活它，而且在ZWCAD中是不能激活隐藏函数的。
不采用隐藏函数的方式，可以使用FSO来直接定义这个函数（ZWCAD中也可用）：

1. (Defun get-logical-drives (/ FSO RTN)
   
2.   (setq  fso (vlax-create-object "Scripting.FilesystemObject")
   
3.   rtn ""
   
4.   )
   
5.   (vlax-for abc  (vlax-get-property fso "Drives")
   
6.     (setq rtn (strcat rtn (vlax-get-property abc "driveLetter")))
   
7.   )
   
8.   (vlax-release-object fso)
   
9.   rtn
   
10. )

(Defun get-logical-drives (/ FSO RTN)<br />   (setq  fso (vlax-create-object "Scripting.FilesystemObject")<br />   rtn ""<br />   )<br />   (vlax-for abc  (vlax-get-property fso "Drives")<br />     (setq rtn (strcat rtn (vlax-get-property abc "driveLetter")))<br />   )<br />   (vlax-release-object fso)<br />   rtn<br /> )

树櫴希德

收藏了 感谢