选择文件夹程序需求更改

菜卷鱼

论坛找到一个程序，是选择文件夹路径的，现在的默认路径好像是桌面，怎样更改为当前打开的文件所在路径

1. (defun cfe_getFolder (msg / WinShell shFolder path catchit)
   
2.   (vl-load-com)
   
3.   (setq winshell (vlax-create-object "Shell.Application"))
   
4.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
5.   (setq
   
6.     catchit (vl-catch-all-apply
   
7.               '(lambda ()
   
8.                  (setq shFolder (vlax-get-property shFolder 'self))
   
9.                  (setq path (vlax-get-property shFolder 'path))
   
10.                )
    
11.             )
    
12.   )
    
13.   (if (vl-catch-all-error-p catchit)
    
14.     nil
    
15.     path
    
16.   )
    
17. )

(defun cfe_getFolder (msg / WinShell shFolder path catchit)<br />   (vl-load-com)<br />   (setq winshell (vlax-create-object "Shell.Application"))<br />   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />   (setq<br />     catchit (vl-catch-all-apply<br />               '(lambda ()<br />                  (setq shFolder (vlax-get-property shFolder 'self))<br />                  (setq path (vlax-get-property shFolder 'path))<br />                )<br />             )<br />   )<br />   (if (vl-catch-all-error-p catchit)<br />     nil<br />     path<br />   )<br /> )

oistre

大神牛牛牛牛牛！

USER2128

(vlax-invoke-method winshell 'browseforfolder 0 msg 1 startpath)

lsjj

有必要這麼累嗎?
(getvar "dwgprefix")

菜卷鱼

lsjj 发表于 2014-10-11 11:56
有必要這麼累嗎?
(getvar "dwgprefix")

呵呵呵，初始的为当前打开的文件所在路径，但是我并不一定是选择这个文件夹，我可以选别的啊

菜卷鱼

USER2128 发表于 2014-10-11 11:47
(vlax-invoke-method winshell 'browseforfolder 0 msg 1 startpath)

这样不能选择当前文件夹的上一级啊，只能选当前文件夹跟当前文件夹的下面级别的文件夹

USER2128

你别纠结了，采用DOSLIB吧，文件操作之类的问题，都可以迎刃而解

菜卷鱼

USER2128 发表于 2014-10-11 14:27
你别纠结了，采用DOSLIB吧，文件操作之类的问题，都可以迎刃而解

我不懂DOSLIB，只会LISP

USER2128

菜卷鱼 发表于 2014-10-11 15:16
我不懂DOSLIB，只会LISP

doslib是一个插件，有命令帮助的

llsheng_73

1. (defun GetFolder (msg / shFolder path catchit);选取文件夹
   
2.   (if(vl-catch-all-error-p
   
3.        (setq shFolder(vlax-invoke-method(vlax-create-object "Shell.Application")'BrowseForFolder 0 msg 1)
   
4.              catchit(vl-catch-all-apply'(lambda()(setq shFolder(vlax-get-property shFolder'self))
   
5.                                      (setq path(vlax-get-property shFolder'path))))))nil path))
   

(defun GetFolder (msg / shFolder path catchit);选取文件夹<br />   (if(vl-catch-all-error-p<br />        (setq shFolder(vlax-invoke-method(vlax-create-object "Shell.Application")'BrowseForFolder 0 msg 1)<br />              catchit(vl-catch-all-apply'(lambda()(setq shFolder(vlax-get-property shFolder'self))<br />                                      (setq path(vlax-get-property shFolder'path))))))nil path))<br />

N年前从明经还是什么地方抄的

菜卷鱼

llsheng_73 发表于 2014-10-19 18:38
N年前从明经还是什么地方抄的

你的跟我的一个效果