[LISP程序]：想问一下各位怎样用“getfiled”来多选几个文件？

brianqi

想问一下各位怎样用“getfiled”来多选几个文件？
(getfiled "New" "" "DWG" ？)

想问下在"？"这个数值是多少？

xcajcj

下面是帮助文件中关于“getfiled”函数的说明：

用标准的 AutoCAD 文件对话框提示用户输入一个文件名，并返回该文件名

(getfiled title default ext flags)

title 参数是一个用于指定对话框标题的字符串；default 参数指定使用的缺省文件名（也可以是空字符串 [""]）；ext 参数指定缺省文件扩展名，如果是空字符串 [""]，其缺省值为 *
（所有的文件类型）。如果 ext 参数中包含了 dwg 文件类型，则该函数会在对话框中显示一个图形预览框。flags 参数是一个整数（按位编码），它控制对话框的行为。为了一次设置一个以上的条件，可以将几个位值加在一起生成一个 0 和 15 之间的标志值（包括 0 和 15）。

Flag value = 1 （位 0）

当希望提示用户输入一个要新创建的文件名时设置该位。如果输入文件名是为了打开一个已存在的文件，请不要设置该位。因为在后面这种情况下，如果用户输入的是一个不存在的文件名，对话框将会在对话框的底部显示一条错误信息。

如果设置了该位而用户选择了一个已存在的文件，AutoCAD 会显示一个警告框并让用户选择继续进行或取消该操作。

Flag value = 4 （位 2）

允许用户输入任意的文件扩展名，或者干脆不输入文件扩展名。

如果不设置该位，getfiled 函数将仅接受 ext 参数中指定的扩展名，并在用户没有输入扩展名时会自动给文件名加上该扩展名。

Flag value = 8 （位 3）

如果设置了该位而第 0 位没有设置，getfiled 函数将在库目录范围内搜索输入的文件名。如果在库目录下发现了该文件，它将截去路径部分而仅返回文件名（但如果在另一个路径下也发现了同名的文件，它就不会截去路径部分）。

如果没有设置该位，getfiled 函数返回包括全路径名的文件名。

如果要用对话框打开一个已存在的文件并想将其文件名存入图形文件（或其他数据库），就应该设置该位。

如果对话框从用户那里获得了一个文件名，getfiled 函数就以字符串形式返回该文件名；否则它返回 nil。

下列代码调用 getfiled 函数显示 "Select a Lisp File" 对话框：

(getfiled "Select a Lisp File" "/acadr14/support/" "lsp" 8)

LUCAS

DOSLIB中有函數可多選文件

dos_getfilem
--------------------------------------------------------------------------------
Displays a resizable Windows common file open dialog box that allows for multiple file selection.

Syntax
(dos_getfilem title path filter)
Parameters
title
A string containing the dialog box title.

path
A string identifying an existing directory.

filter
A filename filter string. The filter string consists of two components: a description (for example, "Text Files"), and a filter pattern (for example, "*.TXT"). Multiple filter patterns can be specified for a single item by separating the filter-pattern strings with a semicolon (for example, "*.TXT;*.DOC;*.BAK"). The components must be separated by a pipe character ("|"). The filename filter string can consist of one or more filter strings, each separated by a pipe character ("|"). The entire string must be terminated with two pipe characters ("||").


Returns
A list of filenames if successful. The first element of the list is a qualified path to the selected directory.

nil on cancel or on error.

Examples
Command: (dos_getfilem "Select files" "c:\\program files\\autocad 2002\\sample\\" "Drawing files (*.dwg)|*.dwg||")