明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1770|回复: 7

[LISP]关于文件打开与保存的求助

[复制链接]
发表于 2004-7-10 21:38:00 | 显示全部楼层 |阅读模式
在dcl打开过程中,如何调用windows的标准保存、另存为对话框?


除了doslib有别的办法没?


多谢……
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2004-7-10 22:22:00 | 显示全部楼层
getfiled
 楼主| 发表于 2004-7-10 23:27:00 | 显示全部楼层
飞哥,getfiled是打开文件,我说的是保存啊
发表于 2004-7-11 08:15:00 | 显示全部楼层
也可以保存的 (defun c:aa()
(getfiled "DWG" "" "DWG" 1)
)
发表于 2004-7-11 08:54:00 | 显示全部楼层
SWAYWOOD发表于2004-7-10 23:27:00飞哥,getfiled是打开文件,我说的是保存啊

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

以下为flag值含义:

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

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

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

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

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

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

 楼主| 发表于 2004-7-28 21:13:00 | 显示全部楼层
I HAVE GOTTON IT,ANYWAY THANK YOU
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-9-30 22:31 , Processed in 0.201524 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表