[编程申请]：晓东，如何控制打开所需的文件夹?

loner

我想在lisp下控制打开一个自己所需要的文件夹，比如我输入ABC，open命令就自动打开这个文件夹，但具体打开ABC下哪个DWG文件，是看情况而定的，

eachy

最初由 loner 发布
[B]我想在lisp下控制打开一个自己所需要的文件夹，比如我输入ABC，open命令就自动打开这个文件夹，但具体打开ABC下哪个DWG文件，是看情况而定的， [/B]

1. 
   
2. xdrx_getdir
   
3. 
   
4. 功    能：windows风格的选取目录对话框(只能选取目录不能选取下面的文件)
   
5. 
   
6. 调用格式：(xdrx_getdir <caption值> <初始目录名><提示字符串tile>)
   
7. 
   
8. 返 回 值：若点确定按钮，返回目录完整路径字符串
   
9. 
   
10. 说    明：若使用默认的CAPTION值“请选取目录”，<caption值>输入""
    
11.           若使用默认的当前目录,<初始目录名>输入""
    
12.           若不加提示字符串，<提示字符串>输入""
    
13.           若输入了不存在的目录，则提示是否创建。
    

复制代码

eachy

1. 
   
2. 用标准的 AutoCAD 文件对话框提示用户输入一个文件名，并返回该文件名
   
3. (getfiled title default ext flags)
   
4. 
   
5. getfiled 函数显示一个对话框，其中包含指定类型（由扩展名指定）的有效文件名列表。用户可以浏览不同驱动器和
   
6. 目录中的文件，选择现有文件或指定新文件名。
   
7. 
   
8. 参数
   
9. 
   
10. title
    
11. 
    
12. 字符串，指定对话框的标签。
    
13. 
    
14. default
    
15. 
    
16. 要使用的缺省文件名；可为空字符串 ("")。
    
17. 
    
18. ext
    
19. 
    
20. 缺省的文件扩展名。如果 ext 为空字符串 ("")，则缺省值为 *（所有文件类型）。
    
21. 如果该参数中包含 dwg 文件类型，则 getfiled 函数在对话框中显示预览图像框。
    
22. 
    
23. flags
    
24. 
    
25. 整数（按位编码），控制对话框的行为。要一次设置多个条件，可以将几个位值加在一起生成一个 0 和 15 之间的标志值（包括 0 和 15
    
26. ）。getfiled 可识别下列 flags 参数：
    
27. 1 （位 0）  提示输入新文件的名称。如果输入文件名是为了打开一个已存在的文件，请不要设置该位。因为在后面这种
    
28. 情况下，如果用户输入的是一个不存在的文件名，对话框将会在对话框的底部显示一条错误信息。
    
29. 如果设置了该位而用户选择了一个已存在的文件，AutoCAD 会显示警告框，让用户选择继续进行或取消该操作。
    
30. 
    
31. 4 （位 2）  允许用户输入任意文件扩展名，或者干脆不输入文件扩展名。
    
32. 如果不设置该位，则 getfiled 仅接受 ext 参数中指定的扩展名，并在用户没有输入扩展名时自动给文件名加上该扩展名。
    
33. 8 （位 3）  如果设置了该位而位 0 没有设置，getfiled 函数将在库搜索路径内搜索输入的文件名。如果在库搜索路径下
    
34. 发现了该文件，它将截去路径部分而仅返回文件名（但如果在另一个路径下也发现了同名的文件，它就不会截去路径部分）。
    
35. 
    
36. 如果未设置该位， getfiled 返回包括据经在内的文件全名。
    
37. 如果要用对话框打开现有文件，并想将其文件名存入图形文件（或其他数据库），就应该设置该位。
    
38. 16 （位 4）  如果设置该位，或 default 参数以路径分割符结束，则该参数仅被解释为路径名。getfiled 寒暑假定不存
    
39. 在缺省文件名，并在“查找范围”框中显示路径，而在“文件名”框中不显示任何内容。
    
40. 32 （位 5）  如果设置该位，且设置了位 0（已指定了新文件的名称），则如果用户要覆盖现有文件时，不会获得
    
41. 警告信息。即，不再出现提醒框提醒用户已存在同名文件，而是直接覆盖原来的文件。
    
42. 
    
43. 64 （位 6）  即使如果用户指定了 URL，也不传输远程文件。
    
44. 128（位 7）  不允许 URL。
    
45. 
    
46. 返回值
    
47. 
    
48. 如果对话框中包含用户指定的文件名，则 getfiled 返回指定文件名的字符串。否则该函数返回 nil。
    
49. 
    
50. 样例
    
51. 
    
52. 下例中调用 getfiled 来显示“Select a Lisp File”对话框：
    
53. 
    
54. (getfiled "Select a Lisp File" "c:/program files/acad2000/support/" "lsp" 8)

复制代码