[LISP程序]：请问如何用lisp调用另存为对话框

kwy

谢谢！哪位高手请帮忙

zhynt

　
getfiled    函数
　


语法

    (getfiled title default ext flags)

功能及参数

     getfiled 函数将显示一个包含许多指定扩展名的文件列表对话框。您可以使用此来浏览不同的驱动程序与文件夹、选择一个即存的文件或指定新文件的名称。这个函数将经过标准的 AutoCAD 对话框来提示用户文件名。title 参数将指定整个对话框的标签, default 将指定要使用的缺省名称(您也可以使用空字符串 ""), 以及ext代表缺省的文件扩展名(如果给以 "" 字符串, 则 ext 将缺省为*)。如果 .dwg 的文件包含在 ext 参数之中的话, 那么此函数将在此对话框中显示一个此图形文件的预览图片。flag 参数是一个整型数值 (一个位标志项), 用来控制对话框的行为。要一次设定一个以上的条件, 请将需要的值加起来 (任意组合) 来建立一个处于 0 到 15 之间的 flag值 。flag 参数值与其意义如下：

    以下为flag值含义：

    值＝１(位 0)：当您为了要提示一个新文件的名称时, 此位值应该被设定。但如果您要提示一个已存在文件的名称, 那么就不应设定此值。如果用户键入的文件名不存在, 那么在对话框底端将出现一错误信息。

如果位值被设定, 而且用户选择了已存在的文件, 那么 AutoCAD 将显示另一个框以提供用户选择继续或中断操作。

值＝２(位 1)：解除 Type it 按钮的功能。如果当另一对话框正在运行且 getfiled 已被调用时, 此位将自动地被设定 (否则, 它将会强制另一对话框消失)。如果这一位没有被设定 , 则 Type it钮将可操作。用户如果选择该钮, 对话框将消失而 getfiled 返回 1 值。

    值＝４(位 2)：让用户键入一个任意的扩展名, 或是无扩展名。如果没有设定此位值, getfiled 仅接受在 ext 参数中所指定的扩展名。如果用户在 File：字段中没有键入, 则将附加这一扩展名到文件名上。

    值＝８(位 3)：如果此一位已设定, 而位０没有被设定, getfiled 将为键入的文件名执行数据库搜寻。如果找到文件同时它的所在目录也在数据库路径上, 则路径将被省略仅返回文件名。在发现有相同文件时, 则不省略路径名称, 这种情形只在不同目录中才会发生。如果此位未被设定, getfiled 将返回完整的文件名称, 且包括路径名称。在您使用对话框来打开一个您想要存储的图形 (或其他数据库) 中的文件时, 您必须设定此位值, 您可以调用 findfile来寻找此位值。

    下图范例将表示这些参数如何影响对话框的特性。如果对话框由用户处得到文件名, 则 getfiled 将返回指定文件名的字串。否则, getfiled 将返回 nil。

范例

    (getfiled "输入要保存的文件" "" "dwg" 1)

on/off

还有一些api的函数，比如到doslib或ap－api里面，直接提供。

lsjjm

最初由 kwy 发布请问如何用lisp调用另存为对话框
[B]谢谢！哪位高手请帮忙 [/B]

(initdia)
(command "saveas")

zjqtc

谢谢！