飞哥,谢谢你的方法,我想问有没简单点的,你看如下是选择文件夹的程序
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (DEFUN GETFOLDER (MSG / WINSHELL SHFOLDER CATCHIT) (VL-LOAD-COM) (SETQ WINSHELL (VLAX-CREATE-OBJECT "SHELL.APPLICATION")) (SETQ SHFOLDER (VLAX-INVOKE-METHOD WINSHELL 'BROWSEFORFOLDER 0 MSG 1)) (SETQ CATCHIT (VL-CATCH-ALL-APPLY '(LAMBDA () (SETQ SHFOLDER (VLAX-GET-PROPERTY SHFOLDER 'SELF)) (SETQ PATH (VLAX-GET-PROPERTY SHFOLDER 'PATH)) ) ) ) (IF (VL-CATCH-ALL-ERROR-P CATCHIT) NIL PATH ) )
很简洁明了,我想问能否采用如此方法?得到选择文件也有如下效果
|